📄 背景.frm
字号:
frmMain.mnuDocuPrn_Click
End If
Case Is = 4
sSecondFunctions = ""
If mnu_right(3, 1) Then
frmMain.mnuDaybook_Click
End If
Case Is = 5
sSecondFunctions = ""
If mnu_right(3, 2) Then
frmMain.mnuIccalculate_Click
End If
Case Is = 6
sSecondFunctions = "凭证批处理" _
& Chr(9) & "凭证查询"
Case Is = 7
sSecondFunctions = "账表定义" _
& Chr(9) & "资金状况表" _
& Chr(9) & "各银行存款余额动态表" _
& Chr(9) & "客户资金余额明细表" _
& Chr(9) & "客户资金动态汇总表" _
& Chr(9) & "账户余额日报表" _
& Chr(9) & "报警表" _
& Chr(9) & "序时账" _
& Chr(9) & "贷款账" _
& Chr(9) & "账户利息明细表" _
& Chr(9) & "账户利息汇总表" _
& Chr(9) & "单位利息汇总表" _
& Chr(9) & "贷款利息表" _
& Chr(9) & "内部对账单"
Case Else
sSecondFunctions = ""
End Select
For i = 0 To Me.lblSecondFunction2.Count - 1
Me.lblSecondFunction2(i).Visible = False
Me.linRight(i).Visible = False
Next
Dim iCurrentCtlRightIndex As Integer
If sSecondFunctions <> "" Then
iCurrentCtlRightIndex = 0
Else
iCurrentCtlRightIndex = -1
End If
If iCurrentCtlRightIndex <> -1 Then
If iPreCtlRightIndex = -1 Then
lPerWidth = Me.imgCtlRight(iCurrentCtlRightIndex).Width / 25
With Me.picCtlRight(iCurrentCtlRightIndex):
If Not .Visible Then
If iPreFirstFunctionIndex <> -1 Then
Me.lblFirstFunction(iPreFirstFunctionIndex).ForeColor = RGB(0, 0, 0)
End If
Me.lblFirstFunction(Index).ForeColor = RGB(255, 255, 255)
.Top = Me.imgCtlMain.Top
.Left = Me.imgCtlMain.Left + Me.imgCtlMain.Width - 15
.Width = 1
.Visible = True
For i = 1 To 25
.Width = .Width + lPerWidth
Me.imgCtlRight(iCurrentCtlRightIndex).Left = .ScaleWidth - Me.imgCtlRight(0).Width
Next
.Width = Me.imgCtlRight(0).Width
Me.imgCtlRight(iCurrentCtlRightIndex).Left = 0
End If
End With
iCurrentFirstFunctionIndex = Index
Else
If iPreFirstFunctionIndex = Index Then
'收回
Me.lblFirstFunction(iPreFirstFunctionIndex).ForeColor = RGB(0, 0, 0)
If Me.picCtlRight(0).Visible Then
iPreFirstFunctionIndex = -1
bColor = False
GoTo GoLeft
End If
Else
Me.lblFirstFunction(iPreFirstFunctionIndex).ForeColor = RGB(0, 0, 0)
iCurrentFirstFunctionIndex = Index
End If
Me.lblFirstFunction(Index).ForeColor = RGB(255, 255, 255)
End If
iPreCtlRightIndex = iCurrentCtlRightIndex
Else
iCurrentCtlRightIndex = -1
If Not iPreCtlRightIndex = -1 Then
Me.lblFirstFunction(iPreFirstFunctionIndex).ForeColor = RGB(0, 0, 0)
GoLeft:
If iPreCtlRightIndex <> -1 Then
lPerWidth = Me.imgCtlRight(iPreCtlRightIndex).Width / 25
With Me.picCtlRight(iPreCtlRightIndex):
For i = 1 To 25
Me.imgCtlRight(iPreCtlRightIndex).Left = .ScaleWidth - Me.imgCtlRight(iPreCtlRightIndex).Width
If .Width - lPerWidth <= 0 Then
.Width = 1
Else
.Width = .Width - lPerWidth
End If
Next
.Visible = False
End With
End If
Else
If iPreFirstFunctionIndex <> -1 Then
If iPreFirstFunctionIndex = Index Then
'收回
Me.lblFirstFunction(iPreFirstFunctionIndex).ForeColor = RGB(0, 0, 0)
If Me.picCtlRight(0).Visible Then
iPreFirstFunctionIndex = -1
bColor = False
GoTo GoLeft
End If
Else
Me.lblFirstFunction(iPreFirstFunctionIndex).ForeColor = RGB(0, 0, 0)
End If
End If
End If
If bColor Then
Me.lblFirstFunction(Index).ForeColor = RGB(255, 255, 255)
End If
iPreCtlRightIndex = -1
End If
lblFirstFunction(Index).FontUnderline = False
If bColor Then
iPreFirstFunctionIndex = Index
End If
'根据Index值赋值二级功能字符串,功能之间以chr(9)分隔
'----------- 请将如下代码修改为从资源文件提取文字信息
If sSecondFunctions <> "" Then
SortSecondFunction sSecondFunctions
End If
End Sub
Private Sub lblFirstFunction_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Not iPreFirstFunctionIndex = Index) And (Not iPreMoveFirstFunctionIndex = Index) Then
If iPreMoveFirstFunctionIndex <> -1 Then
lblFirstFunction(iPreMoveFirstFunctionIndex).FontUnderline = False
If Not iPreMoveFirstFunctionIndex = iPreFirstFunctionIndex Then
lblFirstFunction(iPreMoveFirstFunctionIndex).ForeColor = RGB(0, 0, 0)
End If
End If
If Index = 3 Or Index = 4 Or Index = 5 Then
If mnu_right(3, Index - 3) Then
lblFirstFunction(Index).FontUnderline = True
lblFirstFunction(Index).ForeColor = RGB(0, 0, 255)
Else
lblFirstFunction(Index).ForeColor = RGB(192, 192, 192)
End If
Else
lblFirstFunction(Index).FontUnderline = True
lblFirstFunction(Index).ForeColor = RGB(0, 0, 255)
End If
iPreMoveFirstFunctionIndex = Index
Else
If (Not iPreMoveFirstFunctionIndex = Index) And (Not iPreMoveFirstFunctionIndex = -1) Then
lblFirstFunction(iPreMoveFirstFunctionIndex).FontUnderline = False
If Not iPreMoveFirstFunctionIndex = iPreFirstFunctionIndex Then
lblFirstFunction(iPreMoveFirstFunctionIndex).ForeColor = RGB(0, 0, 0)
End If
End If
iPreMoveFirstFunctionIndex = Index
End If
End Sub
Private Sub lblSecondFunction2_Click(Index As Integer)
Me.lblSecondFunction2(Index).ForeColor = RGB(255, 255, 255)
If Not mnu_right(IIf(iCurrentFirstFunctionIndex > 4, iCurrentFirstFunctionIndex - 3, iCurrentFirstFunctionIndex), IIf(iCurrentFirstFunctionIndex = 6, Index + 3, Index)) Then Exit Sub
Select Case iCurrentFirstFunctionIndex
'判断当前一级功能
Case 0
'调用二级功能
Select Case Index
Case 0
frmMain.mnuIntrSet_Click
Case 1
frmMain.mnuCadSet_Click
Case 2
frmMain.mnuEntDef_Click
Case 3
frmMain.mnuAccDef_Click
Case 4
frmMain.mnuAccCode_Click
Case 5
frmMain.mnuFreq_Click
Case 6
frmMain.mnuOption_Click
End Select
Case 1
Select Case Index
Case 0
frmMain.passbook1_Click
Case 1
frmMain.take1_Click
Case 2
frmMain.inside_deposit1_Click
Case 3
frmMain.intake1_Click
Case 4
frmMain.bankloan1_Click
Case 5
frmMain.inloan1_Click
Case 6
frmMain.inlend1_Click
Case 7
frmMain.bankloan11_Click
Case 8
frmMain.inloan11_Click
Case 9
frmMain.intake11_Click
Case 10
frmMain.bankloan12_Click
Case 11
frmMain.inloan12_Click
Case 12
frmMain.intake12_Click
Case 13
frmMain.external_Click
Case 14
frmMain.inside_settle1_Click
Case 15
frmMain.mnulxd_Click
Case 16
frmMain.advice1_Click
End Select
Case 2
Select Case Index
Case 0
frmMain.passbook2_Click
Case 1
frmMain.take2_Click
Case 2
frmMain.inside_deposit2_Click
Case 3
frmMain.intake2_Click
Case 4
frmMain.bankloan2_Click
Case 5
frmMain.inloan2_Click
Case 6
frmMain.inlend2_Click
Case 7
frmMain.bankloanc_Click
Case 8
frmMain.inloanc_Click
Case 9
frmMain.inlendc_Click
Case 10
frmMain.bankloani_Click
Case 11
frmMain.inloani_Click
Case 12
frmMain.inlendi_Click
Case 13
frmMain.inside_settle2_Click
Case 14
frmMain.external2_Click
Case 15
frmMain.mnuInterestdoc_Click
Case 16
frmMain.mnuInterestadv_Click
Case 17
frmMain.advice2_Click
End Select
Case 6
Select Case Index
Case 0
frmMain.mnuVoucher_Click
Case 1
frmMain.mnuCfind_Click
End Select
Case 7
Select Case Index
Case 0
frmMain.mnuAccdefine_Click
Case 1
frmMain.mnuFund_Click
Case 2
frmMain.mnuPassbook_Click
Case 3
frmMain.mnuClientlist_Click
Case 4
frmMain.mnuClientgather_Click
Case 5
frmMain.mnuAdaily_Click
Case 6
frmMain.mnuAlarm_Click
Case 7
frmMain.mnuDays_Click
Case 8
frmMain.mnuInterestLoan_Click
Case 9
frmMain.mnuInterestlist_Click
Case 10
frmMain.mnuIterestgather_Click
Case 11
frmMain.mnuInterSum_Click
Case 12
frmMain.mnuALoan_Click
Case 13
frmMain.in_bill2_Click
End Select
End Select
Me.lblSecondFunction2(Index).ForeColor = RGB(0, 0, 0)
lblFirstFunction_Click iCurrentFirstFunctionIndex
End Sub
Private Sub lblSecondFunction2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
For i = 0 To Me.lblSecondFunction2.Count - 1
With Me.lblSecondFunction2(i):
If Not i = Index Then
If .Visible Then
If .ForeColor <> RGB(0, 0, 0) Then
.ForeColor = RGB(0, 0, 0)
End If
End If
End If
End With
If mnu_right(IIf(iCurrentFirstFunctionIndex > 4, iCurrentFirstFunctionIndex - 3, iCurrentFirstFunctionIndex), IIf(iCurrentFirstFunctionIndex = 6, Index + 3, Index)) Then
Me.lblSecondFunction2(Index).ForeColor = RGB(0, 0, 255)
Else
Me.lblSecondFunction2(Index).ForeColor = RGB(192, 192, 192)
End If
Next
iPreMoveFirstFunctionIndex = Index
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -