tailieunhanh - Tự học Visual Basic và bài tập thực hành part 10

Tham khảo tài liệu 'tự học visual basic và bài tập thực hành part 10', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | If Err Then MsgBox End If End If End Sub Private Sub mnuHelpContents_Click Dim nRet As Integer if there is no helpfile for this project display a message to the user you can set the HelpFile for your application in the Project Properties dialog If Len 0 Then MsgBox Unable to display Help Contents. There is no Help associated with this project. vblnformation Else On Error Resume Next nRet OSWinHelp 3 0 If Err Then MsgBox End If End If End Sub Private Sub mnuWindowArrangelcons_Ctick vbArrangelcons End Sub Private Sub mnuWindowTileVertical_Click vbTileVertical End Sub 210 Private Sub mnuWindowTileHorizontal_Click vbTileHorizontal End Sub Private Sub mnuWindowCascade_Click vbCascade End Sub Private Sub mnuWindowNewWindow_Click LoadNewDoc End Sub Private Sub mnuViewWebBrowser_Click ToDo Add mnuViewWebBrowsecClick code. MsgBox Add mnuViewWebBrowser_Click code. End Sub Private Sub mnuViewOptions_Click T0D0 Add mnuViewOptions_Click code. MsgBox Add mnuViewOptions_Click code. End Sub Private Sub mnuViewRefresh_Click T0D0 Add mnuViewRefresh_Click code. MsgBox Add mnuViewRefresh Click code. End Sub Private Sub mnuViewStatusBar_Click Not End Sub Private Sub mnuViewToolbar_Click Not 211 mnuViewToolbar. Checked End Sub Private Sub mnuEditPasteSpecial_Click ToDo Add mnuEditPasteSpeciaLCIìck code. MsgBox Add mnuEditPasteSpeciaLCIick code. End Sub Private Sub mnuEditPaste_Click On Error Resume Next End Sub Private Sub mnuEditCopy_Click On Error Resume Next End Sub Private Sub mnuEditCut_Click On Error Resume Next vbNullString End Sub Private Sub .