偶想这个要用到Common Dialog控件 ,打开工程(project)>>>部件(components) , 勾选Microsoft Common Dialog Control 6.0 点击确定。
在窗体上画一个CommonDialog控件(默认名为CommonDialog,并且在他的Filter属性窗口里面写入“数据库文件(*.mdb)|*.mdb ” 或者 在代码里面写入:
CommonDialog1.Filter = "数据库文件(*.mdb)|*.mdb 。
假设窗体上有一个Command1按钮 , 在他的click事件里面加入代码: CommonDialog1.ShowOpen 这样的话就可以在点击Command1的时候打开一个打开文件的对话框(就是你说的用户选择界面),然后你就可以找需要的文件了。
但实际上CommonDialog控件并不是真正的打开文件,他只是把你在“用户选择界面”所选择的想要打开的文件的路径存了起来,存在哪呢,就存在CommonDialog1.FileName里面 如果你想真正的把你选的文件打开,就要另外写代码了。 首先 大家要定义一个打开文件的Function(Function和Sub在vb里都叫做过程,不同的是Function过程有返回值,而Sub过程没有返回值)代码如下:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 括号里都是这个Function的参数和相应的数据类型,不想深究的话可以不管他 然后 大家就要在合适的时候调用这个过程 综上所述 完整的代码 如下:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() CommonDialog1.ShowOpen ShellExecute Me.hWnd, "open", CommonDialog1.FileName, "", "", 1 End Sub