frmabout.frm

1500个WINDOWS API类全集,包括了主要的API调用接口

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