📄 frmabout.frm
字号:
VERSION 5.00
Begin VB.Form FrmAbout
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
Caption = "添加 / 删除 白金版 2004"
ClientHeight = 4200
ClientLeft = 45
ClientTop = 330
ClientWidth = 6600
FillColor = &H00FFFFFF&
ForeColor = &H00E0E0E0&
Icon = "FrmAbout.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4200
ScaleWidth = 6600
StartUpPosition = 2 '屏幕中心
Begin Add_Remove_Platinum_2004.CommandButton CmdOK
Height = 495
Left = 5520
TabIndex = 7
Top = 3360
Width = 975
_ExtentX = 1720
_ExtentY = 873
Caption = "确定"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblCopyright
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "Copyright ?2003-2004 - Garf Inc. 版权所有"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 1200
TabIndex = 8
Top = 1440
Width = 3585
End
Begin VB.Image Image1
Height = 630
Left = 255
Top = 195
Width = 750
End
Begin VB.Label lblWebsite0
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "网址:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 1575
TabIndex = 6
Top = 2280
Width = 435
End
Begin VB.Label lblWebSite
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "http://www.GarfInc.com"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 2415
MouseIcon = "FrmAbout.frx":000C
MousePointer = 99 'Custom
TabIndex = 5
Top = 2280
Width = 2085
End
Begin VB.Label LblAuthor
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "作者:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 1635
TabIndex = 4
Top = 1920
Width = 435
End
Begin VB.Label LblAuthorName
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Clint Garafolo"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 2415
TabIndex = 3
Top = 1920
Width = 1170
End
Begin VB.Shape Shape1
BackColor = &H00FFFFFF&
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 1575
Left = 1080
Shape = 4 'Rounded Rectangle
Top = 1200
Width = 5415
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "警告: 本程序受有关版权保护,未经许可禁止复制和传播."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 120
TabIndex = 2
Top = 3120
Width = 5055
End
Begin VB.Line Line1
BorderColor = &H00000000&
X1 = 0
X2 = 6600
Y1 = 3000
Y2 = 3000
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 6600
Y1 = 3015
Y2 = 3015
End
Begin VB.Label lblVersion1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "版本: 1.0.0"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3150
TabIndex = 1
Top = 600
Width = 1320
End
Begin VB.Label lblVersion5
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "添加 / 删除 白金版 2004"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2130
TabIndex = 0
Top = 240
Width = 3360
End
Begin VB.Shape Shape2
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Left = 120
Shape = 4 'Rounded Rectangle
Top = 120
Width = 975
End
End
Attribute VB_Name = "FrmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'★★★★★****************************★★★★★**********************★★★★★
'金诺VB园-收藏整理
'本站是专注于VB和VBNET编程的源码下载站
'发布日期：2008-3-14 22:00:47
'网 站：http://www.vbget.com/ (金诺VB园)
'网 站：http://www.vbget.com/daohan/ (VB编程网址导航)
'E-Mail ：vbget@yahoo.cn
'QQ ：158676144
'源码作者：如果您有VB商业源码需要获得收益，本站将有VIP收费下载频道可供你发布!
' 您有权定价;改价;删除;及即时查看下载量(即收益)，所有收益全部归您！
' 本站将在双方协商的一个金额周期内打款到作者帐户中，您只需负责打款费用！
' 本站只作为一个平台提供最新VB源码咨讯和源码下载！
'本注释由<站长工具之智能注释>软件自动添加！金诺VB园有此软件下载！
'★★★★★****************************★★★★★**********************★★★★★
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 cmdOk_Click()
Unload Me
End Sub
' Replace the url text with appropriate website
Private Sub lblWebsite_Click()
ShellExecute Me.hwnd, "Open", "http://www.GarfInc.com", "", "", 1
End Sub
Private Sub Form_Load()
Dim strTemp As String
Me.Icon = FrmMain.Icon
Image1.Picture = Me.Icon
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -