不用commondialog控件如何弹出打开对话框?

Question

有没有什么对象可以直接引用的?谢谢

Answer 1

用msgbox啊 
mymsg = MsgBox("对话框内容", vbOKCancel, "对话框标题")

Answer 2

用API。VB资料->查询“ 利用API实现COMMON组件 ”；＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习、交流、源码、工具下载网站，欢迎大家访问！
http://www.j2soft.cn/

Answer 3

怎么能没有呢，是在VB资料里搜索：利用API实现COMMON组件

Answer 4

下面介绍如何使用Window API显示一个“打开”的对话框：把下面的内容放到一个模块内:
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
        "GetOpenFileNameA" (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在调用对话框的按钮的click事件输入下面代码：Private Sub FileOpen_Click()
    Dim ofn As OPENFILENAME
    Dim rtn As String    ofn.lStructSize = Len(ofn)
    ofn.hwndOwner = Me.hWnd
    ofn.hInstance = App.hInstance
    ofn.lpstrFilter = "所有文件"
    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)    If rtn >= 1 Then
        msgbox "你打开的是:" & ofn.lpstrFile
    Else
        msgbox  "按了取消"
    End If
End Sub

Answer 5

CommonDialog可以用CreateObject创建的.Set xx = CreateObject("MSComDlg.CommonDialog")
xx.showopen

Answer 6

http://www.vbaccelerator.com/home/VB/Code/Libraries/Common_Dialogs/Common_Dialog_Direct/VB6_Common_Dialog_Direct_Full_Source.asp看看这个