home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / winfox / chgvname.wd_ / chgvname.wd (.txt)
Encoding:
Visual Basic Form  |  1995-01-31  |  4.1 KB  |  132 lines
  1. VERSION 2.00
  2. Begin Form ChgVname 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Change Volume Name"
  6.    ClientHeight    =   2400
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   3615
  10.    ControlBox      =   0   'False
  11.    Height          =   2805
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2400
  17.    ScaleWidth      =   3615
  18.    Top             =   1140
  19.    Width           =   3735
  20.    Begin TextBox Text1 
  21.       Height          =   285
  22.       Left            =   240
  23.       MaxLength       =   11
  24.       TabIndex        =   0
  25.       Text            =   "Text1"
  26.       Top             =   1200
  27.       Width           =   3135
  28.    End
  29.    Begin DriveListBox Drive1 
  30.       Height          =   315
  31.       Left            =   240
  32.       TabIndex        =   3
  33.       Top             =   240
  34.       Width           =   3135
  35.    End
  36.    Begin CommandButton CmdOkay 
  37.       BackColor       =   &H00C0C0C0&
  38.       Cancel          =   -1  'True
  39.       Caption         =   "O &K A Y"
  40.       Height          =   375
  41.       Left            =   1800
  42.       TabIndex        =   2
  43.       Top             =   1800
  44.       Width           =   1575
  45.    End
  46.    Begin CommandButton CmdChgName 
  47.       BackColor       =   &H00C0C0C0&
  48.       Caption         =   "Change &Name"
  49.       Default         =   -1  'True
  50.       Height          =   375
  51.       Left            =   240
  52.       TabIndex        =   1
  53.       Top             =   1800
  54.       Width           =   1575
  55.    End
  56. Dim VolName As String
  57. Sub CmdChgName_Click ()
  58.     DriveLabel$ = Left$(UCase$(Drive1.Drive), 2)
  59.     If IsDriveLocal(DriveLabel$) = False Then
  60.         MsgBox "Can NOT format a network drive!", 48, "Rename Volume"
  61.         Exit Sub
  62.         End If
  63.     Screen.MousePointer = 11
  64.     NewVolName$ = Text1.Text
  65.     If Len(NewVolName$) > 8 Then
  66.         x% = Len(NewVolName$)
  67.         TempName = Left$(NewVolName$, 8) + "." + Right$(NewVolName$, x% - 8)
  68.         NewVolName$ = TempName
  69.         End If
  70.     If NewVolName$ = "No Label" Then NewVolName$ = ""
  71.     NowDrive$ = UCase$(Left$(Drive1.Drive, 1))
  72.     worked% = SetVolName(NowDrive$, NewVolName$)
  73.     Screen.MousePointer = 0
  74.     If worked% = False And NewVolName$ <> "" Then
  75.         MsgBox "Unable to rename volume!", 16, "Volume Rename Error"
  76.         FormPassString = "Failed"
  77.         Exit Sub
  78.         End If
  79.     FormPassString = "NewVol"
  80.     Unload Me
  81. End Sub
  82. Sub CmdOkay_Click ()
  83.     FormPassString = "Okay"
  84.     Unload Me
  85. End Sub
  86. Sub Drive1_Change ()
  87.     Screen.MousePointer = 11
  88.     DriveLabel$ = UCase$(Left$(Drive1.Drive, 1))
  89.     Screen.MousePointer = 0
  90.     If GetDriveStatus(DriveLabel$, "ready") = 0 Then
  91.         MsgBox "Unavailable drive!", 16, "Drive Error " + DriveLabel$ + ":"
  92.         ReturnString$ = Space$(10)
  93.         GetDefaultDrive ReturnString$
  94.         Drive1.Drive = TrimAtNull(ReturnString$)
  95.         DriveLabel$ = UCase$(Left$(Drive1.Drive, 1))
  96.         End If
  97.     VolName = GetVolName(DriveLabel$)
  98.     Text1.Text = VolName$
  99.     Text1.SetFocus
  100. End Sub
  101. Sub Form_Load ()
  102.     FormCenterForm Me, DemoMain
  103.     DriveLabel$ = Left$(UCase$(Drive1.Drive), 2)
  104.     VolName = GetVolName(DriveLabel$)
  105.     Text1.Text = VolName$
  106.     Screen.MousePointer = 0
  107. End Sub
  108. Sub Form_Paint ()
  109.     DoForm3D Me, "raised", 2, 0
  110.     DoForm3D Me, "sunken", 2, 2
  111.     DoControl3D Drive1, "sunken", 1
  112.     DoControl3D Text1, "sunken", 1
  113. End Sub
  114. Sub Text1_GotFocus ()
  115.     Text1.SelStart = 0
  116.     Text1.SelLength = Len(Text1.Text)
  117. End Sub
  118. Sub Text1_KeyPress (KeyAscii As Integer)
  119.     Char = Chr(KeyAscii)
  120.     KeyAscii = Asc(UCase(Char))
  121.     If Char = Chr$(8) Then Exit Sub
  122.     If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then Exit Sub
  123.     If KeyAscii = Asc(" ") Then Exit Sub
  124.     If KeyAscii = Asc("*") Then Exit Sub
  125.     If KeyAscii = Asc("$") Then Exit Sub
  126.     If KeyAscii = Asc("!") Then Exit Sub
  127.     If KeyAscii < Asc("A") Or KeyAscii > Asc("Z") Then
  128.         KeyAscii = 0
  129.         Exit Sub
  130.         End If
  131. End Sub
  132.