Programming Tool Box/SIMS_2.iso/vb_code1/nivb_src/nwtest.frm

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