📄 frmtest.frm
字号:
pGradient5 = 7
pEdgeSpacing5 = 7
pEdgeInner5 = 10
pEdgeOuter5 = 6
pEnabled6 = -1 'True
PWidth6 = 110
pTTText6 = ""
pType6 = 0
pText6 = "Fake Button"
pTextAlignment6 = 1
PanelPicture6 = "frmTest.frx":2284
PanelPicAlignment6= 1
pBckgColor6 = 13547597
pGradient6 = 7
pEdgeSpacing6 = 6
pEdgeInner6 = 5
pEdgeOuter6 = 9
Begin VB.CheckBox Check
Height = 195
Left = 3855
TabIndex = 12
Tag = "### 04 0030 -"
Top = 225
Value = 1 'Checked
Width = 195
End
Begin VB.CommandButton btn1
Caption = "buttons!"
BeginProperty Font
Name = "MS Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 2665
TabIndex = 4
Tag = "### 03 0040 +"
Top = 150
Width = 965
End
Begin VB.CommandButton btn1
Caption = "True"
BeginProperty Font
Name = "MS Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Index = 0
Left = 1725
TabIndex = 3
Tag = "### 02 0000 -"
Top = 90
Width = 600
End
End
Begin StatusBarTest.ucVeryWellsStatusBarXP ucStatusBarXP
Align = 2 'Align Bottom
Height = 645
Left = 0
TabIndex = 0
Top = 5325
Width = 7425
_ExtentX = 13097
_ExtentY = 1138
BackColor = 12615680
ForeColor = 16711680
ForeColorDissabled= 16761024
MaskColor = 16711935
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShowGripper = -1 'True
ShowSeperators = -1 'True
NumberOfPanels = 5
pEnabled1 = -1 'True
PWidth1 = 110
pTTText1 = "And there are tooltips all over !"
pType1 = 0
pText1 = "Yep!"
pTextAlignment1 = 0
PanelPicture1 = "frmTest.frx":25D6
PanelPicAlignment1= 2
pBckgColor1 = 16744448
pGradient1 = 2
pEdgeSpacing1 = 3
pEdgeInner1 = 10
pEdgeOuter1 = 5
pEnabled2 = -1 'True
PWidth2 = 95
pTTText2 = ""
pType2 = 4
pText2 = "Grad"
pTextAlignment2 = 1
PanelPicture2 = "frmTest.frx":2928
PanelPicAlignment2= 0
pBckgColor2 = 11770701
pGradient2 = 3
pEdgeSpacing2 = 0
pEdgeInner2 = 0
pEdgeOuter2 = 0
pEnabled3 = 0 'False
PWidth3 = 110
pTTText3 = ""
pType3 = 0
pText3 = "Idle."
pTextAlignment3 = 1
PanelPicture3 = "frmTest.frx":357A
PanelPicAlignment3= 0
pBckgColor3 = 255
pGradient3 = 6
pEdgeSpacing3 = 0
pEdgeInner3 = 0
pEdgeOuter3 = 9
pEnabled4 = -1 'True
PWidth4 = 113
pTTText4 = ""
pType4 = 1
pText4 = ""
pTextAlignment4 = 0
PanelPicture4 = "frmTest.frx":3596
PanelPicAlignment4= 0
pBckgColor4 = 16744576
pGradient4 = 2
pEdgeSpacing4 = 0
pEdgeInner4 = 0
pEdgeOuter4 = 0
pEnabled5 = -1 'True
PWidth5 = 50
pTTText5 = ""
pType5 = 0
pText5 = ""
pTextAlignment5 = 1
PanelPicture5 = "frmTest.frx":41E8
PanelPicAlignment5= 0
pBckgColor5 = 0
pGradient5 = 0
pEdgeSpacing5 = 0
pEdgeInner5 = 0
pEdgeOuter5 = 0
Begin VB.ListBox ListBox1
BackColor = &H008FE9FC&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
IntegralHeight = 0 'False
ItemData = "frmTest.frx":4E3A
Left = 5330
List = "frmTest.frx":4E3C
TabIndex = 1
Tag = "### 04 0050 +"
Top = 120
Width = 970
End
End
Begin StatusBarTest.ucVeryWellsStatusBarXP ucStatusBarXP4
Align = 3 'Align Left
Height = 4680
Left = 0
TabIndex = 8
Top = 645
Width = 465
_ExtentX = 820
_ExtentY = 8255
BackColor = 14875902
ForeColor = -2147483630
ForeColorDissabled= -2147483631
MaskColor = 16711935
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShowGripper = 0 'False
ShowSeperators = 0 'False
Apperance = 2
TopLine = 0 'False
NumberOfPanels = 1
pEnabled1 = -1 'True
PWidth1 = 35
pTTText1 = ""
pType1 = 0
pText1 = ""
pTextAlignment1 = 0
PanelPicture1 = "frmTest.frx":4E3E
PanelPicAlignment1= 0
pBckgColor1 = 16095348
pGradient1 = 6
pEdgeSpacing1 = 1
pEdgeInner1 = 0
pEdgeOuter1 = 0
End
Begin StatusBarTest.ucVeryWellsStatusBarXP ucVeryWellsStatusBarXP9
Height = 300
Left = 975
TabIndex = 19
Top = 4965
Width = 6135
_ExtentX = 10821
_ExtentY = 529
BackColor = 14875902
ForeColor = -2147483630
ForeColorDissabled= -2147483631
MaskColor = 16711935
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShowGripper = 0 'False
ShowSeperators = -1 'True
Apperance = 3
NumberOfPanels = 3
pEnabled1 = -1 'True
PWidth1 = 100
pTTText1 = ""
pType1 = 0
pText1 = "Idle mode"
pTextAlignment1 = 1
PanelPicture1 = "frmTest.frx":4E5A
PanelPicAlignment1= 0
pBckgColor1 = 0
pGradient1 = 0
pEdgeSpacing1 = 0
pEdgeInner1 = 0
pEdgeOuter1 = 0
pEnabled2 = -1 'True
PWidth2 = 120
pTTText2 = ""
pType2 = 0
pText2 = "XP Diagonal Left"
pTextAlignment2 = 1
PanelPicture2 = "frmTest.frx":51AC
PanelPicAlignment2= 2
pBckgColor2 = 0
pGradient2 = 0
pEdgeSpacing2 = 0
pEdgeInner2 = 0
pEdgeOuter2 = 0
pEnabled3 = -1 'True
PWidth3 = 160
pTTText3 = ""
pType3 = 0
pText3 = "Tribute to 'LaVolpe button' ;)"
pTextAlignment3 = 1
PanelPicture3 = "frmTest.frx":54FE
PanelPicAlignment3= 0
pBckgColor3 = 0
pGradient3 = 0
pEdgeSpacing3 = 0
pEdgeInner3 = 0
pEdgeOuter3 = 0
End
Begin VB.Label Label
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "API Timer Events !"
Height = 375
Index = 5
Left = 615
TabIndex = 17
Top = 735
Width = 690
End
Begin VB.Label Label
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = " <-Abused statusbar ;)"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 300
Index = 4
Left = 495
TabIndex = 15
Top = 2625
Width = 2370
End
Begin VB.Label Label
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Nine examples! of VeryWellsStatusBarXP 1.1"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00DC9670&
Height = 840
Index = 3
Left = 1590
TabIndex = 13
Top = 795
Width = 5025
End
Begin VB.Label Label
BackStyle = 0 'Transparent
Caption = "We don't need a timer control for this ! Just API."
Height = 255
Index = 2
Left = 3540
TabIndex = 9
Top = 2430
Width = 3525
End
Begin VB.Label Label
BackStyle = 0 'Transparent
Caption = $"frmTest.frx":551A
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 675
Index = 1
Left = 1500
TabIndex = 7
Top = 1785
Width = 4965
End
Begin VB.Label Label
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Caption = "Nine examples! of VeryWellsStatusBarXP 1.1"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 900
Index = 0
Left = 1605
TabIndex = 6
Top = 765
Width = 5025
End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
' frmDemo.frm
'
' All this code is for demonstration only.
' Not needed to get functionality to the statusbar uc.
Option Explicit
Private Sub btn1_Click(Index As Integer)
MsgBox "You pressed integrated button numer " & Index
End Sub
Private Sub Form_Load()
With ListBox1
.AddItem "1st entry"
.AddItem "2nd entry"
.AddItem "3rd entry"
.AddItem "Some more"
.AddItem "and more"
.AddItem "and more"
.AddItem "And last!"
.ListIndex = 1
End With
End Sub
Private Sub ListBox1_Click()
ucStatusBarXP2.PanelCaption(1) = ListBox1.List(ListBox1.ListIndex)
End Sub
Private Sub ListBox1_Scroll()
ucStatusBarXP2.PanelCaption(1) = ListBox1.List(ListBox1.ListIndex)
End Sub
Private Sub ucStatusBarXP_Click(iPanelNumber As Variant)
MsgBox "You clicked on panel number " & iPanelNumber
End Sub
Private Sub ucStatusBarXP3_TimerAfterRedraw()
' Timer event demo
With VScrollDemo
.Value = .Value - 10
If .Value < 10 Then
.Value = 100
End If
End With
End Sub
' #*#
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -