求 vb 6.0 打开文件对话框 操作控件和完整代码。

Question

求 vb 6.0 打开文件对话框 操作控件和完整代码。
我在VB60 里似乎没找到commondialog控件啊，它跑那儿去了？
commondialog控件啊！！！我找不到VB60里那有？添加不上啊！
--------
找到是找到了，可是该死的VB60以 控件不可注册的理由又把我踢了出来！
Comdlg32.dll 有点欠注册啊。

Answer 1

Option Explicit

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 Sub

CommonDialog æŽ§ä»¶è§:

Answer 2

房主试一下这个代码，不用添加commondialog控件，直接API调用
'下面这段代码用API打开文件对话框的声明.
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
''''''''''''''''''''上面这段代码用于声明用API打开文件对话框的声明.

Private Sub Command1_Click()
Dim ofn As OPENFILENAME
Dim rtn As String
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Me.hwnd
ofn.hInstance = App.hInstance
ofn.lpstrFilter = "MDB数据库文件(*.mdb)" & Chr(0) & "*.MDB" & Chr(0)'设置文件格式，你可以自己修改
ofn.lpstrFile = Space(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = App.Path'默认路径
ofn.lpstrTitle = "打开文件"对话框标题
ofn.flags = 6148
rtn = GetOpenFileName(ofn)
'GetOpenFileName打开文件，如果是要保存，使用GetSaveFileName
If rtn >= 1 Then
print = ofn.lpstrFile'返回文件路径
End If
End Sub