Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
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 Err.Description 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 App.HelpFile 0 Then MsgBox Unable to display Help Contents. There is no Help associated with this project. vblnformation 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 mnuWindowArrangelcons_Ctick Me.Arrange vbArrangelcons End Sub Private Sub mnuWindowTileVertical_Click Me.Arrange vbTileVertical End Sub 210 Private Sub mnuWindowTileHorizontal_Click Me.Arrange vbTileHorizontal End Sub Private Sub mnuWindowCascade_Click Me.Arrange 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 mnuViewStatusBar.Checked Not mnuViewStatusBar.Checked sbStatusBar.Visible mnuViewStatusBar.Checked End Sub Private Sub mnuViewToolbar_Click mnuViewToolbar.Checked Not mnuViewToolbar.Checked 211 tbToolBar.Visible 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 ActiveForm.rtfText.SelRTF Clipboard.GetText End Sub Private Sub mnuEditCopy_Click On Error Resume Next Clipboard.SetText ActiveForm.rtfText.SeIRTF End Sub Private Sub mnuEditCut_Click On Error Resume Next Clipboard.SetText AativeForm.rtfText.SelRTF ActiveForm.rttText.SelText vbNullString End Sub Private Sub .
