一直用vc,现在想学vb,有几个简单问题请教(今天结贴!

Question

1:
 在vb主窗体
 连按两下alt+a 双击Visual Basic 6 Resource Editor 使其加载
工具栏里就多出来一个绿色的Resource Editor
2 在vb主窗体
 连按两下alt+a 选择向导……加载
3
在Module
public 一个全变量 
或 函数传递如：
form1里
Private Sub Form_Load()form2.show
form2.aaa "哈哈"End Sub
form2
Public Sub aaa(bbb As String)
MsgBox bbb
End Sub4引用CommonDialog 控件
ShowSave

Answer 1

你问题的例子
http://211.141.67.12:88/vb/data.zip这个例子可不只100分

Answer 2

你所说的在VB中大部分都有现成的控件…！！！
要不然就不会称VB是入门者的首先语言了…！！！
VB与VC一起可以调用系统阿API函数…！！！
在VB中只要声明一下就可以引用了…！！！
API的声明VB也提供了一个专用的工具，很方便的…！！！

Answer 3

可以用调用API的方法
不需要控件如果你想使它能预览图形文件
可参考：http://go6.163.com/910grtd/vb/wdzp/MyOpenDlg.htm'写在一个模块中：
Option Explicit
Public Declare Function GetOpenFileName _
        Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
        (pOpenfilename As OPENFILENAME) As Long
Public Declare Function GetSaveFileName _
        Lib "comdlg32.dll" Alias "GetSaveFileNameA" _
        (pOpenfilename As OPENFILENAME) As LongPublic 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 Const OFN_HIDEREADONLY = &H4 '隐藏只读打开
Public Const OFN_READONLY = &H1 '只读打开为选中
Public Const OFN_OVERWRITEPROMPT = &H2 '覆盖时提示
Public Const OFN_ALLOWMULTISELECT = &H200 '多个选中
Public Const OFN_EXPLORER = &H80000 '资源管理器Public Function ShowOpen(MehWnd As Long, _
        FileOpen As String, _
        Optional Title As String = "打开：", _
        Optional Filter As String = vbNullChar + vbNullChar, _
        Optional FilterIndex As Long = 0, _
        Optional StartDir As String = vbNullChar, _
        Optional flags As Long = OFN_HIDEREADONLY) As Long
    Dim OpenFN As OPENFILENAME
    Dim Rc As Long
    
    With OpenFN
        .hwndOwner = MehWnd
        .hInstance = App.hInstance
        .lpstrTitle = Title
        .lpstrFilter = Filter
        .nFilterIndex = FilterIndex
        .lpstrInitialDir = StartDir
        .lpstrFile = String$(256, 0)
        .nMaxFile = 255
        .lpstrFileTitle = .lpstrFile
        .nMaxFileTitle = 255
        .flags = flags
        .lStructSize = Len(OpenFN)
        
    End With
    
    Rc = GetOpenFileName(OpenFN)
    
    If Rc Then
        FileOpen = Left$(OpenFN.lpstrFile, OpenFN.nMaxFile)
        ShowOpen = True
        
    Else
        ShowOpen = False
        
    End If
    
End FunctionPublic Function ShowSave(MehWnd As Long, _
        FileSave As String, _
        Optional Title As String = "保存：", _
        Optional Filter As String = vbNullChar + vbNullChar, _
        Optional FilterIndex As Long = 0, _
        Optional StartDir As String = vbNullChar, _
        Optional flags As Long = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT) As Long
    Dim SaveFN As OPENFILENAME
    Dim Rc As Long
    
    With SaveFN
        .hwndOwner = MehWnd
        .hInstance = App.hInstance
        .lpstrTitle = Title
        .lpstrFilter = Filter
        .nFilterIndex = FilterIndex
        .lpstrInitialDir = StartDir
        .lpstrFile = FileSave + String$(255, Chr$(0))
        .nMaxFile = Len(.lpstrFile)
        .lpstrFileTitle = .lpstrFile
        .nMaxFileTitle = 255
        .flags = flags
        .lStructSize = Len(SaveFN)
        
    End With
    
    Rc = GetSaveFileName(SaveFN)
    
    If Rc Then
        FileSave = Left$(SaveFN.lpstrFile, SaveFN.nMaxFile)
        ShowSave = True
        
    Else
        ShowSave = False
        
    End If
    
End Function