我想這個要用到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
我想這個要用到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