📄 form2.frm
字号:
VERSION 5.00
Begin VB.Form Form2
BorderStyle = 3 'Fixed Dialog
Caption = "Form2"
ClientHeight = 3510
ClientLeft = 45
ClientTop = 330
ClientWidth = 5190
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 234
ScaleMode = 3 'Pixel
ScaleWidth = 346
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "免费注册"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 1920
MouseIcon = "Form2.frx":0000
MousePointer = 99 'Custom
TabIndex = 13
Top = 1920
Width = 720
End
Begin VB.Label Label13
Caption = "免费获得注册码："
Height = 255
Left = 480
TabIndex = 12
Top = 1920
Width = 1455
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "10"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 210
Left = 2160
TabIndex = 11
Top = 450
Width = 240
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "7140345"
ForeColor = &H00FF0000&
Height = 180
Left = 1440
TabIndex = 10
Top = 2640
Width = 630
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Q Q号码："
Height = 180
Left = 480
TabIndex = 9
Top = 2640
Width = 900
End
Begin VB.Label Label9
Caption = "版本： 1.21"
Height = 255
Left = 480
TabIndex = 8
Top = 120
Width = 2415
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "网路软件注册中心"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 1440
MouseIcon = "Form2.frx":0152
MousePointer = 99 'Custom
TabIndex = 7
Top = 1560
Width = 1440
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "注册网址："
Height = 180
Left = 480
TabIndex = 6
Top = 1560
Width = 900
End
Begin VB.Label Label1
Caption = "谢谢您的使用，期待您的意见。"
Height = 255
Left = 360
TabIndex = 5
Top = 3120
Width = 3495
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "注册费用为人民币 元。"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 480
TabIndex = 4
Top = 480
Width = 2475
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "作者信箱："
Height = 180
Left = 480
TabIndex = 3
Top = 840
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "sjtuyjc@sohu.com"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 1440
MouseIcon = "Form2.frx":02A4
MousePointer = 99 'Custom
TabIndex = 2
Top = 840
Width = 1440
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "作者主页："
Height = 180
Left = 480
TabIndex = 1
Top = 1200
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "http://www.cciyy.com/mysoft/index.htm"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 1440
MouseIcon = "Form2.frx":03F6
MousePointer = 99 'Custom
TabIndex = 0
Top = 1200
Width = 3330
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Label14_Click()
ShellExecute 0&, vbNullString, "http://www.cciyy.com/mysoft/cmreg.htm", vbNullString, vbNullString, vbNormalFocus
End Sub
Private Sub Label3_Click()
ShellExecute 0&, vbNullString, "http://www.softreg.com.cn/shareware_view.asp?id=/A043852D-BED9-4009-9FA5-FCCB8E768E06/#regform", vbNullString, vbNullString, vbNormalFocus
End Sub
Private Sub Label6_Click()
ShellExecute Me.hwnd, "open", "mailto:sjtuyjc@sohu.com?subject=中华地图控件", vbNullString, vbNullString, 0
End Sub
Private Sub Label8_Click()
ShellExecute 0&, vbNullString, "http://www.cciyy.com/mysoft/index.htm", vbNullString, vbNullString, vbNormalFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -