📄 nav.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00B45829&
Height = 180
Left = 3525
TabIndex = 1
Top = 2325
Width = 780
End
Begin VB.Image imgNavMidSplit
Height = 435
Left = 4440
Picture = "NAV.frx":5BB4B
Top = 1800
Width = 30
End
Begin VB.Label lblInfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "信息中心"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00B45829&
Height = 180
Left = 4425
TabIndex = 2
Top = 2325
Width = 780
End
Begin VB.Image imgHeaderLeft
Height = 1050
Left = 495
Picture = "NAV.frx":5DC4C
Top = 675
Width = 5535
End
Begin VB.Image imgHeaderCenter
Height = 1050
Left = 6165
Picture = "NAV.frx":6527E
Stretch = -1 'True
Top = 225
Width = 615
End
Begin VB.Image imgHeaderRight
Height = 1050
Left = 6930
Picture = "NAV.frx":67366
Top = 495
Width = 2250
End
Begin VB.Image imgNavHeader
Height = 480
Left = 900
Picture = "NAV.frx":6B865
Top = 4545
Width = 2880
End
Begin VB.Image imgNavBackground
Height = 15
Left = 480
Picture = "NAV.frx":6EBF0
Stretch = -1 'True
Top = 2400
Width = 2880
End
Begin VB.Image imgNavMidLeft
Height = 435
Left = 3600
Picture = "NAV.frx":70D55
Top = 1800
Width = 195
End
Begin VB.Image imgNavMidCenter
Height = 435
Left = 3960
Picture = "NAV.frx":72F1C
Stretch = -1 'True
Top = 1800
Width = 375
End
Begin VB.Line linSplit
BorderColor = &H00C0C0C0&
BorderStyle = 3 'Dot
X1 = 5040
X2 = 5040
Y1 = 1920
Y2 = 3240
End
End
End
Attribute VB_Name = "NAV"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
End Sub
Private Sub Form_Load()
'me.WindowState = 2
Me.Icon = MDI.Icon
Me.Move 0, 0, MDI.ScaleWidth, MDI.ScaleHeight
'Dim i As Integer
'For i = 0 To sButton.Count - 1
' sButton(i).MousePointer = 0
'Next
Call cmdNav_Click(1)
'===加载媒体广告
' If Login.Lrst.Fields("ADFLAG") = 0 Then
' Me.linAd.Visible = False
' Me.FrameMedia.Visible = False
' End If
' Dim i As Integer
' If RstMedia.RecordCount <> 0 Then
' RstMedia.MoveFirst
' For i = 1 To RstMedia.RecordCount
' If RstMedia.Fields("CLOSED") = 0 Then '显示
' lblLink.Item(i).Visible = True
' lblLink.Item(i).Caption = Trim(RstMedia.Fields("NAME"))
' lblLink.Item(i).Tag = Trim(RstMedia.Fields("WWW"))
' lblLink.Item(i).ToolTipText = "http://" & Trim(RstMedia.Fields("WWW"))
' Else
' imgLink.Item(i).Visible = False
' lblLink.Item(i).Visible = False
' End If
'
' RstMedia.MoveNext
' Next
' End If
Me.linAd.Visible = False
Me.FrameMedia.Visible = False
End Sub
Private Sub Form_Resize()
On Error Resume Next
If Me.WindowState = 1 Then Exit Sub
picMain.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
imgHeaderLeft.Move 0, 0
imgHeaderRight.Move picMain.Width - imgHeaderRight.Width, 0
imgHeaderCenter.Move imgHeaderLeft.Width, 0, picMain.Width - imgHeaderLeft.Width - imgHeaderRight.Width
imgNavHeader.Move 0, imgHeaderLeft.Height
'imgNavBackground.Move 0, imgNavHeader.Top + imgNavHeader.Height, imgNavHeader.Width, picMain.Height - imgHeaderLeft.Height - imgNavHeader.Height
imgNavBackground.Move 0, imgNavHeader.Top + imgNavHeader.Height, imgNavHeader.Width, 5000
imgNavBackground1.Move 0, imgNavBackground.Top + imgNavBackground.Height, imgNavHeader.Width, 5000
imgNavMidLeft.Move imgNavHeader.Width, imgHeaderLeft.Height
lblNav.Move imgNavMidLeft.Left + imgNavMidLeft.Width + 60, (imgNavMidLeft.Height - lblNav.Height) / 2 + imgNavMidLeft.Top
imgNavMidCenter.Move imgNavMidLeft.Width + imgNavMidLeft.Left, imgHeaderLeft.Height, picMain.Width - imgNavHeader.Width - imgNavMidLeft.Width, imgNavMidLeft.Height
imgNavMidSplit.Move imgNavHeader.Width + 8250, imgHeaderLeft.Height
lblInfo.Move imgNavMidSplit.Left + imgNavMidLeft.Width + 60, (imgNavMidLeft.Height - lblInfo.Height) / 2 + imgNavMidLeft.Top
linSplit.X1 = imgNavMidSplit.Left
linSplit.X2 = imgNavMidSplit.Left
linSplit.Y1 = imgNavMidSplit.Top + imgNavMidSplit.Height
linSplit.Y2 = picMain.Height
cmdNav(0).Move 135, imgNavHeader.Top + imgNavHeader.Height + 120
Dim i As Integer
For i = 1 To cmdNav.Count - 1
cmdNav(i).Move 135, cmdNav(i - 1).Top + cmdNav(i - 1).Height + 30
Next
For i = 0 To Frame.Count - 1
Frame(i).Move imgNavMidLeft.Left, imgNavMidLeft.Top + imgNavMidLeft.Height, 8250, picMain.Height - imgNavMidLeft.Top - imgNavMidLeft.Height
Report(i).Move linSplit.X1 + 60, imgNavMidCenter.Top + imgNavMidCenter.Height + 60, Me.ScaleWidth - Report(i).Left - 60, picMain.Height - imgNavMidLeft.Top - imgNavMidLeft.Height - 120
Next
linAd.X1 = 300
linAd.X2 = Frame(1).Width - 300
linAd.Y1 = 6400
linAd.Y2 = 6400
FrameMedia.Move (Frame(1).Width - FrameMedia.Width) / 2, 6500
End Sub
Private Sub cmdNav_Click(Index As Integer)
Dim i As Integer
For i = 0 To cmdNav.Count - 1
If cmdNav(i).Selected = True Then
cmdNav(i).Selected = False
Frame(i).Visible = False
Report(i).Visible = False
End If
Next
cmdNav(Index).Selected = True
Frame(Index).Visible = True
Report(Index).Visible = True
End Sub
Private Sub imgHeaderCenter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' If Button = 2 Then Me.PopupMenu MDI.MnuWindows
End Sub
'===帮助======
Private Sub imgHeaderRight_Click()
' On Error GoTo DealErr
'
' Dim strPath As String
' strPath = App.Path + "\Help\易库.chm"
' ShellExecute 0, "", strPath, "", "", 1
'
'Exit Sub
'
'DealErr:
'
' MsgErr "帮助文件"
End Sub
Private Sub imgHeaderRight_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgHeaderRight.MousePointer = 99
imgHeaderRight.MouseIcon = MDI.Image.ListImages.Item("Hand").Picture
End Sub
'Private Sub lblLink_Click(Index As Integer)
' On Error GoTo DealErr
'
' Select Case Index
'
' Case 1: Call ShellExecute(MDI.hWnd, "open", lblLink.Item(1).Tag, vbNullString, vbNullString, &H0)
' Case 2: Call ShellExecute(MDI.hWnd, "open", lblLink.Item(2).Tag, vbNullString, vbNullString, &H0)
' Case 3: Call ShellExecute(MDI.hWnd, "open", lblLink.Item(3).Tag, vbNullString, vbNullString, &H0)
' Case 4: Call ShellExecute(MDI.hWnd, "open", lblLink.Item(4).Tag, vbNullString, vbNullString, &H0)
' Case 5: Call ShellExecute(MDI.hWnd, "open", lblLink.Item(5).Tag, vbNullString, vbNullString, &H0)
' Case 6: Call ShellExecute(MDI.hWnd, "open", lblLink.Item(6).Tag, vbNullString, vbNullString, &H0)
' Case 7: Call ShellExecute(MDI.hWnd, "open", lblLink.Item(7).Tag, vbNullString, vbNullString, &H0)
' Case 8: Call ShellExecute(MDI.hWnd, "open", lblLink.Item(8).Tag, vbNullString, vbNullString, &H0)
' Case 9: Call ShellExecute(MDI.hWnd, "open", lblLink.Item(9).Tag, vbNullString, vbNullString, &H0)
'
' End Select
'
' Exit Sub
'
'
'DealErr:
' MsgErr "打开我的助手"
'
'End Sub
Private Sub lblRpt1_Click(Index As Integer)
On Error Resume Next
Select Case Index
Case 1 '仓库出库明细表
frmReport.ZOrder
Case 2
frmRptTimePos.ZOrder
End Select
End Sub
'===基础资料报表====
Private Sub lblRpt2_Click(Index As Integer)
On Error Resume Next
Select Case Index
End Select
End Sub
Private Sub sButton_Click(Index As Integer)
On Error Resume Next
Select Case Index
Case 0 '员工资料
frmEmployee.ZOrder
Case 1 '休假资料
frmVac.ZOrder
Case 7 '班次资料
frmClass.ZOrder
Case 3 '排班资料
frmViewClass.ZOrder
Case 4 '请假登记
frmLeave.ZOrder
Case 5
frmAddClass.ZOrder
Case 6
frmUser.ZOrder
Case 8
frmSetVac.ZOrder
Case 18
frmSetClass.ZOrder
Case 24
frmKQJData.ZOrder
Case 29
frmKQJConfig.ZOrder
Case 30
frmCardConfig.ZOrder
End Select
NAV.ZOrder 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -