End Sub

 

Private Sub mnuHelpContents_Click()

    Dim nRet As Integer

    '如果这个工程没有帮助文件，显示消息给用户

    '可以在"工程属性"对话框中为应用程序设置帮助文件

    If Len(App.HelpFile) = 0 Then

        MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption

    Else

        On Error Resume Next

        nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)

        If Err Then

            MsgBox Err.Description

        End If

    End If

End Sub

 

Private Sub mnuHelpSearch_Click()

    Dim nRet As Integer

    '如果这个工程没有帮助文件，显示消息给用户

    '可以在"工程属性"对话框中为应用程序设置帮助文件

    If Len(App.HelpFile) = 0 Then

        MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption

    Else

        On Error Resume Next

        nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)

        If Err Then

            MsgBox Err.Description

        End If

    End If

End Sub

 

Private Sub mnuWindowArrangeIcons_Click()

    Me.Arrange vbArrangeIcons

End Sub

 

Private Sub mnuWindowCascade_Click()

    Me.Arrange vbCascade

End Sub

Private Sub mnuWindowNewWindow_Click()

    'To Do

    MsgBox "此处添加"新建窗口"代码！"

End Sub

 

Private Sub mnuWindowTileHorizontal_Click()

    Me.Arrange vbTileHorizontal

End Sub

 

Private Sub mnuWindowTileVertical_Click()

    Me.Arrange vbTileVertical

End Sub

                  

Private Sub mnuViewRefresh_Click()

    'To Do

    MsgBox "此处添加"刷新"代码！"

End Sub

 

Private Sub mnuEditCopy_Click()

    'To Do

    MsgBox "此处添加"复制"代码！"

End Sub

 

Private Sub mnuEditCut_Click()

    'To Do

    MsgBox "此处添加"剪切"代码！"

End Sub

 

Private Sub mnuEditPaste_Click()

    'To Do

    MsgBox "此处添加"粘贴"代码！"

End Sub

 

Private Sub mnuEditPasteSpecial_Click()

    'To Do

    MsgBox "此处添加"特殊粘贴"代码！"

End Sub

 

Private Sub mnuEditUndo_Click()

    'To Do

    MsgBox "此处添加"撤消"代码！"

End Sub

 

Private Sub mnuFileOpen_Click()

    Dim sFile As String

    With dlgCommonDialog

        'To Do

        '设置 common dialog 控件的标志和属性

        .Filter = "所有文件 (*.*)|*.*"

        .ShowOpen

        If Len(.filename) = 0 Then

            Exit Sub

        End If

        sFile = .filename

    End With

    'To Do

    '处理打开的文件

End Sub

 

Private Sub mnuFileClose_Click()

    'To Do

    MsgBox "此处添加"关闭"代码！"

End Sub

 

Private Sub mnuFileSave_Click()

    'To Do

    MsgBox "此处添加"保存"代码！"

End Sub

 

Private Sub mnuFileSaveAs_Click()

    'To Do

    '在调用 ShowSave 之前设置 common dialog 控件

    dlgCommonDialog.ShowSave

End Sub

 

Private Sub mnuFileSaveAll_Click()

    'To Do

    MsgBox "此处添加"全部保存"代码！"

End Sub

 

Private Sub mnuFileProperties_Click()

    'To Do

    MsgBox "此处添加"属性"代码！"

End Sub

 

Private Sub mnuFilePageSetup_Click()

    dlgCommonDialog.ShowPrinter

End Sub

 

Private Sub mnuFilePrintPreview_Click()

    'To Do

    MsgBox "此处添加"打印预览"代码！"

End Sub

 

Private Sub mnuFilePrint_Click()

    'To Do

    MsgBox "此处添加"打印"代码！"

End Sub

 

Private Sub mnuFileSend_Click()

    'To Do

    MsgBox "此处添加"发送"代码！"

End Sub

 

Private Sub mnuFileMRU_Click(Index As Integer)

    'To Do

    MsgBox "此处添加"MRU"代码！"

End Sub

 

Private Sub mnuFileExit_Click()

    '卸载窗体

    Unload Me

End Sub

 

Private Sub mnuFileNew_Click()

    LoadNewDoc

End Sub

   '模块文件中的响应代码

Private Sub Form_Load()

    Form_Resize

End Sub

 

Private Sub Form_Resize()

    On Error Resume Next

    txtText.Move 100, 100, Me.ScaleWidth - 200, Me.ScaleHeight - 200

End Sub

1.5  小  结

本章通过几个简单的应用程序示例揭开了Visual Basic 6.0的神秘面纱，让用户对Visual Basic 6.0下的可视化编程有一个感性认识，为今后的学习打下坚实的基础。

通过本章的学习，读者基本上可以领会Visual Basic 6.0到底是干什么的，如何学习它。但是，更加深入的东西还是需要读者在编程实践中自己去体会，在今后的学习中自己去领悟，在此就不加赘述了。