一个菜鸟级别的问题，大家都可以给意见！

Question

APIPublic 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 LongPublic Const SW_MAXIMIZE = 3ShellExecute 0, "open", yourfilename, "", "", SW_MAXIMIZE

Answer 1

用commondialog控件
picture1 is picturebox controlPrivate Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Bmp Files" & _
"(*.bmp)|*.bmp|Jpg Files (*.jpg)|*.jpg"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
picture1.picture=loadpicture( CommonDialog1.filename)
Exit SubErrHandler：
' 用户按了“取消”按钮
Exit Sub
End Sub