📄 zidingyi.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmziding
BackColor = &H00000080&
Caption = "自定义"
ClientHeight = 8790
ClientLeft = 60
ClientTop = 450
ClientWidth = 10290
FillColor = &H000000C0&
Icon = "zidingyi.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8790
ScaleWidth = 10290
StartUpPosition = 1 '所有者中心
Visible = 0 'False
Begin VB.Frame Frame6
BackColor = &H00000080&
Caption = "控制音量"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 2055
Left = 5520
TabIndex = 48
Top = 6600
Width = 3255
Begin VB.VScrollBar vsMic
Height = 1455
Left = 1560
TabIndex = 50
Top = 600
Width = 255
End
Begin VB.VScrollBar vsVolume
Height = 1455
Left = 600
TabIndex = 49
Top = 600
Width = 255
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 2400
Top = 2160
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Label10
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00000080&
BackStyle = 0 'Transparent
Caption = "测试音量"
BeginProperty Font
Name = "黑体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1815
Left = 2280
MouseIcon = "zidingyi.frx":0442
MousePointer = 99 'Custom
TabIndex = 56
Top = 240
Width = 750
WordWrap = -1 'True
End
Begin VB.Label Label7
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "音量"
ForeColor = &H00FFFFFF&
Height = 180
Left = 480
TabIndex = 52
Top = 360
Width = 375
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "麦克风"
ForeColor = &H00FFFFFF&
Height = 180
Left = 1410
TabIndex = 51
Top = 360
Width = 555
End
End
Begin VB.Frame Frame4
BackColor = &H00000080&
Caption = "<<<<<<<内存测试>>>>>>"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 2895
Left = 5520
TabIndex = 36
Top = 3600
Width = 4575
Begin VB.TextBox TxtLenght
Height = 270
Left = 240
Locked = -1 'True
TabIndex = 41
Top = 720
Width = 4140
End
Begin VB.TextBox TxtPerCent
Height = 270
Left = 240
Locked = -1 'True
TabIndex = 40
Top = 1320
Width = 2940
End
Begin VB.TextBox TxtTotal
Height = 270
Left = 240
Locked = -1 'True
TabIndex = 39
Top = 1920
Width = 4140
End
Begin VB.TextBox TxtVoid
Height = 270
Left = 240
Locked = -1 'True
TabIndex = 38
Top = 2520
Width = 4140
End
Begin VB.CommandButton CmdBrush
Caption = "刷 新"
Height = 375
Left = 3360
TabIndex = 37
Top = 1200
Width = 975
End
Begin VB.Label LabLenght
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "数据结构的长度:"
ForeColor = &H00C0FFFF&
Height = 180
Left = 240
TabIndex = 45
Top = 480
Width = 1350
End
Begin VB.Label LabPerCent
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "内存使用百分比:"
ForeColor = &H00C0FFFF&
Height = 180
Left = 240
TabIndex = 44
Top = 1080
Width = 1350
End
Begin VB.Label LabTotal
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "实际内存大小(M)"
ForeColor = &H00C0FFFF&
Height = 180
Left = 240
TabIndex = 43
Top = 1680
Width = 1350
End
Begin VB.Label LabVoid
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "虚拟内存的大小(M)"
ForeColor = &H00C0FFFF&
Height = 180
Left = 240
TabIndex = 42
Top = 2280
Width = 1530
End
End
Begin VB.Frame Frame5
BackColor = &H00000080&
Caption = "声卡测试"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 5055
Left = 0
TabIndex = 34
Top = 3600
Width = 5415
Begin VB.PictureBox Picture1
BackColor = &H00FFFFFF&
Height = 4575
Left = 120
ScaleHeight = 4515
ScaleWidth = 5115
TabIndex = 47
Top = 360
Width = 5175
End
Begin VB.CommandButton Command8
BackColor = &H00C0FFFF&
Caption = "测试声卡"
Height = 180
Left = 1560
Style = 1 'Graphical
TabIndex = 46
Top = 4800
Visible = 0 'False
Width = 1815
End
End
Begin VB.Frame Frame1
BackColor = &H00000080&
Caption = "定时重启"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 1695
Left = 0
TabIndex = 28
Top = 1800
Width = 3735
Begin VB.CommandButton Command2
BackColor = &H00C0FFFF&
Caption = "保存"
Height = 375
Left = 120
Style = 1 'Graphical
TabIndex = 33
Top = 1200
Width = 1935
End
Begin VB.CommandButton Command1
Caption = "设置"
Height = 1335
Left = 2160
Picture = "zidingyi.frx":074C
Style = 1 'Graphical
TabIndex = 32
Top = 240
Width = 1455
End
Begin VB.Data Data3
Caption = "Data1"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 2040
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "chongqi"
Top = 120
Visible = 0 'False
Width = 1140
End
Begin VB.ComboBox Combo12
BackColor = &H00000080&
DataField = "点"
DataSource = "Data3"
ForeColor = &H00C0FFFF&
Height = 300
ItemData = "zidingyi.frx":288E
Left = 120
List = "zidingyi.frx":28DA
TabIndex = 31
Text = "点"
Top = 480
Width = 735
End
Begin VB.ComboBox Combo11
BackColor = &H00000080&
DataField = "分"
DataSource = "Data3"
ForeColor = &H00C0FFFF&
Height = 300
ItemData = "zidingyi.frx":2934
Left = 960
List = "zidingyi.frx":29EC
TabIndex = 30
Text = "分"
Top = 480
Width = 495
End
Begin VB.ComboBox Combo10
BackColor = &H00000080&
DataField = "秒"
DataSource = "Data3"
ForeColor = &H00C0FFFF&
Height = 300
ItemData = "zidingyi.frx":2AD6
Left = 1560
List = "zidingyi.frx":2B8E
TabIndex = 29
Text = "秒"
Top = 480
Width = 495
End
End
Begin VB.CommandButton Command3
BackColor = &H000000FF&
Height = 480
Left = 9840
Picture = "zidingyi.frx":2C78
Style = 1 'Graphical
TabIndex = 27
Top = 8160
Width = 480
End
Begin VB.Frame Frame3
BackColor = &H00000080&
Caption = "定时注销"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 1575
Left = 0
TabIndex = 21
Top = 120
Width = 3735
Begin VB.ComboBox Combo9
BackColor = &H00000080&
DataField = "秒"
DataSource = "Data2"
ForeColor = &H00C0FFFF&
Height = 300
ItemData = "zidingyi.frx":2F82
Left = 1560
List = "zidingyi.frx":303A
TabIndex = 26
Text = "秒"
Top = 480
Width = 495
End
Begin VB.ComboBox Combo8
BackColor = &H00000080&
DataField = "分"
DataSource = "Data2"
ForeColor = &H00C0FFFF&
Height = 300
ItemData = "zidingyi.frx":3124
Left = 960
List = "zidingyi.frx":31DC
TabIndex = 25
Text = "分"
Top = 480
Width = 495
End
Begin VB.ComboBox Combo7
BackColor = &H00000080&
DataField = "点"
DataSource = "Data2"
ForeColor = &H00C0FFFF&
Height = 300
ItemData = "zidingyi.frx":32C6
Left = 120
List = "zidingyi.frx":3312
TabIndex = 24
Text = "点"
Top = 480
Width = 735
End
Begin VB.Data Data2
Caption = "Data1"
Connect = "Access"
DatabaseName = "E:\校园广播铃声管理\xiaoyuan.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 600
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "zhuxiao"
Top = 840
Visible = 0 'False
Width = 1140
End
Begin VB.CommandButton Command7
Caption = "设置"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -