home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / NIVB_SRC / NAMESP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-06-03  |  3.9 KB  |  124 lines
  1. VERSION 2.00
  2. Begin Form NameSpaceForm 
  3.    Caption         =   "Name Space Services Test"
  4.    Height          =   2055
  5.    Left            =   1245
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   1650
  8.    ScaleWidth      =   4965
  9.    Top             =   1230
  10.    Width           =   5085
  11.    Begin ComboBox VolumeBox 
  12.       Height          =   300
  13.       Left            =   1320
  14.       TabIndex        =   6
  15.       Top             =   1200
  16.       Width           =   2415
  17.    End
  18.    Begin ComboBox ServerNameBox 
  19.       Height          =   300
  20.       Left            =   1320
  21.       TabIndex        =   4
  22.       Top             =   720
  23.       Width           =   2415
  24.    End
  25.    Begin CommandButton OkButton 
  26.       Caption         =   "&OK"
  27.       Default         =   -1  'True
  28.       Height          =   375
  29.       Left            =   3840
  30.       TabIndex        =   3
  31.       Top             =   240
  32.       Width           =   975
  33.    End
  34.    Begin CommandButton CancelButton 
  35.       Caption         =   "&Cancel"
  36.       Height          =   375
  37.       Left            =   3840
  38.       TabIndex        =   0
  39.       Top             =   720
  40.       Width           =   975
  41.    End
  42.    Begin Label Label3 
  43.       Caption         =   "Select a file server and volume to scan for name space information."
  44.       Height          =   495
  45.       Left            =   360
  46.       TabIndex        =   5
  47.       Top             =   120
  48.       Width           =   3255
  49.    End
  50.    Begin Label Label1 
  51.       Alignment       =   1  'Right Justify
  52.       Caption         =   "Volume:"
  53.       Height          =   255
  54.       Left            =   360
  55.       TabIndex        =   2
  56.       Top             =   1200
  57.       Width           =   855
  58.    End
  59.    Begin Label Label2 
  60.       Alignment       =   1  'Right Justify
  61.       Caption         =   "File Server:"
  62.       Height          =   255
  63.       Left            =   120
  64.       TabIndex        =   1
  65.       Top             =   720
  66.       Width           =   1095
  67.    End
  68. Sub CancelButton_Click ()
  69.     Unload NameSpaceForm
  70. End Sub
  71. Sub Form_Load ()
  72.     Dim volName As String * 16
  73.     fileServerName$ = String$(48, 0)
  74.     For connID% = 1 To 8
  75.         If (ISConnectionIDInUse(connID%)) Then
  76.             GetFileServerName connID%, fileServerName$
  77.             ServerNameBox.AddItem fileServerName$
  78.         End If
  79.     Next connID%
  80.     connID% = GetDefaultConnectionID()
  81.     SetPreferredConnectionID (connID%)
  82.     fileServerName$ = String$(48, 0)
  83.     GetFileServerName connID%, fileServerName$
  84.     fileServerName$ = Left$(fileServerName$, InStr(fileServerName$, Chr$(0)) - 1)
  85.     ServerNameBox.Text = fileServerName$
  86.     GetVolumeList
  87. End Sub
  88. Sub Form_Unload (Cancel As Integer)
  89.     SetPreferredConnectionID (originalPrefConnID%)
  90. End Sub
  91. Sub GetVolumeList ()
  92.     Dim usage As NWVOL_USAGE
  93.     VolumeBox.Clear
  94.     connID% = GetPreferredConnectionID()
  95.     For volNum% = 0 To 31
  96.         ccode% = GetVolUsage(connID%, volNum%, usage)
  97.         If ((ccode% = SUCCESSFUL) And (Len(usage.volName) > 0)) Then
  98.             VolumeBox.AddItem usage.volName
  99.         End If
  100.     Next volNum%
  101.     VolumeBox.Text = VolumeBox.List(0)
  102. End Sub
  103. Sub OKButton_Click ()
  104.     serverName$ = ServerNameBox.Text
  105.     volumeName$ = VolumeBox.Text
  106.     NameSpaceInfoForm.Show
  107. End Sub
  108. Sub ServerNameBox_Click ()
  109.     prefServer$ = ServerNameBox.Text
  110.     ccode% = GetConnectionID(prefServer$, connID%)
  111.     If (ccode% = SUCCESSFUL) Then
  112.         SetPreferredConnectionID (connID%)  'tell which file server to send
  113.                                             '   requests to
  114.         GetVolumeList
  115.     Else
  116.         MsgBox "Unable to get connection ID of server " + prefServer$, MB_OK, "Error"
  117.         connID% = GetDefaultConnectionID()
  118.         prefServer$ = String$(48, 0)
  119.         GetFileServerName connID%, prefServer$
  120.         prefServer$ = Left$(prefServer$, InStr(prefServer$, Chr$(0)) - 1)
  121.         ServerNameBox.Text = prefServer$
  122.     End If
  123. End Sub
  124.