📄 frmmain.frm
字号:
VERSION 5.00
Object = "{03ED3B1E-ED1B-4A2E-8FE3-D8D1A673F5D4}#5.2#0"; "SuperMap.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmMain
BorderStyle = 3 'Fixed Dialog
Caption = "渐变填充和透明效果的使用"
ClientHeight = 5445
ClientLeft = 45
ClientTop = 330
ClientWidth = 10395
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5445
ScaleWidth = 10395
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin MSComDlg.CommonDialog dlgColor
Left = 9600
Top = 135
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton cmdSet
Caption = ">>"
Height = 435
Left = 7485
TabIndex = 27
Top = 30
Width = 360
End
Begin VB.CommandButton cmdExit
Caption = "退出"
Height = 435
Left = 5985
TabIndex = 9
Top = 30
Width = 1035
End
Begin VB.CommandButton cmdViewEnt
Caption = "全幅"
Height = 435
Left = 4995
TabIndex = 8
Top = 30
Width = 1005
End
Begin VB.CommandButton cmdPan
Caption = "漫游"
Height = 435
Left = 4005
TabIndex = 7
Top = 30
Width = 1005
End
Begin VB.CommandButton cmdZoomFree
Caption = "自由缩放"
Height = 435
Left = 3015
TabIndex = 6
Top = 30
Width = 1005
End
Begin VB.CommandButton cmdZoomOut
Caption = "缩小"
Height = 435
Left = 2025
TabIndex = 5
Top = 30
Width = 1005
End
Begin VB.CommandButton cmdZoomIn
Caption = "放大"
Height = 435
Left = 1035
TabIndex = 4
Top = 30
Width = 1005
End
Begin VB.CommandButton cmdSelect
Caption = "选择"
Height = 435
Left = 45
TabIndex = 3
Top = 30
Width = 1005
End
Begin VB.Frame Frame2
Height = 4905
Left = 7980
TabIndex = 2
Top = 405
Width = 2370
Begin VB.CommandButton cmdBrushStyle
Caption = "设置填充效果"
Height = 435
Left = 135
TabIndex = 26
Top = 4290
Width = 2130
End
Begin VB.OptionButton optOpaque
Caption = "透明填充"
Height = 330
Left = 1260
TabIndex = 25
Top = 3780
Width = 1065
End
Begin VB.OptionButton optGradient
Caption = "渐变填充"
Height = 270
Left = 150
TabIndex = 24
Top = 3795
Value = -1 'True
Width = 1065
End
Begin MSComctlLib.Slider slOpaqueRate
Height = 165
Left = 1320
TabIndex = 20
Top = 3360
Width = 960
_ExtentX = 1693
_ExtentY = 291
_Version = 393216
LargeChange = 10
SmallChange = 5
Max = 100
End
Begin VB.ComboBox cmbList
Height = 315
ItemData = "frmMain.frx":058A
Left = 1410
List = "frmMain.frx":059A
Style = 2 'Dropdown List
TabIndex = 19
Top = 1995
Width = 855
End
Begin VB.TextBox txtXoffset
Height = 285
Left = 1410
TabIndex = 18
Text = "0"
Top = 540
Width = 855
End
Begin VB.TextBox txtYoffset
Height = 285
Left = 1410
TabIndex = 17
Text = "0"
Top = 1065
Width = 855
End
Begin VB.TextBox txtAngle
Height = 285
Left = 1410
TabIndex = 16
Text = "0"
Top = 1590
Width = 855
End
Begin VB.Label lblBackColor
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 285
Left = 1410
TabIndex = 23
Top = 2880
Width = 855
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "背景色："
Height = 195
Index = 1
Left = 675
TabIndex = 22
Top = 2915
Width = 720
End
Begin VB.Label lblFColor
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 285
Left = 1410
TabIndex = 21
Top = 2475
Width = 855
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "渐变填充角度："
Height = 195
Left = 135
TabIndex = 15
Top = 1625
Width = 1260
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "前景色："
Height = 195
Index = 0
Left = 675
TabIndex = 14
Top = 2485
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "填充不透明度："
Height = 195
Left = 135
TabIndex = 13
Top = 3345
Width = 1260
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "渐变类型："
Height = 195
Index = 2
Left = 495
TabIndex = 12
Top = 2055
Width = 900
End
Begin VB.Label Label1
Caption = "渐变填充中心点的垂直偏移量："
Height = 435
Index = 1
Left = 135
TabIndex = 11
Top = 960
Width = 1350
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -