Question

vb2010中能设置通用对话框么，在哪边设置，急！！！！

Answer 1

VB中通用对话框无法调出
最简单的方法:重新安装一下VB就OK了,建议装VB6.0企业版的.或VS。
Vb 中变量与通用对话框简单问题
STR是VB关键字,系统原先就定义好的!建议最好不要用STR做变量名,否则STR函数就没法用了! 要是做str变量名肯定不行,不能对系统定义好的函数赋值!否则必须发生错误,那么可以把你代码中的原str变量修改一下,变成strMain或者strM 所以str=""的实际意思是对系统函数进行赋值了,那能不出错吗? 不声明str,str就是默认的系统函数,对系统函数进行赋值是严重的错误! 声明之后他就是变量,但是原来的系统函数没了,建议不要这么做,也可以说这么做是错误的! 还有写代码,定义变量之前,一定要在模块(窗体)通用部分写一句 Option Explicit,强制声明变量,不声明不可以用,这样的话可以避免混乱! 建议新手一定要强。
VB中的通用对话框action属性
MSDN解释:此 Action 属性是为了与 Visual Basic 早期版本兼容而提供的。如需附加功能,可使用下列新方法:ShowColor,ShowFont,ShowHelp,ShowOpen,ShowPrinter 和 ShowSave。 也就是说,现在的VB版本把Action名义上淘汰了,用不着。但是Action有一个额外用处:如果Action=6,则运行 WINHLP32.EXE。
VB里面通用对话框和DataGrid的一些问题。
Private Sub mnuexport_Click() Dim newxls As New Excel.Application Dim newbook As Excel.Workbook Dim newsheet As Excel.Worksheet Dim xlQuery As Excel.QueryTable Dim rsex As New ADODB.Recordset Dim sourcestr As String Dim savefile As String Dim Irowcount As Integer Dim Icolcount As Integer Dim i As Integer 获取数据 sourcestr = "select * from datatable" With rsex If .State = adStateOpen Then .Close End If .ActiveConnection = conn .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockReadOnly .Open sourcestr End With With rsex If .RecordCount < 1 The。
VB中通用对话框如何多选?
多选??
vb中通用对话框的用法
Private Sub Command1_Click()Dim FileName As String 储存原路径Dim File As String 储存处理后的文件名FileName = "C:\C:\abc\abc\abc\abc.exe" 这里是原路径n = InStr(StrReverse(FileName), "\")Debug.Print n If n 0 Then File = Right(FileName, n - 1) file中是处理后的路径Else File = FileName file中是处理后的路径End If If File "" Then MsgBox File, , "路径被处理后得到的文件名为"Else MsgBox "错误---可能是路径中无文件"End If End Sub自己敲的 ,完全正确。
关于VB中通用对话框的问题
看你用了几个通用对话框控件,如果是几个命令按钮控制一个通用对话框控件。第一次使用之后。CommonDialog1.FileName 属性就会记录下来。然后在你按另存的时候。点取消或是关闭,就会提示出错。所以在你打开另存窗口前一定要把 CommonDialog1.FileName 清空。即: CommonDialog1.FileName =“” 格式如下: Private Sub Command1_Click() CommonDialog1.FileName =“” CommonDialog1.Filter = "数据库文件mdb (*.mdb)*.mdb" CommonDialog1.ShowOpen if CommonDialog1.FileName =“”then exit sub end sub。
VB中通用对话框问题
应该是你选择的字体名字前面有个@,所有前面带个@的字体就是竖着的。。
vb中通用对话框FilterIndex功能是什么?
下例显示“打开”对话框然后在信息框中显示所选的文件名:Private Sub Command1_Click() 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler 设置标志CommonDialog1.Flags = cdlOFNHideReadOnly 设置过滤器CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _"(*.txt)|*.txt|Batch Files (*.bat)|*.bat" 指定缺省的过滤器CommonDialog1.FilterIndex = 2 显示“打开”对话框CommonDialog1.ShowOpen 显示选定文件的名字MsgBox CommonDialog1.FileName Exit Sub ErrHandler: 用户按了“取消”按钮Exit Sub End Subvb中通用对话框FilterIndex功能是指定缺省的过滤器为"*.txt"。
VB中通用对话框小问题?
如果是VB那个通过对话框控件,要得到路径可以通过将FileName里的FileTitle分离出去得到Private Sub Command1_Click() CommonDialog1.ShowSave MsgBox CommonDialog1.FileName 这个CommonDialog1.FileName是包含文件名的全路径,CommonDialog1.FileTitle是文件名,二都用字符串运算可以得到路径End Sub我认为只要路径的情况,更好的作法是用系统的路径选择对话框Private Sub Command1_Click() Dim theApp As Object Dim Path As Object Set theApp = CreateObject("Shell.application") Set Path = theApp.BrowseForFolder(0, "choose", 0, 17) MsgBox Path.items.Item.PathEnd Sub这样就直接得到路径了。