home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Programmer'…arterly (Limited Edition)
/
Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso
/
code
/
ch21code
/
sysmain.bas
< prev
next >
Wrap
BASIC Source File
|
1995-08-14
|
613b
|
22 lines
Attribute VB_Name = "modMain"
Option Explicit
' Declare Windows API functions for checking system configuration.
Sub main()
' Debug code for testing object library.
#Const DebugBuild = 0
#If DebugBuild Then
Dim x As New Information
x.MakeVisible
MsgBox x.IsRunning("Microsoft Word")
MsgBox x.MeetsCriteria(486, 16)
Dim y As New FileIO
MsgBox y.TempFileName(Prefix:="foo")
MsgBox y.SystemDirectory
Dim z As New Keyboard
' Toggle NumLock key.
z.NumLock = Not z.NumLock
End
#End If
End Sub