📄 frmmain.frm
字号:
Height = 510
Index = 4
Left = 105
TabIndex = 8
Top = 5280
Width = 2040
_extentx = 3598
_extenty = 900
caption = "阴影样式"
captiondisablecolor= 13153946
icondisablecolor= 13614497
captioneffectcolor= 12632256
captioneffect = 5
forecolor = 16576
theme = 2
font = "Frmmain.frx":10C9B0
End
Begin StylerButton2007.StylerButton StylerButton3
Height = 750
Index = 1
Left = 3360
TabIndex = 10
Top = 1080
Width = 2700
_extentx = 4763
_extenty = 1323
caption = "禁止状态"
captiondisablecolor= 12236471
icondisablecolor= 11711154
captioneffectcolor= 65280
captioneffect = 4
forecolor = 16777215
theme = 3
enabled = 0 'False
font = "Frmmain.frx":10C9D4
icon = "Frmmain.frx":10C9F8
End
Begin StylerButton2007.StylerButton StylerButton4
Height = 900
Index = 1
Left = 4200
TabIndex = 14
Top = 2175
Width = 900
_extentx = 1588
_extenty = 1588
caption = "50"
captiondisablecolor= 13153946
icondisablecolor= 13614497
captioneffectcolor= 16777215
forecolor = 255
theme = 2
font = "Frmmain.frx":10D24C
roundedvalue = 50
End
Begin StylerButton2007.StylerButton StylerButton4
Height = 900
Index = 2
Left = 5115
TabIndex = 15
Top = 2205
Width = 900
_extentx = 1588
_extenty = 1588
caption = "100"
captiondisablecolor= 12236471
icondisablecolor= 11711154
captioneffectcolor= 16777215
forecolor = 255
theme = 3
font = "Frmmain.frx":10D278
roundedvalue = 100
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "各种标题特效演示"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 2025
Left = 2520
TabIndex = 22
Top = 3255
Width = 300
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "按钮风格样式演示"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 2070
Left = 2475
TabIndex = 21
Top = 360
Width = 330
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = $"Frmmain.frx":10D2A4
Height = 1710
Left = 3240
TabIndex = 20
Top = 3315
Width = 4710
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "支持自定义角度值."
Height = 270
Left = 6060
TabIndex = 17
Top = 2565
Width = 1680
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "圆角形状示例"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 345
Left = 6045
TabIndex = 16
Top = 2130
Width = 1860
End
Begin VB.Line Line9
X1 = 217
X2 = 524
Y1 = 128
Y2 = 128
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = " 可以使用自定义颜色显示."
Height = 555
Left = 6360
TabIndex = 12
Top = 1350
Width = 1230
End
Begin VB.Line Line8
Index = 1
X1 = 419
X2 = 524
Y1 = 85
Y2 = 85
End
Begin VB.Line Line8
Index = 0
X1 = 216
X2 = 524
Y1 = 12
Y2 = 12
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "图标使用示例"
BeginProperty Font
Name = "宋体"
Size = 20.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 915
Left = 6330
TabIndex = 11
Top = 270
Width = 1275
End
Begin VB.Line Line7
X1 = 160
X2 = 160
Y1 = 384
Y2 = 192
End
Begin VB.Line Line6
X1 = 144
X2 = 160
Y1 = 384
Y2 = 384
End
Begin VB.Line Line5
X1 = 145
X2 = 160
Y1 = 192
Y2 = 192
End
Begin VB.Line Line4
X1 = 192
X2 = 8
Y1 = 184
Y2 = 184
End
Begin VB.Line Line3
X1 = 148
X2 = 157
Y1 = 165
Y2 = 165
End
Begin VB.Line Line2
X1 = 156
X2 = 156
Y1 = 8
Y2 = 165
End
Begin VB.Line Line1
X1 = 148
X2 = 156
Y1 = 8
Y2 = 8
End
End
Attribute VB_Name = "Frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/09/19
'描 述：多风格时尚按钮控件2007(最新版）
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub Form_Load()
Dim A As String
A = App.Major & "." & App.Minor & "." & App.Revision
Me.Caption = "真彩色时尚按钮控件 2007 vr." & A
End Sub
Private Sub StylerButton5_Click()
FrmAbout.Show
End Sub
Private Sub StylerButton6_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -