?? frmabout.frm
字號:
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 3 'Fixed Dialog
Caption = "About Application"
ClientHeight = 2760
ClientLeft = 45
ClientTop = 330
ClientWidth = 5805
ControlBox = 0 'False
Icon = "frmAbout.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2760
ScaleWidth = 5805
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 1455
Left = -240
Picture = "frmAbout.frx":000C
ScaleHeight = 1425
ScaleWidth = 1425
TabIndex = 8
Top = 0
Width = 1455
End
Begin VB.CommandButton cmdTechSupport
Caption = "取消"
Height = 375
Left = 4380
TabIndex = 6
Top = 2160
Width = 1335
End
Begin VB.CommandButton cmdOK
Caption = "確定"
Height = 375
Left = 4380
TabIndex = 5
Top = 1680
Width = 1335
End
Begin VB.Frame fraFrame
Height = 75
Left = 60
TabIndex = 4
Top = 1440
Width = 5715
End
Begin VB.Label Label1
Caption = "版本 測試版1.0"
Height = 255
Left = 120
TabIndex = 7
Top = 2520
Width = 1455
End
Begin VB.Label lblCopyright
Caption = "Copyright Information"
Height = 255
Left = 1440
TabIndex = 3
Top = 960
Width = 3135
End
Begin VB.Label lblLabel
Caption = $"frmAbout.frx":2389
Height = 735
Index = 0
Left = 120
TabIndex = 2
Top = 1620
Width = 4095
End
Begin VB.Label lblAppVersion
Caption = "Application Version"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1440
TabIndex = 1
Top = 480
Width = 3135
End
Begin VB.Label lblAppTitle
Caption = "Application Title"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1440
TabIndex = 0
Top = 120
Width = 3135
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_sWebSite As String
Public Property Let WebSite(sWebSite As String)
m_sWebSite = sWebSite
End Property
Public Property Let AppTitle(sTitle As String)
lblAppTitle = sTitle
Me.Caption = "About " & sTitle
End Property
Public Property Let AppVersion(sVersion As String)
lblAppVersion = sVersion
End Property
Public Property Let Copyright(sInfo As String)
lblCopyright = sInfo
End Property
Public Sub Display()
cmdTechSupport.Visible = (m_sWebSite <> "")
Me.Show vbModal
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub cmdTechSupport_Click()
Unload Me
End Sub
Private Sub Form_Load()
'
' Start out by loading the default values
' into the locations on the form.
'
lblAppTitle = App.Title
Me.Caption = "About " & App.Title
lblAppVersion = App.Major & "." & App.Minor
lblCopyright = App.LegalCopyright
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -