谁帮我解释下这段VB代码大概什么意思?

来源：百度知道 编辑：UC知道 时间：2024/05/06 07:23:35
这是一个简单的VB员工管理系统,谁帮我解释下,一小段也行,大概什么意思
Private Sub mnuAbout_Click()
frmAbout.Show vbModal, Me
End Sub

Private Sub mnuEmpmanager_Click()
frmEmployees.Show vbModal
End Sub

Private Sub mnuEmpQuery_Click()
frmEmployees.tblEmployees.Visible = False
frmEmployees.tlbPrint.Left = 30
frmEmployees.tlbExit.Left = frmEmployees.tlbPrint.Left + frmEmployees.tlbPrint.Width
frmEmployees.Caption = "员工查询"

frmEmployees.Show vbModal, Me
End Sub

Private Sub mnuExit_Click()
Unload Me
End Sub

Private Sub mnuLeavelQuery_Click()
frmLeavel.tblEmployees.Buttons("add").Visible = False

frmLeavel.tblEmployees.Buttons("delete").Visible = False
frmLeavel.tblEmployees.Buttons("modify").Visible = False

frmLeavel.tlbPrint.Left = 30
frmLeavel.tlbExit.Left = frmLeavel.tlbPr

Private Sub mnuAbout_Click() '在一个叫mnuAbout的菜单上单击
frmAbout.Show vbModal, Me '名为frmAbout的窗口就以VBMODAL的方式显示出来.
End Sub

Private Sub mnuEmpmanager_Click() '与上面的差不多,也是点菜单弹出窗口
frmEmployees.Show vbModal
End Sub

Private Sub mnuEmpQuery_Click() '单击菜单
frmEmployees.tblEmployees.Visible = False '窗体frmEmployees上的tblEmployees控件被设为不可见
frmEmployees.tlbPrint.Left = 30 '定tlbPrint控件离开窗体左边30
frmEmployees.tlbExit.Left = frmEmployees.tlbPrint.Left + frmEmployees.tlbPrint.Width 'tlbExit的离开窗体左边=tlbPrint左边距+它的宽度.
frmEmployees.Caption = "员工查询" '窗体标题改为员工查询

frmEmployees.Show vbModal, Me '以上设置好后显示窗体
End Sub

Private Sub mnuExit_Click() '点击该菜单关闭本窗口
Unload Me
End Sub

Private Sub mnuLeavelQuery_Click()
frmLeavel.tblEmployees.Buttons("add").Visible = False '窗体上的ADD的按钮设置为不可见

frmLeavel.tblEmployees.Buttons("delete")