📄 frmmain.frm
字号:
VERSION 5.00
Object = "{FC07EBD4-FE92-11D0-A199-A0077383D901}#5.5#0"; "ccrpprg.ocx"
Begin VB.Form frmMain
BorderStyle = 3 'Fixed Dialog
Caption = "CCRP Progress Bar Demo"
ClientHeight = 5124
ClientLeft = 36
ClientTop = 324
ClientWidth = 8244
ClipControls = 0 'False
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5124
ScaleWidth = 8244
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdExit
Caption = "Exit"
Height = 432
Left = 6960
TabIndex = 32
ToolTipText = "Exit this demo"
Top = 180
Width = 1152
End
Begin VB.Frame fra
Caption = "Events"
ClipControls = 0 'False
ForeColor = &H00C00000&
Height = 1992
Index = 3
Left = 2940
TabIndex = 30
Top = 3000
Width = 5172
Begin VB.CommandButton cmdClearEvents
Caption = "Clear List"
Height = 372
Left = 1800
TabIndex = 17
ToolTipText = "Clears the event history"
Top = 1500
Width = 1392
End
Begin VB.ListBox lstEvents
Height = 1200
ItemData = "frmMain.frx":000C
Left = 120
List = "frmMain.frx":000E
TabIndex = 16
ToolTipText = "Displays a history of events raised by the control"
Top = 240
Width = 4932
End
End
Begin VB.Frame fra
Caption = "Colors"
ClipControls = 0 'False
ForeColor = &H00FF0000&
Height = 2172
Index = 2
Left = 5340
TabIndex = 26
Top = 780
Width = 2772
Begin VB.ComboBox cboOrientation
Enabled = 0 'False
Height = 288
HelpContextID = 51
ItemData = "frmMain.frx":0010
Left = 1260
List = "frmMain.frx":0020
Style = 2 'Dropdown List
TabIndex = 35
ToolTipText = "Sets the orientation of the caption."
Top = 1380
Width = 1152
End
Begin VB.CommandButton cmdCaptionColor
BackColor = &H8000000E&
Height = 312
HelpContextID = 13
Left = 1680
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "Sets the color used to paint the caption on the progress bar"
Top = 240
Width = 732
End
Begin VB.CommandButton cmdBackColor
Height = 312
HelpContextID = 27
Left = 1680
Style = 1 'Graphical
TabIndex = 10
ToolTipText = "Set the back color of the progress bar"
Top = 960
Visible = 0 'False
Width = 732
End
Begin VB.CommandButton cmdFillColor
BackColor = &H8000000D&
Height = 312
HelpContextID = 12
Left = 1680
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "Set the color used to fill the progress bar"
Top = 600
Visible = 0 'False
Width = 732
End
Begin VB.Label lbl
Caption = "Orientation:"
ForeColor = &H00000080&
Height = 192
Index = 10
Left = 180
TabIndex = 39
Top = 1440
Width = 1032
End
Begin VB.Label lbl
Caption = "Caption:"
ForeColor = &H00000080&
Height = 192
Index = 3
Left = 180
TabIndex = 29
Top = 300
Width = 1092
End
Begin VB.Label lbl
Caption = "Back Color:"
ForeColor = &H00000080&
Height = 192
Index = 2
Left = 180
TabIndex = 28
Top = 1020
Visible = 0 'False
Width = 1452
End
Begin VB.Label lbl
Caption = "Fill Color:"
ForeColor = &H00000080&
Height = 192
Index = 0
Left = 180
TabIndex = 27
Top = 660
Visible = 0 'False
Width = 1452
End
End
Begin VB.Frame fra
Caption = "Caption"
ClipControls = 0 'False
ForeColor = &H00FF0000&
Height = 1992
Index = 1
Left = 120
TabIndex = 21
Top = 3000
Width = 2772
Begin VB.ComboBox cboAutoCaption
Height = 288
HelpContextID = 2
ItemData = "frmMain.frx":004C
Left = 1260
List = "frmMain.frx":005C
Style = 2 'Dropdown List
TabIndex = 13
ToolTipText = "Sets how the progress bar alters the caption as value varies"
Top = 660
Width = 1332
End
Begin VB.TextBox txtCaption
Height = 288
HelpContextID = 7
Left = 1260
TabIndex = 12
ToolTipText = "Sets the caption of the progress bar"
Top = 300
Width = 1332
End
Begin VB.ComboBox cboAlignment
Height = 288
HelpContextID = 1
ItemData = "frmMain.frx":0085
Left = 1260
List = "frmMain.frx":0092
Style = 2 'Dropdown List
TabIndex = 14
ToolTipText = "Sets the alignment of the caption within the progress bar"
Top = 1020
Width = 1332
End
Begin VB.ComboBox cboAutoToolTip
Height = 288
HelpContextID = 5
ItemData = "frmMain.frx":00AB
Left = 1260
List = "frmMain.frx":00BB
Style = 2 'Dropdown List
TabIndex = 15
ToolTipText = "Sets how the progress bar alters Tooltiptext as value varies"
Top = 1380
Width = 1332
End
Begin VB.Label lbl
Caption = "AutoCaption:"
ForeColor = &H00000080&
Height = 192
Index = 6
Left = 120
TabIndex = 25
Top = 720
Width = 1092
End
Begin VB.Label lbl
Caption = "Caption:"
ForeColor = &H00000080&
Height = 192
Index = 7
Left = 120
TabIndex = 24
Top = 360
Width = 1152
End
Begin VB.Label lbl
Caption = "Alignment:"
ForeColor = &H00000080&
Height = 192
Index = 9
Left = 120
TabIndex = 23
Top = 1080
Width = 1212
End
Begin VB.Label lbl
Caption = "AutoToolTip:"
ForeColor = &H00000080&
Height = 192
Index = 8
Left = 120
TabIndex = 22
Top = 1440
Width = 1092
End
End
Begin VB.CommandButton cmdTest
Caption = "Test"
Height = 432
Left = 5700
TabIndex = 18
ToolTipText = "Test the Progress Bar"
Top = 180
Width = 1152
End
Begin VB.Frame fra
Caption = "Styles"
ClipControls = 0 'False
ForeColor = &H00FF0000&
Height = 2172
Index = 0
Left = 660
TabIndex = 19
Top = 780
Width = 4632
Begin VB.CommandButton cmdBrowseBackImage
Caption = "..."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.6
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 312
Left = 4140
TabIndex = 38
ToolTipText = "Browse for an image file"
Top = 1140
Width = 396
End
Begin VB.TextBox txtBackImage
Height = 324
HelpContextID = 50
Left = 1560
TabIndex = 36
ToolTipText = "Sets the filename of the image used as a background for the control"
Top = 1140
Width = 2532
End
Begin VB.ComboBox cboFillStyle
Height = 288
HelpContextID = 52
ItemData = "frmMain.frx":00E4
Left = 1560
List = "frmMain.frx":00F1
Style = 2 'Dropdown List
TabIndex = 33
ToolTipText = "Sets the method by which the control is filled."
Top = 840
Width = 1632
End
Begin VB.ComboBox cboShape
Height = 288
HelpContextID = 22
ItemData = "frmMain.frx":0106
Left = 1560
List = "frmMain.frx":0113
Style = 2 'Dropdown List
TabIndex = 1
ToolTipText = "Sets the shape with which the progress bar is clipped when it is painted"
Top = 540
Width = 1632
End
Begin VB.TextBox txtImage
Enabled = 0 'False
Height = 324
Left = 1560
TabIndex = 6
ToolTipText = "Sets the filename of the image used to paint the control in graphical mode"
Top = 1500
Width = 2532
End
Begin VB.CommandButton cmdBrowse
Caption = "..."
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.6
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -