📄 frminfo.frm
字号:
VERSION 5.00
Begin VB.Form FrmInfo
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "支持信息"
ClientHeight = 4350
ClientLeft = 45
ClientTop = 330
ClientWidth = 7350
ClipControls = 0 'False
ForeColor = &H00FFFFFF&
Icon = "Frminfo.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4350
ScaleWidth = 7350
StartUpPosition = 1 '所有者中心
Begin Add_Remove_Platinum_2004.CommandButton CmdClose
Height = 495
Left = 2888
TabIndex = 17
Top = 3720
Width = 1575
_ExtentX = 2778
_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.PictureBox picSoftLarge
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 512
Left = 240
Picture = "Frminfo.frx":058A
ScaleHeight = 510
ScaleWidth = 510
TabIndex = 16
Top = 200
Width = 512
End
Begin VB.TextBox TxtDName
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 285
Left = 840
Locked = -1 'True
TabIndex = 7
TabStop = 0 'False
Top = 285
Width = 6255
End
Begin VB.Frame fmback
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 2655
Left = 240
TabIndex = 8
Top = 840
Width = 6855
Begin VB.TextBox TxtRName
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H00000000&
Height = 285
Left = 1680
Locked = -1 'True
TabIndex = 0
Top = 120
Width = 5175
End
Begin VB.TextBox TxtContact
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H00000000&
Height = 285
Left = 1680
Locked = -1 'True
TabIndex = 6
Top = 2280
Width = 5175
End
Begin VB.TextBox TxtUIAbout
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H00000000&
Height = 285
Left = 1680
Locked = -1 'True
MouseIcon = "Frminfo.frx":0E54
MousePointer = 99 'Custom
TabIndex = 5
Top = 1920
Width = 5055
End
Begin VB.TextBox TxtHLink
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H00000000&
Height = 285
Left = 1680
Locked = -1 'True
MouseIcon = "Frminfo.frx":0FA6
MousePointer = 99 'Custom
TabIndex = 4
Top = 1560
Width = 5055
End
Begin VB.TextBox TxtDVersion
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H00000000&
Height = 285
Left = 1680
Locked = -1 'True
TabIndex = 3
Top = 1200
Width = 10335
End
Begin VB.TextBox TxtPublisher
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H00000000&
Height = 285
Left = 1680
Locked = -1 'True
TabIndex = 2
Top = 840
Width = 5055
End
Begin VB.TextBox TxtUString
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H00FFFFFF&
Height = 285
Left = 1680
Locked = -1 'True
MouseIcon = "Frminfo.frx":10F8
MousePointer = 99 'Custom
TabIndex = 1
Top = 480
Width = 5055
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "卸载信息 :"
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 15
Top = 480
Width = 1455
End
Begin VB.Label lblprogname
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "发行者 :"
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 14
Top = 840
Width = 1455
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "版本 :"
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 13
Top = 1200
Width = 1455
End
Begin VB.Label Label10
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "帮助链接 :"
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 12
Top = 1560
Width = 1455
End
Begin VB.Label Label11
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "支持信息 :"
ForeColor = &H00000000&
Height = 375
Left = 120
TabIndex = 11
Top = 1920
Width = 1455
End
Begin VB.Label Label12
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "联系人:"
ForeColor = &H00000000&
Height = 375
Left = 120
TabIndex = 10
Top = 2280
Width = 1455
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "程序名称 :"
ForeColor = &H00000000&
Height = 375
Left = 120
TabIndex = 9
Top = 120
Width = 1455
End
End
Begin VB.Line Line1
Index = 1
X1 = 7200
X2 = 7200
Y1 = 480
Y2 = 3600
End
Begin VB.Line Line2
X1 = 120
X2 = 7200
Y1 = 3600
Y2 = 3600
End
Begin VB.Line Line1
Index = 0
X1 = 120
X2 = 120
Y1 = 480
Y2 = 3600
End
Begin VB.Shape Shape1
FillColor = &H00E0E0E0&
FillStyle = 0 'Solid
Height = 615
Left = 120
Shape = 4 'Rounded Rectangle
Top = 120
Width = 7095
End
End
Attribute VB_Name = "FrmInfo"
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园有此软件下载！
'★★★★★****************************★★★★★**********************★★★★★
Option Explicit
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
' Executes the Uninstall String
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Icon = FrmMain.Icon
GetProgInformation
End Sub
'=========================================================================
' Display the detailed information about the selected program
' in the frmInfo form.
'=========================================================================
Sub GetProgInformation()
Dim DName As String, regName As String, UString As String, Publisher As String
Dim DVersion As String, HelpLink As String, UIAbout As String, Contact As String
regName = FrmMain.lstview.SelectedItem.Key
DName = FrmMain.lstview.SelectedItem.Text
UString = FrmMain.lstview.SelectedItem.SubItems(4)
Publisher = Trim$(GetStringValue(HKEY_LOCAL_MACHINE, UnInstallPath & FrmMain.lstview.SelectedItem.Key, "Publisher"))
DVersion = Trim$(GetStringValue(HKEY_LOCAL_MACHINE, UnInstallPath & FrmMain.lstview.SelectedItem.Key, "DisplayVersion"))
HelpLink = Trim$(GetStringValue(HKEY_LOCAL_MACHINE, UnInstallPath & FrmMain.lstview.SelectedItem.Key, "HelpLink"))
UIAbout = Trim$(GetStringValue(HKEY_LOCAL_MACHINE, UnInstallPath & FrmMain.lstview.SelectedItem.Key, "URLInfoAbout"))
Contact = Trim$(GetStringValue(HKEY_LOCAL_MACHINE, UnInstallPath & FrmMain.lstview.SelectedItem.Key, "Contact"))
If Len(regName) = 0 Then
FrmInfo.TxtRName = "N/A"
Else
FrmInfo.TxtRName = regName
End If
If Len(DName) = 0 Then
FrmInfo.TxtDName.Text = "N/A"
Else
FrmInfo.TxtDName.Text = DName
End If
If Len(UString) = 0 Then
FrmInfo.TxtUString.Text = "N/A"
TxtUString.MousePointer = 0
Else
FrmInfo.TxtUString.Text = UString
TxtUString.Font.Underline = True
TxtUString.ForeColor = vbBlue
End If
If Len(Publisher) = 0 Then
FrmInfo.TxtPublisher.Text = "N/A"
Else
FrmInfo.TxtPublisher.Text = Publisher
End If
If Len(DVersion) = 0 Then
FrmInfo.TxtDVersion.Text = "N/A"
Else
FrmInfo.TxtDVersion.Text = DVersion
End If
If Len(HelpLink) = 0 Then
FrmInfo.TxtHLink.Text = "N/A"
TxtHLink.MousePointer = 0
Else
FrmInfo.TxtHLink.Text = HelpLink
TxtHLink.Font.Underline = True
TxtHLink.ForeColor = vbBlue
End If
If Len(UIAbout) = 0 Then
FrmInfo.TxtUIAbout.Text = "N/A"
TxtUIAbout.MousePointer = 0
Else
FrmInfo.TxtUIAbout.Text = UIAbout
TxtUIAbout.Font.Underline = True
TxtUIAbout.ForeColor = vbBlue
End If
If Len(Contact) = 0 Then
FrmInfo.TxtContact.Text = "N/A"
Else
FrmInfo.TxtContact.Text = Contact
End If
picSoftLarge.Picture = FrmMain.ImgLarge.ListImages(FrmMain.lstview.SelectedItem.Icon).Picture
End Sub
' Check if the Help url is there if so then execute it
Private Sub TxtHLink_Click()
If TxtHLink.Text <> "N/A" Then
ShellExecute Me.hwnd, "Open", TxtHLink, "", "", SW_SHOWNORMAL
End If
End Sub
' Check if the About url is there if so then execute it
Private Sub TxtUIAbout_Click()
If TxtUIAbout.Text <> "N/A" Then
ShellExecute Me.hwnd, "Open", TxtUIAbout, "", "", SW_SHOWNORMAL
End If
End Sub
' Check if the uninstall string is there if so then execute it
Private Sub TxtUString_Click()
If TxtUString <> "N/A" Then
WinExec TxtUString, 1
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -