📄 frmabout.frm
字号:
VERSION 5.00
Begin VB.Form frmAbout
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
ClientHeight = 5685
ClientLeft = 2970
ClientTop = 1980
ClientWidth = 6465
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "frmAbout.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5685
ScaleWidth = 6465
ShowInTaskbar = 0 'False
Tag = "关于 nd2000"
Begin VB.CommandButton Command1
Caption = "制作(&C)"
Height = 420
Left = 4800
TabIndex = 7
Top = 4590
Width = 1320
End
Begin VB.CommandButton cmdSysInfo
Caption = "系统信息(&S)"
Height = 375
Left = 4800
TabIndex = 5
Top = 5145
Width = 1335
End
Begin VB.Frame Frame1
BackColor = &H80000004&
Caption = "此软件被受权于："
Height = 1260
Left = 240
TabIndex = 2
Top = 2505
Width = 5895
Begin VB.Label Label10
Caption = "用户："
Height = 195
Left = 555
TabIndex = 12
Top = 600
Width = 600
End
Begin VB.Label Label9
Caption = "组织："
Height = 210
Left = 555
TabIndex = 11
Top = 270
Width = 645
End
Begin VB.Label Label7
Caption = "序列码："
Height = 240
Left = 540
TabIndex = 9
Top = 915
Width = 1020
End
Begin VB.Label Label6
ForeColor = &H00FF0000&
Height = 225
Left = 1470
TabIndex = 8
Top = 915
Width = 3660
End
Begin VB.Label Label4
ForeColor = &H00FF0000&
Height = 255
Left = 1485
TabIndex = 4
Top = 255
Width = 3390
End
Begin VB.Label Label2
ForeColor = &H00FF0000&
Height = 255
Left = 1470
TabIndex = 3
Top = 570
Width = 3375
End
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "确定(&O)"
Height = 390
Left = 4800
TabIndex = 1
Top = 4050
Width = 1335
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 2040
Left = 210
Picture = "frmAbout.frx":0CCA
Top = 225
Width = 6015
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "E-mail："
Height = 225
Left = 450
TabIndex = 14
Top = 5205
Width = 645
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "网址："
Height = 195
Left = 435
TabIndex = 13
Top = 4800
Width = 600
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "http://www.China-HuaHang.com"
ForeColor = &H00FF0000&
Height = 225
Left = 1155
MouseIcon = "frmAbout.frx":7F32
MousePointer = 99 'Custom
TabIndex = 10
Top = 4785
Width = 3570
End
Begin VB.Line Line10
BorderColor = &H00808080&
X1 = 6390
X2 = 6390
Y1 = 45
Y2 = 5640
End
Begin VB.Line Line9
BorderColor = &H00E0E0E0&
X1 = 6405
X2 = 6405
Y1 = 45
Y2 = 5640
End
Begin VB.Line Line8
BorderColor = &H00808080&
X1 = 45
X2 = 6390
Y1 = 45
Y2 = 45
End
Begin VB.Line Line7
BorderColor = &H00E0E0E0&
X1 = 30
X2 = 6420
Y1 = 30
Y2 = 30
End
Begin VB.Line Line6
BorderColor = &H00808080&
X1 = 30
X2 = 6390
Y1 = 5625
Y2 = 5625
End
Begin VB.Line Line5
BorderColor = &H00E0E0E0&
X1 = 30
X2 = 6390
Y1 = 5640
Y2 = 5640
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = 30
X2 = 30
Y1 = 0
Y2 = 5625
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
X1 = 45
X2 = 45
Y1 = 0
Y2 = 5640
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "MndSoft@China-HuaHang.Com"
ForeColor = &H00FF0000&
Height = 315
Left = 1170
MouseIcon = "frmAbout.frx":8084
MousePointer = 99 'Custom
TabIndex = 6
Top = 5190
Width = 2565
End
Begin VB.Line Line2
BorderColor = &H00808080&
X1 = 240
X2 = 6120
Y1 = 3915
Y2 = 3915
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
X1 = 6120
X2 = 240
Y1 = 3930
Y2 = 3930
End
Begin VB.Label lblDisclaimer
Caption = "警告: 本程序受中华人民共和国著作权保护法保护,未经本公司许可,任何单位和个人不得复制和传播(或者其中的一部分)"
ForeColor = &H00000000&
Height = 540
Left = 375
TabIndex = 0
Tag = "警告: ..."
Top = 4140
Width = 4305
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
FilmAbout.Show vbModal, Me
End Sub
Private Sub Form_Load()
Dim RegPassTrue As String
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Me.Caption = "关于" & App.ProductName & App.Major & "." & App.Minor
'是否注册
RegPassTrue = GetSetting(App.EXEName, "RegInfo", "RegTrue", "")
Label2.Caption = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\杭州华杭电子电器有限公司\乡镇供电所电费处理系统v2.0\2.00", "用户名")
'组织名称
Label4.Caption = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\杭州华杭电子电器有限公司\乡镇供电所电费处理系统v2.0\2.00", "组织名称")
'注册码
Label6.Caption = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\杭州华杭电子电器有限公司\乡镇供电所电费处理系统v2.0\2.00", "注册码")
' End If
End Sub
Private Sub cmdSysInfo_Click()
Call StartSysInfo
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Public Sub StartSysInfo()
On Error GoTo SysInfoErr
Call Shell(QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Shared Tools\MSINFO", "Path"), vbNormalFocus)
Exit Sub
SysInfoErr:
MsgBox "此时系统信息不可用", vbOKOnly
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &HFF0000
Label5.FontUnderline = False
Label8.ForeColor = &HFF0000
Label8.FontUnderline = False
End Sub
Private Sub Label5_Click()
Const WEB = "mailto:mndsoft@china-huahang.com"
Dim hyperjump
hyperjump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.FontUnderline = True
Label5.ForeColor = &HFF&
End Sub
Private Sub Label8_Click()
Const WEB = "http://www.china-huahang.com/main.shtml"
Dim hyperjump
hyperjump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
End Sub
Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label8.FontUnderline = True
Label8.ForeColor = &HFF&
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -