home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
nivb_src
/
nwtest.frm
< prev
next >
Wrap
Text File
|
1993-06-02
|
4KB
|
213 lines
VERSION 2.00
Begin Form Main
Caption = "NetWare API Test"
Height = 2700
Left = 2295
LinkMode = 1 'Source
LinkTopic = "Form1"
ScaleHeight = 2010
ScaleWidth = 6810
Top = 1395
Width = 6930
Begin Label Label1
Caption = "This application tests several NetWare APIs, using the NetWare Interface for Visual Basic."
Height = 492
Left = 1440
TabIndex = 0
Top = 120
Width = 4092
End
Begin Menu ExitMenu
Caption = "E&xit!"
End
Begin Menu TestMenu
Caption = "&Test"
Begin Menu VersionItem
Caption = "DLL &Versions"
End
Begin Menu AcctItem
Caption = "&Accounting"
End
Begin Menu AFPItem
Caption = "AFP"
End
Begin Menu BindItem
Caption = "&Bindery"
End
Begin Menu ConnItem
Caption = "&Connection"
End
Begin Menu DiagItem
Caption = "&Diagnostics"
End
Begin Menu DirDirItem
Caption = "Directory (Directory Info)"
End
Begin Menu DirDriveInfo
Caption = "Directory (Drive Info)"
End
Begin Menu DirVolItem
Caption = "Directory (Volume Info)"
End
Begin Menu FileItem
Caption = "&File"
End
Begin Menu ServerItem
Caption = "File Server Env"
End
Begin Menu Server2xItem
Caption = "File Server Env v2.x"
End
Begin Menu MiscItem
Caption = "Miscellaneous"
End
Begin Menu MsgItem
Caption = "&Message"
End
Begin Menu NameSpItem
Caption = "&Name Space"
End
Begin Menu PrintItem
Caption = "&Print"
End
Begin Menu PServItem
Caption = "Print Server"
End
Begin Menu QueueItem
Caption = "&Queue"
End
Begin Menu SAPItem
Caption = "&SAP"
End
Begin Menu SyncItem
Caption = "Synchronization"
End
Begin Menu TTSItem
Caption = "&TTS"
End
Begin Menu WrkstnItem
Caption = "&Workstation Env"
End
End
Begin Menu HelpMenu
Caption = "&Help"
Begin Menu IndexItem
Caption = "&There Is No Help"
End
Begin Menu AboutItem
Caption = "&About..."
End
End
End
Sub AboutItem_Click ()
AboutForm.Show 1
End Sub
Sub AcctItem_Click ()
AcctForm.Show
End Sub
Sub AFPItem_Click ()
AFPForm.Show
End Sub
Sub BindItem_Click ()
Main.MousePointer = 11
BindForm.Show
End Sub
Sub ConnItem_Click ()
ConnForm.Show
End Sub
Sub DiagItem_Click ()
DiagForm.Show
End Sub
Sub DirDirItem_Click ()
SelectDirForm.Show
End Sub
Sub DirDriveInfo_Click ()
DirDriveForm.Show
End Sub
Sub DirVolItem_Click ()
DirVolForm.Show
End Sub
Sub ExitMenu_Click ()
End
End Sub
Sub FileItem_Click ()
currentForm = FILE_FORM
SelectFileForm.Show
End Sub
Sub Form_Load ()
originalPrefConnID% = GetPreferredConnectionID()
End Sub
Sub IndexItem_Click ()
NoHelpForm.Show 1
End Sub
Sub MiscItem_Click ()
MiscForm.Show
End Sub
Sub MsgItem_Click ()
MessForm.Show
End Sub
Sub NameSpItem_Click ()
NameSpaceForm.Show
End Sub
Sub PrintItem_Click ()
PrntForm.Show
End Sub
Sub PrtQueItem_Click ()
End Sub
Sub PServItem_Click ()
PrintServerForm.Show
End Sub
Sub QueueItem_Click ()
QueueForm.Show
End Sub
Sub SAPItem_Click ()
SAPForm.Show
End Sub
Sub Server2xItem_Click ()
FSE2xForm.Show
End Sub
Sub ServerItem_Click ()
FSEForm.Show
End Sub
Sub SyncItem_Click ()
SyncForm.Show
End Sub
Sub TTSItem_Click ()
TTSForm.Show
End Sub
Sub VersionItem_Click ()
Main.MousePointer = 11
DLLVersionForm.Show
Main.MousePointer = 0
End Sub
Sub WrkstnItem_Click ()
WSEForm.Show
End Sub