📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form VBSelect
Caption = "发动机资料收集1.0"
ClientHeight = 6000
ClientLeft = 135
ClientTop = 420
ClientWidth = 8670
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6000
ScaleWidth = 8670
WindowState = 2 'Maximized
Begin VB.PictureBox Picture2
Height = 735
Left = 0
ScaleHeight = 675
ScaleWidth = 4395
TabIndex = 7
Top = 0
Width = 4455
Begin VB.CommandButton command2
Caption = "增加"
Height = 732
Index = 1
Left = 1450
Picture = "Form1.frx":030A
Style = 1 'Graphical
TabIndex = 13
ToolTipText = "增加记录"
Top = 0
Width = 732
End
Begin VB.CommandButton command1
Caption = "下一个"
Height = 732
Index = 0
Left = 730
Picture = "Form1.frx":0614
Style = 1 'Graphical
TabIndex = 12
Top = 0
Width = 732
End
Begin VB.CommandButton command2
Caption = "上一个"
Height = 732
Index = 0
Left = 0
Picture = "Form1.frx":091E
Style = 1 'Graphical
TabIndex = 11
Top = 0
Width = 732
End
Begin VB.CommandButton command2
Caption = "删除"
Height = 732
Index = 2
Left = 2180
Picture = "Form1.frx":0C28
Style = 1 'Graphical
TabIndex = 10
ToolTipText = "删除记录"
Top = 0
Width = 732
End
Begin VB.CommandButton command2
Caption = "保存"
Enabled = 0 'False
Height = 732
Index = 3
Left = 2920
Picture = "Form1.frx":0F32
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "保存记录"
Top = 0
Width = 732
End
Begin VB.CommandButton command2
Caption = "返回"
Enabled = 0 'False
Height = 732
Index = 9
Left = 3650
Picture = "Form1.frx":123C
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "取消"
Top = 0
Width = 732
End
End
Begin VB.PictureBox picSplitter
BackColor = &H00808080&
BorderStyle = 0 'None
FillColor = &H00808080&
Height = 4800
Left = 0
ScaleHeight = 2090.126
ScaleMode = 0 'User
ScaleWidth = 780
TabIndex = 6
Top = 1200
Visible = 0 'False
Width = 72
End
Begin VB.TextBox Text3
Height = 372
Left = 3480
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 5
Top = 5160
Visible = 0 'False
Width = 2172
End
Begin VB.TextBox Text2
Height = 372
Left = 960
TabIndex = 4
Top = 5280
Visible = 0 'False
Width = 1812
End
Begin VB.ListBox List1
BackColor = &H00FFFFFF&
ForeColor = &H000000C0&
Height = 2940
ItemData = "Form1.frx":1546
Left = 0
List = "Form1.frx":1548
TabIndex = 1
Top = 1140
Width = 3255
End
Begin VB.TextBox Text1
Height = 3552
Left = 2340
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 1140
Width = 4452
End
Begin VB.Image imgSplitter
Height = 4785
Left = 0
MousePointer = 9 'Size W E
Top = 0
Width = 150
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H8000000A&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "资料的详细内容"
BeginProperty Font
Name = "楷体_GB2312"
Size = 13.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 324
Left = 2400
TabIndex = 3
Top = 780
Width = 4032
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000A&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "资料名称"
BeginProperty Font
Name = "楷体_GB2312"
Size = 13.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 324
Left = 0
TabIndex = 2
Top = 780
Width = 2112
End
Begin VB.Menu SJKCZ
Caption = "数据库操作(&F)"
Begin VB.Menu MNUSYT
Caption = "上一条记录"
Shortcut = ^U
End
Begin VB.Menu MNUXYT
Caption = "下一条记录"
Shortcut = ^N
End
Begin VB.Menu MNUY1
Caption = "-"
End
Begin VB.Menu MNUZJ
Caption = "增加记录"
Shortcut = ^A
End
Begin VB.Menu MNUSC
Caption = "删除记录"
Shortcut = ^D
End
Begin VB.Menu MNUY2
Caption = "-"
End
Begin VB.Menu MNUBC
Caption = "保存记录"
Enabled = 0 'False
Shortcut = ^S
End
Begin VB.Menu MNUQX
Caption = "取消保存"
Enabled = 0 'False
Shortcut = ^Q
End
Begin VB.Menu MNUY3
Caption = "-"
End
Begin VB.Menu MNUEXIT
Caption = "退出"
Shortcut = ^E
End
End
Begin VB.Menu MNUHELP
Caption = "帮助(&H)"
Begin VB.Menu MNUABOUT
Caption = "关于"
Shortcut = ^B
End
Begin VB.Menu MNUY4
Caption = "-"
End
Begin VB.Menu MNUXIE
Caption = "给我写信"
Shortcut = ^X
End
Begin VB.Menu MNUFW
Caption = "访问作者主页"
Shortcut = ^F
End
Begin VB.Menu MNUY6
Caption = "-"
End
Begin VB.Menu MNUBZHU
Caption = "帮助"
Shortcut = ^H
End
End
End
Attribute VB_Name = "VBSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim MyNum As Integer, ShanChu As Integer
Dim mbMoving As Boolean
Const sglSplitLimit = 500
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
If Me.List1.ListIndex + 1 < MyNum Then
Me.List1.ListIndex = Me.List1.ListIndex + 1
End If
End Select
End Sub
Private Sub command2_Click(Index As Integer)
Select Case Index
Case 0
If Me.List1.ListIndex = 0 Then
Me.List1.ListIndex = 0
Else
Me.List1.ListIndex = Me.List1.ListIndex - 1
End If
Case 1
Me.List1.Visible = False
Me.Text1.Visible = False
command2(0).Enabled = False
command2(1).Enabled = False
command2(2).Enabled = False
Command1(0).Enabled = False
Me.MNUSYT.Enabled = False
Me.MNUXYT.Enabled = False
Me.MNUZJ.Enabled = False
Me.MNUSC.Enabled = False
Me.Text2.Visible = True
Me.Text3.Visible = True
Me.Text2 = ""
Me.Text3 = ""
Form_Resize
command2(3).Enabled = True
command2(9).Enabled = True
Me.MNUBC.Enabled = True
Me.MNUQX.Enabled = True
Text2.SetFocus
Case 2
If Me.List1.Text = "关于本软件" Then
MsgBox "对不起，该记录您不能够删除！", 48
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -