VB高速公路票据管理系统(九)

VB高速公路票据管理系统(九) rivate Sub mnuViewStatusBar_Click()
   mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
   StatusBar1.Visible = mnuViewStatusBar.Checked
End Sub

Private Sub mnuViewToolbar_Click()
 mnuViewToolbar.Checked = Not mnuViewToolbar.Checked
 Toolbar1.Visible = mnuViewToolbar.Checked
 
End Sub

Private Sub mnuWindowCascade_Click()
 Me.Arrange vbCascade
End Sub

Private Sub mnuWindowTileHorizontal_Click()
Me.Arrange vbTileHorizontal
End Sub

Private Sub mnuWindowTileVertical_Click()
Me.Arrange vbTileVertical
End Sub

Private Sub rpw_Click()
renpwfrm.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
   
   
    On Error Resume Next
    Select Case Button.Key
        Case "输入数据"
           data_Click
        Case "记录查询"
           find_Click
        Case "添加用户"
           adduser_Click
        Case "收费员信息"
           addsfy_Click
        Case "修改密码"
           rpw_Click
        Case "层叠"
           mnuWindowCascade_Click
        Case "横向平铺"
           mnuWindowTileHorizontal_Click
        Case "纵向平铺"
           mnuWindowTileVertical_Click
        Case "退出"
           exit_Click
        
End Select
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)

  On Error Resume Next
    Select Case Button.Key
        Case "输入数据"
           data_Click
        Case "记录查询"
           find_Click
        Case "修改密码"
           rpw_Click
        Case "层叠"
           mnuWindowCascade_Click
        Case "横向平铺"
           mnuWindowTileHorizontal_Click
        Case "纵向平铺"
           mnuWindowTileVertical_Click
        C

首页 上一页 6 7 8 9 10 下一页 尾页 9/10/10

VB高速公路票据管理系统(九)由免费论文网（www.jaoyuw.com）会员上传。