?? frmabout.frm
字號:
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 3 'Fixed Dialog
Caption = " About the EventVB Project"
ClientHeight = 4170
ClientLeft = 45
ClientTop = 330
ClientWidth = 4680
Icon = "frmAbout.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4170
ScaleWidth = 4680
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.ListBox lstClasses
Height = 2010
Left = 120
TabIndex = 2
Top = 960
Width = 4455
End
Begin VB.CommandButton Command1
Caption = "&OK"
Default = -1 'True
Height = 615
Left = 1440
TabIndex = 0
Top = 3360
Width = 1815
End
Begin VB.Label Label1
Caption = "To get help on one of the classes in the EventVB project, double-click on that class in the list below"
Height = 615
Left = 120
TabIndex = 1
Top = 240
Width = 4455
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 Sub Command1_Click()
Me.Hide
End Sub
Private Sub Form_Load()
With Me.lstClasses
.Clear
.AddItem "ApiBitmap"
.AddItem "ApiCBT_CREATEWND"
.AddItem "ApiCBTACTIVATESTRUCT"
.AddItem "ApiClipboard"
.AddItem "ApiColourAdjustment"
.AddItem "ApiCommCtlInternetAddress"
.AddItem "ApiCommCtlPager"
.AddItem "ApiCreateStruct"
.AddItem "ApiCWPRETSTRUCT"
.AddItem "ApiCWPSTRUCT"
.AddItem "ApiLogBrush"
.AddItem "ApiDeviceContext"
.AddItem "ApiDialogbox"
.AddItem "ApiEVENTMSG"
.AddItem "APIFileTime"
.AddItem "ApiFindReplaceDialog"
.AddItem "APIFunctions"
.AddItem "ApiGlobalmemory"
.AddItem "ApiHardwareProfile"
.AddItem "ApiHotkey"
.AddItem "ApiIcon"
.AddItem "ApiIconDispenser"
.AddItem "ApiKBDLLHOOKSTRUCT"
.AddItem "ApiLLMOUSEHOOKSTRUCT"
.AddItem "ApiLocale"
.AddItem "APIMenuItemInfo"
.AddItem "ApiMOUSEHOOKSTRUCT"
.AddItem "ApiMSG"
.AddItem "ApiNamedPipe"
.AddItem "ApiNMMouse"
.AddItem "ApiNotifyIcon"
.AddItem "ApiNotifyMessageHeader"
.AddItem "ApiOwnerDrawItem"
.AddItem "APIPoint"
.AddItem "ApiPrinter"
.AddItem "ApiPrinterDriver"
.AddItem "ApiPrintJob"
.AddItem "ApiProcess"
.AddItem "APIRect"
.AddItem "ApiRegion"
.AddItem "ApiRegistryValue"
.AddItem "ApiRegKey"
.AddItem "ApiRgnDispenser"
.AddItem "ApiSystemInfo"
.AddItem "APISystemTime"
.AddItem "ApiThread"
.AddItem "ApiVolume"
.AddItem "ApiWindow"
.AddItem "ApiWindowDispenser"
.AddItem "APIWndClass"
End With
End Sub
Private Sub lstClasses_DblClick()
APIDispenser.RunProgram ("http://www.MerrionComputing.com/EventVB/" & lstClasses.Text & ".html")
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -