?? about.frm
字號(hào):
VERSION 4.00
Begin VB.Form About
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 3 'Fixed Dialog
Caption = "- About -"
ClientHeight = 1560
ClientLeft = 1665
ClientTop = 2325
ClientWidth = 6225
ControlBox = 0 'False
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1965
Left = 1605
LinkMode = 1 'Source
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 104
ScaleMode = 3 'Pixel
ScaleWidth = 415
Top = 1980
Width = 6345
Begin VB.CommandButton Command1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "&OK"
Height = 396
Left = 4992
TabIndex = 3
Top = 576
Width = 972
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "1996, Pigeon Lake Software, Inc"
ForeColor = &H80000008&
Height = 210
Left = 1830
TabIndex = 2
Top = 960
Width = 3135
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "by Stephen Murphy"
ForeColor = &H80000008&
Height = 204
Left = 1824
TabIndex = 1
Top = 576
Width = 1932
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "QCard32.DLL Visual Basic 4.0 Demo"
ForeColor = &H80000008&
Height = 210
Left = 1830
TabIndex = 0
Top = 195
Width = 4065
End
End
Attribute VB_Name = "About"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Command1_Click()
About.Hide
End Sub
Private Sub Form_Load()
Dim nXLoc As Integer
Dim nYLoc As Integer
About.ScaleMode = 3
About.ScaleTop = 0
About.ScaleLeft = 0
nXLoc = (Screen.Width - About.Width) / 2
nYLoc = (Screen.Height - About.Height) / 2
About.Left = nXLoc
About.Top = nYLoc
End Sub
Private Sub Form_Paint()
Dim yLoc As Integer
yLoc = (About.ScaleHeight - CARDHEIGHT) / 2
DrawCard About.hWnd, 51, 10, yLoc
DrawCard About.hWnd, 52, 10 + OFFSET, yLoc
DrawCard About.hWnd, 40, 10 + (2 * OFFSET), yLoc
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -