how
Case 7
FrmXS.Show
Case 8
assist.Show
End Select
End Sub
Private Sub Tbar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
Case "Kscjfx"
FrmCCount.Show
Case "Bjfsdfx"
FrmBjfsdfx.Show
Case "Njfsdfx"
FrmNjfsdfx.Show
End Select
End Sub
Private Sub Tcxt_Click()
Unload Me
End Sub
Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
End Sub
Private Sub windowsC_Click()
MDIForm1.Arrange (vbCascade)
End Sub
Private Sub windowsV_Click()
MDIForm1.Arrange (vbVertical)
End Sub
Private Sub windwosH_Click()
MDIForm1.Arrange (vbHorizontal)
End Sub
Private Sub Xshmc_Click()
FrmXshmc.Show
End Sub
Private Sub Xsxjdak_Click()
FrmXsxjdak.Show
End Sub
Private Sub Xsxxgl_Click()
FrmXsxxgl.Show
End Sub
Private Sub Xsxxzhcx_Click()
FrmXsxxzhcx.Show
End Sub
Private Sub Xtbz_Click()
If Dir(App.Path & "\帮助文档.doc") = "" Then
MsgBox " 帮助文件丢失,请查找 帮助文档.doc 文件!" & Chr(13) & "然后将它存放在应用程序所在的目录。", , App.Title
Else
Dim Scr_hDC As Long
Dim StartDoc As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", App.Path & "\帮助文档.doc", "", "C:\", 1)
End If
End Sub
Private Sub Xtgl_Click()
FrmManage.Show
End Sub
Private Sub zhcjcx_Click()
FrmZhcjcx.Show
End Sub
Private Sub Zncjsr_Click()
FrmAddCj.Show vbModal, MDIForm1
End Sub