如何添加文件选择对话框

Question

thanks.

Answer 1

Private Sub Command1_Click()
    '首先 要从工程 部件 中选择加载 Microsoft Common Dialog Control 6.0
    Me.CommonDialog1.DialogTitle = "open file"
    Me.CommonDialog1.Filter = "bmp files(*.bmp)|*.bmp|jpg files(*.jpg)|*.jpg|all files(*.*)|*.*"
    Me.CommonDialog1.InitDir = "c:\aaa.bmp"
    Me.CommonDialog1.FileName = "aaa.bmp"
    Me.CommonDialog1.ShowOpen
    MsgBox Me.CommonDialog1.FileName
End Sub

Answer 2

Public Const OFN_LONGNAMES = &H200000
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_EXPLORER = &H80000
Public Const OFN_OVERWRITEPROMPT = &H2Public 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 TypePublic Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongPrivate Sub picSetBack_Click()
On Error Resume Next
    Dim fName As String, sName As String, OfName As OPENFILENAME
    
    OfName.lStructSize = Len(OfName)
    OfName.hwndOwner = hWnd
    OfName.hInstance = App.hInstance
    OfName.lpstrFilter = "图片文件" & Chr(0) & "*.Bmp;*.jpg;*.jpeg;*.gif;*.ico"
    OfName.lpstrFile = Space(255) & Chr(0)
    OfName.nMaxFile = 256
    OfName.lpstrFileTitle = Space(255) & Chr(0)
    OfName.nMaxFileTitle = 256
    OfName.lpstrTitle = "选择图片..."
    OfName.flags = OFN_LONGNAMES + OFN_PATHMUSTEXIST + OFN_FILEMUSTEXIST + OFN_HIDEREADONLY
    
    If GetOpenFileName(OfName) Then
        Screen.MousePointer = 11
        DoEvents
        
        SaveSetting "OrientTelphone", "BackGround", "PathValue", OfName.lpstrFile
        SetBackGround
        lvTelphone.Refresh
        Screen.MousePointer = 0
    End If
End Sub这是通过API来打开的~~

Answer 3

'首先 要从工程 部件 中选择加载 Microsoft Common Dialog Control 6.0
'然后从工具箱将控件放到窗体上。
'写上如下代码:
Private Sub Command1_Click()
    Me.CommonDialog1.DialogTitle = "open file"
    Me.CommonDialog1.Filter = "bmp files(*.bmp)|*.bmp|jpg files(*.jpg)|*.jpg|all files(*.*)|*.*" '文件过滤器
    Me.CommonDialog1.InitDir = "c:\aaa.bmp"
    Me.CommonDialog1.FileName = "aaa.bmp"
    Me.CommonDialog1.ShowOpen
    MsgBox Me.CommonDialog1.FileName
End Sub

Answer 4

不要用API，API不知有多麻烦。

Answer 5

'首先 要从工程 部件 中选择加载 Microsoft Common Dialog Control 6.0

Answer 6

^_^!还是ryuginka(ryuginka) 的方法简单!

Answer 7

好，谢谢各位，我觉得用VB就是为了使用方便，如果再用API就显得没有理由。
因为本人是刚来的，分不够，请大家谅解。

Answer 8

api好,不需要附带控件,便于交流

Answer 9

sub open()
on error goto er
comdlg.CancelError=true
comdlg.Filter="all files|*.*|text files|*.txt|"
comdlg.InitDir="c:\"
comdlg.showopen
er:
end sub

Answer 10

'首先 要从工程 部件 中选择加载 Microsoft Common Dialog Control 6.0
    Me.CommonDialog1.DialogTitle = "open file"
    Me.CommonDialog1.Filter = "bmp files(*.bmp)|*.bmp|jpg files(*.jpg)|*.jpg|all files(*.*)|*.*"
    Me.CommonDialog1.InitDir = "c:\aaa.bmp"
    Me.CommonDialog1.FileName = "aaa.bmp"
    Me.CommonDialog1.ShowOpen
    MsgBox Me.CommonDialog1.FileName

Answer 11

工具箱，右键，添加Microsoft Common Dialog Control 
拖一个放在窗体上
使用的时候：
Sub Command1_click()
Dim FileName as string
On Error Goto ErrLine
CommonDialog1.Filter ="AAA|BBB" 'AAA指的是显示在对话框下面的文件提示信息，BBB指的是显示在对话框中的文件类型，如果有多种文件类型，可以用多个｜隔开
CommonDialog1.showopen   '打开“打开文件”对话框
FileNmae=CommonDialog1.FileName  '获得选中的文件
ErrLine:   '当用户在“打开文件”对话框中点“取消”会触发一个错误，需要处理
End Sub