📄 choose.frm
字号:
VERSION 5.00
Begin VB.Form choose
BorderStyle = 1 'Fixed Single
Caption = "请选择……"
ClientHeight = 1455
ClientLeft = 45
ClientTop = 330
ClientWidth = 4365
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1455
ScaleWidth = 4365
StartUpPosition = 2 '屏幕中心
Begin VB.Label Label3
Caption = " 读 者"
Height = 255
Left = 2880
TabIndex = 2
Top = 1080
Width = 975
End
Begin VB.Label Label2
Caption = "管 理 员"
Height = 255
Left = 1680
TabIndex = 1
Top = 1080
Width = 975
End
Begin VB.Label Label1
Caption = "超级管理员"
Height = 255
Left = 480
TabIndex = 0
Top = 1080
Width = 975
End
Begin VB.Line Line4
BorderColor = &H00808080&
BorderWidth = 2
X1 = 480
X2 = 480
Y1 = 135
Y2 = 975
End
Begin VB.Line Line3
BorderColor = &H00808080&
BorderWidth = 2
X1 = 480
X2 = 1345
Y1 = 1005
Y2 = 1005
End
Begin VB.Line Line2
BorderColor = &H00E0E0E0&
BorderWidth = 2
X1 = 1365
X2 = 1365
Y1 = 1005
Y2 = 135
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
BorderWidth = 2
X1 = 495
X2 = 1365
Y1 = 120
Y2 = 120
End
Begin VB.Image Image1
Height = 855
Left = 495
Picture = "choose.frx":0000
Stretch = -1 'True
Top = 135
Width = 855
End
Begin VB.Line Line5
BorderColor = &H00808080&
BorderWidth = 2
X1 = 1695
X2 = 1695
Y1 = 150
Y2 = 990
End
Begin VB.Line Line6
BorderColor = &H00808080&
BorderWidth = 2
X1 = 1695
X2 = 2550
Y1 = 1020
Y2 = 1020
End
Begin VB.Line Line7
BorderColor = &H00E0E0E0&
BorderWidth = 2
X1 = 2580
X2 = 2580
Y1 = 1005
Y2 = 135
End
Begin VB.Line Line8
BorderColor = &H00E0E0E0&
BorderWidth = 2
X1 = 1710
X2 = 2550
Y1 = 135
Y2 = 135
End
Begin VB.Image Image2
Height = 855
Left = 1710
Picture = "choose.frx":047A
Stretch = -1 'True
Top = 150
Width = 855
End
Begin VB.Line Line9
BorderColor = &H00808080&
BorderWidth = 2
X1 = 2895
X2 = 2895
Y1 = 150
Y2 = 990
End
Begin VB.Line Line10
BorderColor = &H00808080&
BorderWidth = 2
X1 = 2895
X2 = 3745
Y1 = 1020
Y2 = 1020
End
Begin VB.Line Line11
BorderColor = &H00E0E0E0&
BorderWidth = 2
X1 = 3780
X2 = 3780
Y1 = 1005
Y2 = 135
End
Begin VB.Line Line12
BorderColor = &H00E0E0E0&
BorderWidth = 2
X1 = 2910
X2 = 3750
Y1 = 135
Y2 = 135
End
Begin VB.Image Image3
Height = 855
Left = 2910
Picture = "choose.frx":0853
Stretch = -1 'True
Top = 150
Width = 855
End
End
Attribute VB_Name = "choose"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
Line5.Visible = False
Line6.Visible = False
Line7.Visible = False
Line8.Visible = False
Line9.Visible = False
Line10.Visible = False
Line11.Visible = False
Line12.Visible = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path + "\" + "sa1.jpg")
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
Image2.Picture = LoadPicture(App.Path + "\" + "ad1.jpg")
Line5.Visible = False
Line6.Visible = False
Line7.Visible = False
Line8.Visible = False
Image3.Picture = LoadPicture(App.Path + "\" + "rd1.jpg")
Line9.Visible = False
Line10.Visible = False
Line11.Visible = False
Line12.Visible = False
End Sub
Private Sub Image1_Click()
Unload Me
Load csa
csa.Show
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.BorderColor = &H808080
Line2.BorderColor = &H808080
Line3.BorderColor = &HE0E0E0
Line4.BorderColor = &HE0E0E0
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path + "\" + "sa.jpg")
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.BorderColor = &HE0E0E0
Line2.BorderColor = &HE0E0E0
Line3.BorderColor = &H808080
Line4.BorderColor = &H808080
End Sub
Private Sub Image2_Click()
Unload Me
Load cad
cad.Show
End Sub
Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line7.BorderColor = &H808080
Line8.BorderColor = &H808080
Line5.BorderColor = &HE0E0E0
Line6.BorderColor = &HE0E0E0
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = LoadPicture(App.Path + "\" + "ad.jpg")
Line5.Visible = True
Line6.Visible = True
Line7.Visible = True
Line8.Visible = True
End Sub
Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line7.BorderColor = &HE0E0E0
Line8.BorderColor = &HE0E0E0
Line5.BorderColor = &H808080
Line6.BorderColor = &H808080
End Sub
Private Sub Image3_Click()
Unload Me
Load rdfrm
rdfrm.Show
End Sub
Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line11.BorderColor = &H808080
Line12.BorderColor = &H808080
Line9.BorderColor = &HE0E0E0
Line10.BorderColor = &HE0E0E0
End Sub
Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Picture = LoadPicture(App.Path + "\" + "rd.jpg")
Line9.Visible = True
Line10.Visible = True
Line11.Visible = True
Line12.Visible = True
End Sub
Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line11.BorderColor = &HE0E0E0
Line12.BorderColor = &HE0E0E0
Line9.BorderColor = &H808080
Line10.BorderColor = &H808080
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -