Tham khảo tài liệu 'tự học visual basic và bài tập thực hành part 9', 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ả | set the top If Then tvTree View .Top Else picTitles. Height End If set the height If Then - Else - End If End Sub Private Sub tbToolBar_ButtonClick ByVal Button As On Error Resume Next Select Case Case Back T0D0 Add Back button code. MsgBox Add Back button code. Case Forward T0D0 Add Forward button code. MsgBox Add Forward button code. 187 Case Cut mnuEditCut_Click Case Copy mnuEdftCopy_Click Case Paste mnuEditPaste_Click Case Delete mnuFileDelete_Click Case Properties mnuFileProperties_Click Case View Large Icons Ivwlcon Case View Small Icons IvwSmalllcon Case View List IvwList Case View Details IvwReport End Select End Sub Private Sub mnuHelpAbout_Click MsgBox Version . End Sub Private Sub mnuHelpSearchForHelpOn_Click Dim nRet As Integer if there is no helpfile tor 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 188 associated with this project. vblnformation Else On Error Resume Next nRet OSWinHelp 261 0 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 .
