📄 frmmain.frm
字号:
End
Begin VB.Label lblYRadius
BackStyle = 0 'Transparent
Caption = "Y-Radius"
Height = 315
Left = 10360
TabIndex = 46
Top = 2520
Width = 2055
End
Begin VB.Label lblXRadius
BackStyle = 0 'Transparent
Caption = "X-Radius"
Height = 315
Left = 10360
TabIndex = 44
Top = 2040
Width = 2055
End
Begin VB.Label lblTabPictIndex
BackStyle = 0 'Transparent
Caption = "Tab Picture Index"
Height = 435
Left = -9640
TabIndex = 40
Top = 1200
Width = 1095
End
Begin VB.Label lblItemColor
BackStyle = 0 'Transparent
Caption = "Color"
Height = 315
Left = 3240
TabIndex = 34
Top = 840
Width = 1455
End
Begin VB.Label lblPictureAlign
BackStyle = 0 'Transparent
Caption = "Picture Align"
Height = 435
Left = -6760
TabIndex = 30
Top = 1200
Width = 1095
End
Begin VB.Label lblTabPicture
BackStyle = 0 'Transparent
Caption = "Tab Picture "
Height = 435
Left = -9640
TabIndex = 27
Top = 600
Width = 1095
End
Begin VB.Label lblPicSize
BackStyle = 0 'Transparent
Caption = "Picture Size"
Height = 435
Left = -6760
TabIndex = 25
Top = 600
Width = 1095
End
Begin VB.Label lblActiveTab
BackStyle = 0 'Transparent
Caption = "ActiveTab"
Height = 315
Left = 10360
TabIndex = 24
Top = 1100
Width = 855
End
Begin VB.Label lblTabCount
BackStyle = 0 'Transparent
Caption = "Tab Count"
Height = 315
Left = 10360
TabIndex = 23
Top = 600
Width = 855
End
Begin VB.Label lblTabStyle
BackStyle = 0 'Transparent
Caption = "Tab Style"
Height = 315
Left = 10360
TabIndex = 22
Top = 1560
Width = 855
End
Begin VB.Label lblActiveTabHgt
BackStyle = 0 'Transparent
Caption = "ActiveTab Height"
Height = 435
Left = 13240
TabIndex = 21
Top = 600
Width = 975
End
Begin VB.Label lblInActibeTabHgt
BackStyle = 0 'Transparent
Caption = "InActiveTab Height"
Height = 435
Left = 13240
TabIndex = 20
Top = 1100
Width = 975
End
Begin VB.Label lblTabTheme
BackStyle = 0 'Transparent
Caption = "Tab Theme"
Height = 315
Left = 13240
TabIndex = 19
Top = 1560
Width = 1455
End
Begin VB.Label lblToolTipText
BackStyle = 0 'Transparent
Caption = "ToolTipText"
Height = 315
Left = 13240
TabIndex = 18
Top = 2040
Width = 2055
End
Begin VB.Label lblEndColor
BackStyle = 0 'Transparent
Caption = "End Color"
Height = 315
Left = 3240
TabIndex = 10
Top = 1920
Width = 1455
End
Begin VB.Label lblStartColor
BackStyle = 0 'Transparent
Caption = "Start Color"
Height = 315
Left = 3240
TabIndex = 9
Top = 1560
Width = 1455
End
Begin VB.Label lblLink
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "click here"
ForeColor = &H00FF0000&
Height = 255
Left = 24395
MouseIcon = "frmMain.frx":324A
MousePointer = 99 'Custom
TabIndex = 4
Top = 2880
Width = 855
End
Begin VB.Label lblAuthorMessage
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "To provide constructive feedback on this control, please ...."
ForeColor = &H80000008&
Height = 255
Left = 20360
TabIndex = 3
Top = 2880
Width = 5415
End
Begin VB.Image imXImage
Height = 1920
Left = 24080
Picture = "frmMain.frx":3554
Stretch = -1 'True
Top = 720
Width = 2040
End
Begin VB.Label lblWelcome
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = $"frmMain.frx":679E
ForeColor = &H80000008&
Height = 2000
Index = 1
Left = 20360
TabIndex = 2
Top = 960
Width = 3855
End
Begin VB.Label lblWelcome
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Welcome to ucXTab!"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Index = 0
Left = 20360
TabIndex = 1
Top = 600
Width = 3495
End
Begin VB.Label lblGradColorSelect
BackColor = &H00FBFDFB&
BackStyle = 0 'Transparent
Caption = "Gradient Color Selection"
Height = 375
Left = 3240
TabIndex = 38
Top = 1275
Width = 2535
End
Begin VB.Label lblItemColorSel
BackColor = &H00FBFDFB&
BackStyle = 0 'Transparent
Caption = "Item Color Selection"
Height = 375
Left = 3240
TabIndex = 39
Top = 600
Width = 2535
End
End
Begin MSComctlLib.ImageList ilXImageList
Left = 5880
Top = 3000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 48
ImageHeight = 48
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":6961
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":9BBB
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":BF9D
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":11BBF
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'+ File Description:
' ucXTab - SelfSubclassed Tab Replacement Container
'
' Product Name:
' ucXTab.ctl
'
' Compatability:
' Windows: 98, ME, NT4, 2000, XP
'
' Software Developed by:
' Paul R. Territo, Ph.D
'
' Adapted from the following online article(s):
' (Neeraj Agrawal - Original XTab Control)
' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=56462&lngWId=1
' (Paul Caton - SelfSubclassing Template)
' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54117&lngWId=1
' (Evan Todder - ContainedControls Tab Routine)
' Note: The link below is inactive, as these submissions were removed by the author
' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=57642&lngWId=1
' (Randy Birch - OS Version Detection)
' http://vbnet.mvps.org/Index.html?code/helpers/iswinversion.htm
' (James Laferriere - EqualRect API Routine)
' http://www.officecomputertraining.com/vbtutorial/tutpages/page45.asp
' (Dieter Otter - GetCurrentThemeName)
' http://www.vbarchiv.net/archiv/tipp_805.html
' (Fred.cpp - APILine, APIFillRectByCoords, APIRectangle)
' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=61476&lngWId=1
'
' Legal Copyright & Trademarks (Current Implementation):
' Copyright ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -