home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / advdisk4 / frmfil~1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-20  |  19.4 KB  |  573 lines
  1. VERSION 4.00
  2. Begin VB.Form frmFileSystem 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Advanced Disk 32-bit OCX Properties"
  5.    ClientHeight    =   5610
  6.    ClientLeft      =   1080
  7.    ClientTop       =   1455
  8.    ClientWidth     =   7635
  9.    Height          =   6015
  10.    Left            =   1020
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5610
  15.    ScaleWidth      =   7635
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1110
  18.    Width           =   7755
  19.    Begin VB.CommandButton cmdAbout 
  20.       Caption         =   "&About"
  21.       Height          =   255
  22.       Left            =   5640
  23.       TabIndex        =   54
  24.       Top             =   960
  25.       Width           =   975
  26.    End
  27.    Begin VB.CommandButton cmdHelp 
  28.       Caption         =   "&Help"
  29.       Height          =   255
  30.       Left            =   5640
  31.       TabIndex        =   5
  32.       Top             =   600
  33.       Width           =   975
  34.    End
  35.    Begin VB.CommandButton cmdClose 
  36.       Caption         =   "&Close"
  37.       Height          =   255
  38.       Left            =   5640
  39.       TabIndex        =   4
  40.       Top             =   120
  41.       Width           =   1695
  42.    End
  43.    Begin VB.Frame Frame2 
  44.       Caption         =   "Properties changed by 'Select Drive' Above (non-changable)"
  45.       Height          =   3915
  46.       Left            =   180
  47.       TabIndex        =   7
  48.       Top             =   1560
  49.       Width           =   7215
  50.       Begin VB.Frame Frame6 
  51.          Caption         =   "Windows"
  52.          Height          =   975
  53.          Left            =   3240
  54.          TabIndex        =   49
  55.          Top             =   2640
  56.          Width           =   3795
  57.          Begin VB.Label lblDrive 
  58.             Caption         =   "Label3"
  59.             Height          =   255
  60.             Index           =   19
  61.             Left            =   1440
  62.             TabIndex        =   53
  63.             Top             =   540
  64.             Width           =   2205
  65.          End
  66.          Begin VB.Label lblDrive 
  67.             Caption         =   "Label3"
  68.             Height          =   255
  69.             Index           =   18
  70.             Left            =   1440
  71.             TabIndex        =   52
  72.             Top             =   300
  73.             Width           =   2205
  74.          End
  75.          Begin VB.Label Label5 
  76.             Caption         =   "System Directory"
  77.             Height          =   195
  78.             Left            =   180
  79.             TabIndex        =   51
  80.             Top             =   540
  81.             Width           =   1185
  82.          End
  83.          Begin VB.Label Label4 
  84.             Caption         =   "Directory:"
  85.             Height          =   195
  86.             Left            =   180
  87.             TabIndex        =   50
  88.             Top             =   300
  89.             Width           =   1185
  90.          End
  91.       End
  92.       Begin VB.Frame Frame5 
  93.          Caption         =   "Disk"
  94.          Height          =   1455
  95.          Left            =   180
  96.          TabIndex        =   40
  97.          Top             =   2160
  98.          Width           =   2895
  99.          Begin VB.Label lblDrive 
  100.             Caption         =   "Label3"
  101.             Height          =   255
  102.             Index           =   17
  103.             Left            =   1560
  104.             TabIndex        =   48
  105.             Top             =   960
  106.             Width           =   1215
  107.          End
  108.          Begin VB.Label lblDrive 
  109.             Caption         =   "Label3"
  110.             Height          =   255
  111.             Index           =   16
  112.             Left            =   1560
  113.             TabIndex        =   47
  114.             Top             =   720
  115.             Width           =   1215
  116.          End
  117.          Begin VB.Label lblDrive 
  118.             Caption         =   "Label3"
  119.             Height          =   255
  120.             Index           =   15
  121.             Left            =   1560
  122.             TabIndex        =   46
  123.             Top             =   480
  124.             Width           =   1215
  125.          End
  126.          Begin VB.Label lblDrive 
  127.             Caption         =   "Label3"
  128.             Height          =   255
  129.             Index           =   14
  130.             Left            =   1560
  131.             TabIndex        =   45
  132.             Top             =   240
  133.             Width           =   1215
  134.          End
  135.          Begin VB.Label Label3 
  136.             Caption         =   "Free Clusters"
  137.             Height          =   255
  138.             Index           =   17
  139.             Left            =   120
  140.             TabIndex        =   44
  141.             Top             =   480
  142.             Width           =   1545
  143.          End
  144.          Begin VB.Label Label3 
  145.             Caption         =   "Clusters"
  146.             Height          =   255
  147.             Index           =   16
  148.             Left            =   120
  149.             TabIndex        =   43
  150.             Top             =   240
  151.             Width           =   1545
  152.          End
  153.          Begin VB.Label Label3 
  154.             Caption         =   "Sectors Per Cluster"
  155.             Height          =   255
  156.             Index           =   15
  157.             Left            =   120
  158.             TabIndex        =   42
  159.             Top             =   720
  160.             Width           =   1545
  161.          End
  162.          Begin VB.Label Label3 
  163.             Caption         =   "Bytes Per Sector"
  164.             Height          =   255
  165.             Index           =   14
  166.             Left            =   120
  167.             TabIndex        =   41
  168.             Top             =   960
  169.             Width           =   1545
  170.          End
  171.       End
  172.       Begin VB.Frame Frame4 
  173.          Caption         =   "File System"
  174.          ClipControls    =   0   'False
  175.          Height          =   2295
  176.          Left            =   3240
  177.          TabIndex        =   11
  178.          Top             =   240
  179.          Width           =   3795
  180.          Begin VB.Label lblDrive 
  181.             Caption         =   "Label3"
  182.             Height          =   255
  183.             Index           =   13
  184.             Left            =   1800
  185.             TabIndex        =   39
  186.             Top             =   1920
  187.             Width           =   1545
  188.          End
  189.          Begin VB.Label lblDrive 
  190.             Caption         =   "Label3"
  191.             Height          =   255
  192.             Index           =   12
  193.             Left            =   1800
  194.             TabIndex        =   38
  195.             Top             =   1680
  196.             Width           =   1545
  197.          End
  198.          Begin VB.Label lblDrive 
  199.             Caption         =   "Label3"
  200.             Height          =   255
  201.             Index           =   11
  202.             Left            =   1800
  203.             TabIndex        =   37
  204.             Top             =   240
  205.             Width           =   1545
  206.          End
  207.          Begin VB.Label lblDrive 
  208.             Caption         =   "Label3"
  209.             Height          =   255
  210.             Index           =   10
  211.             Left            =   1800
  212.             TabIndex        =   36
  213.             Top             =   480
  214.             Width           =   1545
  215.          End
  216.          Begin VB.Label lblDrive 
  217.             Caption         =   "Label3"
  218.             Height          =   255
  219.             Index           =   9
  220.             Left            =   1800
  221.             TabIndex        =   35
  222.             Top             =   720
  223.             Width           =   1545
  224.          End
  225.          Begin VB.Label lblDrive 
  226.             Caption         =   "Label3"
  227.             Height          =   255
  228.             Index           =   8
  229.             Left            =   1800
  230.             TabIndex        =   34
  231.             Top             =   960
  232.             Width           =   1545
  233.          End
  234.          Begin VB.Label lblDrive 
  235.             Caption         =   "Label3"
  236.             Height          =   255
  237.             Index           =   7
  238.             Left            =   1800
  239.             TabIndex        =   33
  240.             Top             =   1200
  241.             Width           =   1545
  242.          End
  243.          Begin VB.Label lblDrive 
  244.             Caption         =   "Label3"
  245.             Height          =   255
  246.             Index           =   6
  247.             Left            =   1800
  248.             TabIndex        =   32
  249.             Top             =   1440
  250.             Width           =   1545
  251.          End
  252.          Begin VB.Label Label3 
  253.             Caption         =   "Volume Compressed"
  254.             Height          =   255
  255.             Index           =   13
  256.             Left            =   90
  257.             TabIndex        =   31
  258.             Top             =   1920
  259.             Width           =   1545
  260.          End
  261.          Begin VB.Label Label3 
  262.             Caption         =   "Unicode stored "
  263.             Height          =   255
  264.             Index           =   12
  265.             Left            =   90
  266.             TabIndex        =   30
  267.             Top             =   1680
  268.             Width           =   1545
  269.          End
  270.          Begin VB.Label Label3 
  271.             Caption         =   "Case Is Perserved"
  272.             Height          =   255
  273.             Index           =   11
  274.             Left            =   90
  275.             TabIndex        =   29
  276.             Top             =   240
  277.             Width           =   1545
  278.          End
  279.          Begin VB.Label Label3 
  280.             Caption         =   "Case Sensitive"
  281.             Height          =   255
  282.             Index           =   10
  283.             Left            =   90
  284.             TabIndex        =   28
  285.             Top             =   480
  286.             Width           =   1545
  287.          End
  288.          Begin VB.Label Label3 
  289.             Caption         =   "File Compression"
  290.             Height          =   255
  291.             Index           =   9
  292.             Left            =   90
  293.             TabIndex        =   27
  294.             Top             =   720
  295.             Width           =   1545
  296.          End
  297.          Begin VB.Label Label3 
  298.             Caption         =   "System Name"
  299.             Height          =   255
  300.             Index           =   8
  301.             Left            =   90
  302.             TabIndex        =   26
  303.             Top             =   960
  304.             Width           =   1545
  305.          End
  306.          Begin VB.Label Label3 
  307.             Caption         =   "System Name Length"
  308.             Height          =   255
  309.             Index           =   7
  310.             Left            =   90
  311.             TabIndex        =   25
  312.             Top             =   1200
  313.             Width           =   1545
  314.          End
  315.          Begin VB.Label Label3 
  316.             Caption         =   "Persistent ACLS"
  317.             Height          =   255
  318.             Index           =   6
  319.             Left            =   90
  320.             TabIndex        =   24
  321.             Top             =   1440
  322.             Width           =   1545
  323.          End
  324.       End
  325.       Begin VB.Frame Frame3 
  326.          Caption         =   "Drive"
  327.          Height          =   1815
  328.          Left            =   180
  329.          TabIndex        =   10
  330.          Top             =   240
  331.          Width           =   2895
  332.          Begin VB.Label Label3 
  333.             Caption         =   "Serial Number"
  334.             Height          =   255
  335.             Index           =   5
  336.             Left            =   90
  337.             TabIndex        =   23
  338.             Top             =   1500
  339.             Width           =   1005
  340.          End
  341.          Begin VB.Label Label3 
  342.             Caption         =   "Used Space:"
  343.             Height          =   255
  344.             Index           =   4
  345.             Left            =   90
  346.             TabIndex        =   22
  347.             Top             =   1260
  348.             Width           =   1005
  349.          End
  350.          Begin VB.Label Label3 
  351.             Caption         =   "Type (int)"
  352.             Height          =   255
  353.             Index           =   3
  354.             Left            =   90
  355.             TabIndex        =   21
  356.             Top             =   1020
  357.             Width           =   1005
  358.          End
  359.          Begin VB.Label Label3 
  360.             Caption         =   "Type (char)"
  361.             Height          =   255
  362.             Index           =   2
  363.             Left            =   90
  364.             TabIndex        =   20
  365.             Top             =   780
  366.             Width           =   1005
  367.          End
  368.          Begin VB.Label Label3 
  369.             Caption         =   "Total Space:"
  370.             Height          =   255
  371.             Index           =   1
  372.             Left            =   90
  373.             TabIndex        =   19
  374.             Top             =   540
  375.             Width           =   1005
  376.          End
  377.          Begin VB.Label Label3 
  378.             Caption         =   "Free Space:"
  379.             Height          =   255
  380.             Index           =   0
  381.             Left            =   90
  382.             TabIndex        =   18
  383.             Top             =   300
  384.             Width           =   1005
  385.          End
  386.          Begin VB.Label lblDrive 
  387.             Caption         =   "Label3"
  388.             Height          =   255
  389.             Index           =   5
  390.             Left            =   1170
  391.             TabIndex        =   17
  392.             Top             =   1500
  393.             Width           =   1545
  394.          End
  395.          Begin VB.Label lblDrive 
  396.             Caption         =   "Label3"
  397.             Height          =   255
  398.             Index           =   4
  399.             Left            =   1170
  400.             TabIndex        =   16
  401.             Top             =   1260
  402.             Width           =   1545
  403.          End
  404.          Begin VB.Label lblDrive 
  405.             Caption         =   "Label3"
  406.             Height          =   255
  407.             Index           =   3
  408.             Left            =   1170
  409.             TabIndex        =   15
  410.             Top             =   1020
  411.             Width           =   1545
  412.          End
  413.          Begin VB.Label lblDrive 
  414.             Caption         =   "Label3"
  415.             Height          =   255
  416.             Index           =   2
  417.             Left            =   1170
  418.             TabIndex        =   14
  419.             Top             =   780
  420.             Width           =   1545
  421.          End
  422.          Begin VB.Label lblDrive 
  423.             Caption         =   "Label3"
  424.             Height          =   255
  425.             Index           =   1
  426.             Left            =   1170
  427.             TabIndex        =   13
  428.             Top             =   540
  429.             Width           =   1545
  430.          End
  431.          Begin VB.Label lblDrive 
  432.             Caption         =   "Label3"
  433.             Height          =   255
  434.             Index           =   0
  435.             Left            =   1170
  436.             TabIndex        =   12
  437.             Top             =   300
  438.             Width           =   1545
  439.          End
  440.       End
  441.    End
  442.    Begin VB.Frame Frame1 
  443.       Caption         =   "Changable Properties"
  444.       Height          =   1395
  445.       Left            =   180
  446.       TabIndex        =   6
  447.       Top             =   60
  448.       Width           =   5235
  449.       Begin VB.CommandButton cmdChange 
  450.          Caption         =   "Change the Drive's Volume Label"
  451.          Height          =   315
  452.          Index           =   1
  453.          Left            =   2160
  454.          TabIndex        =   3
  455.          Top             =   780
  456.          Width           =   2895
  457.       End
  458.       Begin VB.CommandButton cmdChange 
  459.          Caption         =   "Change the Drive"
  460.          Height          =   315
  461.          Index           =   0
  462.          Left            =   180
  463.          TabIndex        =   1
  464.          Top             =   780
  465.          Width           =   1815
  466.       End
  467.       Begin VB.TextBox txtVolume 
  468.          Height          =   285
  469.          Left            =   3240
  470.          TabIndex        =   2
  471.          Top             =   360
  472.          Width           =   1815
  473.       End
  474.       Begin VB.TextBox txtDrive 
  475.          Height          =   285
  476.          Left            =   1260
  477.          TabIndex        =   0
  478.          Top             =   360
  479.          Width           =   735
  480.       End
  481.       Begin VB.Label Label2 
  482.          Caption         =   "Volume label:"
  483.          Height          =   255
  484.          Left            =   2160
  485.          TabIndex        =   9
  486.          Top             =   360
  487.          Width           =   1005
  488.       End
  489.       Begin VB.Label Label1 
  490.          Caption         =   "Select Drive:"
  491.          Height          =   255
  492.          Left            =   180
  493.          TabIndex        =   8
  494.          Top             =   360
  495.          Width           =   1005
  496.       End
  497.    End
  498.    Begin ADVDISKLib.AdvDisk AdvDisk1 
  499.       Left            =   6840
  500.       Top             =   600
  501.       _Version        =   262144
  502.       _ExtentX        =   1085
  503.       _ExtentY        =   1296
  504.       _StockProps     =   0
  505.       Drive           =   "d:\"
  506.    End
  507. Attribute VB_Name = "frmFileSystem"
  508. Attribute VB_Creatable = False
  509. Attribute VB_Exposed = False
  510. Sub UpdateAdvDisk()
  511.     ' Display the changable Property Fields
  512.     ' AdvDisk Drive Properties
  513.     txtDrive.Text = AdvDisk1.Drive
  514.     txtVolume.Text = AdvDisk1.DriveVolumeName
  515.     ' Display the non-changable Property Fields
  516.     ' AdvDisk Drive Properties
  517.     lblDrive(0).Caption = AdvDisk1.DriveFreeSpace
  518.     lblDrive(1).Caption = AdvDisk1.DriveTotalSpace
  519.     lblDrive(2).Caption = AdvDisk1.DriveTypeChar
  520.     lblDrive(3).Caption = AdvDisk1.DriveTypeInt
  521.     lblDrive(4).Caption = AdvDisk1.DriveUsedSpace
  522.     lblDrive(5).Caption = AdvDisk1.DriveVolumeSerialNumber
  523.     ' AdvDisk File System Properties
  524.     lblDrive(11).Caption = AdvDisk1.FileSystemCaseIsPreserved
  525.     lblDrive(10).Caption = AdvDisk1.FileSystemCaseSensitive
  526.     lblDrive(9).Caption = AdvDisk1.FileSystemFileIsCompressed
  527.     lblDrive(8).Caption = AdvDisk1.FileSystemName
  528.     lblDrive(7).Caption = AdvDisk1.FileSystemNameLength
  529.     lblDrive(6).Caption = AdvDisk1.FileSystemPersistentACLS
  530.     lblDrive(12).Caption = AdvDisk1.FileSystemUnicodeStoredOnDisk
  531.     lblDrive(13).Caption = AdvDisk1.FileSystemVolumeIsCompressed
  532.     ' AdvDisk Disk Properties
  533.     lblDrive(14).Caption = AdvDisk1.DiskClusters
  534.     lblDrive(15).Caption = AdvDisk1.DiskFreeClusters
  535.     lblDrive(16).Caption = AdvDisk1.DiskSectorsPerCluster
  536.     lblDrive(17).Caption = AdvDisk1.DiskBytesPerSector
  537.     ' AdvDisk Windows Properties
  538.     lblDrive(18).Caption = AdvDisk1.WindowsDirectory
  539.     lblDrive(19).Caption = AdvDisk1.WindowsSystemDirectory
  540. End Sub
  541. Private Sub cmdAbout_Click()
  542.     AdvDisk1.AboutBox
  543. End Sub
  544. Private Sub cmdChange_Click(nbutton As Integer)
  545.     ' Change properties as per user
  546.     If nbutton = 0 Then
  547.         ' This will automatically update the
  548.         ' Non-Changable Property Fields
  549.         AdvDisk1.Drive = txtDrive.Text
  550.     ElseIf nbutton = 1 Then
  551.         ' Change the Disk Label as per user
  552.         AdvDisk1.DriveVolumeName = txtVolume.Text
  553.     End If
  554.     UpdateAdvDisk   ' show properties
  555. End Sub
  556. Private Sub cmdClose_Click()
  557.     Unload Me
  558. End Sub
  559. Private Sub cmdHelp_Click()
  560.     Dim RetVal As Integer
  561.     Dim strHelp As String
  562.     On Error Resume Next
  563.     strHelp = "winhelp " & App.Path & "\advdisk.hlp"
  564.     ' Run Help File for this control.
  565.     RetVal = Shell(strHelp, 1)
  566. End Sub
  567. Private Sub Form_Load()
  568.     ' Display Diak Properties
  569.     txtDrive.Text = AdvDisk1.Drive
  570.     txtVolume.Text = AdvDisk1.DriveVolumeName
  571.     UpdateAdvDisk   ' show properties
  572. End Sub
  573.