📄 tabgui.frm
字号:
Width = 8535
_ExtentX = 15055
_ExtentY = 873
_Version = 327682
Appearance = 1
End
Begin VB.CommandButton Command3
Caption = "Command3"
Height = 495
Left = -74640
TabIndex = 7
Top = 1560
Width = 1695
End
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 495
Left = -74640
TabIndex = 6
Top = 2400
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "Start Test"
Height = 495
Left = -74640
TabIndex = 5
Top = 720
Width = 1695
End
Begin VB.HScrollBar HScroll1
Height = 375
LargeChange = 100
Left = -70320
Min = 10
TabIndex = 4
Top = 840
Value = 10
Width = 1815
End
Begin ComctlLib.ProgressBar ProgressBar1
Height = 495
Left = -74640
TabIndex = 3
Top = 3240
Width = 8535
_ExtentX = 15055
_ExtentY = 873
_Version = 327682
Appearance = 1
End
Begin VB.Label Label4
Caption = "System Performance Indicator"
Height = 255
Left = -74640
TabIndex = 20
Top = 3840
Width = 6375
End
Begin VB.Label Label3
Caption = "Delay Duration"
Height = 255
Left = -70320
TabIndex = 16
Top = 2280
Width = 1815
End
Begin VB.Label Label2
Caption = "Multiplier"
Height = 255
Left = -70320
TabIndex = 15
Top = 1440
Width = 1815
End
Begin VB.Label label1
Caption = "Number of Tasks"
Height = 255
Left = -70320
TabIndex = 14
Top = 600
Width = 1815
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 8880
Top = 5160
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin ComctlLib.ImageList ImageList1
Left = 8160
Top = 5160
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 16
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":00A8
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":03C2
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":06DC
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":09F6
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":0D10
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":102A
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":1344
Key = ""
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":165E
Key = ""
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":1978
Key = ""
EndProperty
BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":1C92
Key = ""
EndProperty
BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":1FAC
Key = ""
EndProperty
BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":22C6
Key = ""
EndProperty
BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":25E0
Key = ""
EndProperty
BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":28FA
Key = ""
EndProperty
BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":2C14
Key = ""
EndProperty
BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "tabgui.frx":2F2E
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu fi0
Caption = "&File"
Begin VB.Menu fi1
Caption = "&New"
End
Begin VB.Menu fi2
Caption = "&Open"
End
Begin VB.Menu fi3
Caption = "&Save"
End
Begin VB.Menu fi4
Caption = "&Print"
End
Begin VB.Menu fi5
Caption = "&Exit"
End
End
Begin VB.Menu op0
Caption = "&Options"
Begin VB.Menu op3
Caption = "&System time"
End
Begin VB.Menu op4
Caption = "&System Date"
End
Begin VB.Menu op1
Caption = "&Calculator"
End
Begin VB.Menu op2
Caption = "&Configuration"
End
End
Begin VB.Menu to0
Caption = "&Tools"
End
Begin VB.Menu wi0
Caption = "&Win95"
Begin VB.Menu wi1
Caption = "&Explorer"
End
Begin VB.Menu wi2
Caption = "&WangImg"
End
Begin VB.Menu wi3
Caption = "&PaintBrush"
End
Begin VB.Menu wi4
Caption = "&NotePad"
End
Begin VB.Menu wi5
Caption = "&Write"
End
End
Begin VB.Menu wd0
Caption = "&Windows"
End
Begin VB.Menu ex0
Caption = "&Exit"
Begin VB.Menu ex1
Caption = "&Exit To Dos"
End
Begin VB.Menu ex2
Caption = "&Exit Program"
End
End
End
Attribute VB_Name = "giumenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim retval
Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog2.Flags = cdlCCRGBInit
CommonDialog2.ShowColor
Form1.BackColor = CommonDialog2.Color
ErrHandler:
End Sub
Private Sub Command2_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog3.Flags = cdlCCRGBInit
CommonDialog3.ShowColor
Form1.BackColor = CommonDialog3.Color
ErrHandler:
End Sub
Private Sub Command3_Click()
Screen1.Show
Screen1.Text1.BackColor = CommonDialog2.Color
Screen1.Text1.ForeColor = CommonDialog3.Color
End Sub
Private Sub ex1_Click()
retval = Shell("c:\command.com", 3)
End Sub
Private Sub ex2_Click()
gui.Cls
Unload Me
End Sub
Private Sub fi2_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.ShowOpen
ErrHandler:
End Sub
Private Sub fi3_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.ShowSave
ErrHandler:
End Sub
Private Sub fi4_Click()
Dim BeginPage, EndPage, NumCopies, i
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
gui.PrintForm
' Printer code goes here
Next i
Exit Sub
ErrHandler:
MsgBox "Printer Not Ready"
End Sub
Private Sub fi5_Click()
gui.Cls
Unload Me
End Sub
Private Sub op1_Click()
Calculator.Show
End Sub
Private Sub op3_Click()
Text1.Text = Time
End Sub
Private Sub op4_Click()
Text1.Text = Date
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case "A"
Text1.Text = "B 1"
End Select
End Sub
Private Sub wi1_Click()
retval = Shell("c:\windows\explorer.exe", 3)
End Sub
Private Sub wi2_Click()
retval = Shell("c:\windows\wangimg.exe", 3)
End Sub
Private Sub wi3_Click()
retval = Shell("c:\windows\pbrush.exe", 3)
End Sub
Private Sub wi4_Click()
retval = Shell("c:\windows\notepad.exe", 3)
End Sub
Private Sub wi5_Click()
retval = Shell("c:\windows\write.exe", 3)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -