home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / RM_Secure20301611112006.psc / frmSettings.frm < prev    next >
Text File  |  2006-11-11  |  14KB  |  470 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmSettings 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Settings"
  6.    ClientHeight    =   5100
  7.    ClientLeft      =   285
  8.    ClientTop       =   390
  9.    ClientWidth     =   3735
  10.    BeginProperty Font 
  11.       Name            =   "Arial Unicode MS"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "frmSettings.frx":0000
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   5100
  23.    ScaleWidth      =   3735
  24.    ShowInTaskbar   =   0   'False
  25.    StartUpPosition =   3  'Windows Default
  26.    Begin MSComctlLib.ImageList im 
  27.       Left            =   1380
  28.       Top             =   4695
  29.       _ExtentX        =   1005
  30.       _ExtentY        =   1005
  31.       BackColor       =   -2147483643
  32.       ImageWidth      =   16
  33.       ImageHeight     =   16
  34.       MaskColor       =   12632256
  35.       _Version        =   393216
  36.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  37.          NumListImages   =   5
  38.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  39.             Picture         =   "frmSettings.frx":3452
  40.             Key             =   ""
  41.          EndProperty
  42.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  43.             Picture         =   "frmSettings.frx":37A4
  44.             Key             =   ""
  45.          EndProperty
  46.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  47.             Picture         =   "frmSettings.frx":3AF6
  48.             Key             =   ""
  49.          EndProperty
  50.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  51.             Picture         =   "frmSettings.frx":3E48
  52.             Key             =   ""
  53.          EndProperty
  54.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  55.             Picture         =   "frmSettings.frx":419A
  56.             Key             =   ""
  57.          EndProperty
  58.       EndProperty
  59.    End
  60.    Begin VB.Timer timResize 
  61.       Enabled         =   0   'False
  62.       Interval        =   1
  63.       Left            =   900
  64.       Tag             =   "Grow"
  65.       Top             =   4695
  66.    End
  67.    Begin VB.CommandButton cmdHelp 
  68.       Caption         =   "&Help"
  69.       Height          =   300
  70.       Left            =   75
  71.       TabIndex        =   10
  72.       Top             =   4725
  73.       Width           =   720
  74.    End
  75.    Begin VB.CommandButton cmdOK 
  76.       Caption         =   "&OK"
  77.       Default         =   -1  'True
  78.       Height          =   300
  79.       Left            =   2895
  80.       TabIndex        =   8
  81.       Top             =   4725
  82.       Width           =   780
  83.    End
  84.    Begin VB.Frame frPass 
  85.       Caption         =   "Password"
  86.       ForeColor       =   &H00C00000&
  87.       Height          =   885
  88.       Left            =   60
  89.       TabIndex        =   5
  90.       Top             =   3765
  91.       Width           =   3615
  92.       Begin VB.CheckBox chkPass 
  93.          Caption         =   "Use Password"
  94.          Height          =   285
  95.          Left            =   180
  96.          TabIndex        =   7
  97.          Top             =   375
  98.          Width           =   2160
  99.       End
  100.       Begin VB.CommandButton cmdPass 
  101.          Caption         =   "Set/Change"
  102.          Enabled         =   0   'False
  103.          Height          =   300
  104.          Left            =   2340
  105.          TabIndex        =   6
  106.          Top             =   360
  107.          Width           =   1080
  108.       End
  109.    End
  110.    Begin VB.Frame frDrive 
  111.       Caption         =   "Drive"
  112.       ForeColor       =   &H00C00000&
  113.       Height          =   3660
  114.       Left            =   60
  115.       TabIndex        =   0
  116.       Top             =   45
  117.       Width           =   3615
  118.       Begin VB.CheckBox chkSecondary 
  119.          Caption         =   "Use secondary drive"
  120.          Height          =   240
  121.          Left            =   180
  122.          TabIndex        =   12
  123.          Top             =   3300
  124.          Width           =   2445
  125.       End
  126.       Begin VB.CommandButton cmdSelect2 
  127.          Caption         =   "Select"
  128.          Height          =   300
  129.          Left            =   2550
  130.          TabIndex        =   3
  131.          Top             =   2520
  132.          Width           =   855
  133.       End
  134.       Begin VB.CommandButton cmdRefresh 
  135.          Caption         =   "Refresh List"
  136.          Height          =   300
  137.          Left            =   150
  138.          TabIndex        =   2
  139.          Top             =   2520
  140.          Width           =   1050
  141.       End
  142.       Begin MSComctlLib.TreeView tvDrives 
  143.          Height          =   2190
  144.          Left            =   150
  145.          TabIndex        =   1
  146.          Top             =   315
  147.          Width           =   3255
  148.          _ExtentX        =   5741
  149.          _ExtentY        =   3863
  150.          _Version        =   393217
  151.          HideSelection   =   0   'False
  152.          Indentation     =   647
  153.          Style           =   7
  154.          ImageList       =   "im"
  155.          Appearance      =   0
  156.       End
  157.       Begin VB.CommandButton cmdSelect1 
  158.          Caption         =   "Select (1)"
  159.          Height          =   300
  160.          Left            =   1710
  161.          TabIndex        =   13
  162.          Top             =   2520
  163.          Visible         =   0   'False
  164.          Width           =   855
  165.       End
  166.       Begin VB.Label lblSelDrv 
  167.          Caption         =   "Selected Drive: - "
  168.          Height          =   255
  169.          Left            =   150
  170.          TabIndex        =   4
  171.          Top             =   2970
  172.          Width           =   3255
  173.       End
  174.    End
  175.    Begin VB.CommandButton cmdCancel 
  176.       Caption         =   "&Cancel"
  177.       Height          =   300
  178.       Left            =   2040
  179.       TabIndex        =   9
  180.       Top             =   4725
  181.       Width           =   870
  182.    End
  183.    Begin VB.Label lblHelp 
  184.       Caption         =   $"frmSettings.frx":44EC
  185.       BeginProperty Font 
  186.          Name            =   "Arial Unicode MS"
  187.          Size            =   9
  188.          Charset         =   0
  189.          Weight          =   400
  190.          Underline       =   0   'False
  191.          Italic          =   0   'False
  192.          Strikethrough   =   0   'False
  193.       EndProperty
  194.       Height          =   4695
  195.       Left            =   3795
  196.       TabIndex        =   11
  197.       Top             =   300
  198.       Width           =   2445
  199.    End
  200. End
  201. Attribute VB_Name = "frmSettings"
  202. Attribute VB_GlobalNameSpace = False
  203. Attribute VB_Creatable = False
  204. Attribute VB_PredeclaredId = True
  205. Attribute VB_Exposed = False
  206. Public Enum VF
  207.     Visible = 0
  208.     Enabled = 1
  209. End Enum
  210.  
  211. '// If the checkbox is checked enable/disable the 'edit' button
  212. Private Sub chkPass_Click()
  213.  
  214.     CheckChk chkPass, cmdPass, Enabled
  215.     
  216.     If chkPass.Value = Checked Then
  217.         PassUse = True
  218.     Else
  219.         PassUse = False
  220.     End If
  221.  
  222. End Sub
  223.  
  224. '// Same as above
  225. Private Sub chkPass_KeyPress(KeyAscii As Integer)
  226.  
  227.     chkPass_Click
  228.  
  229. End Sub
  230.  
  231. '// When you choose for a secondary drive, a second button will appear
  232. Private Sub chkSecondary_Click()
  233.  
  234.     CheckChk chkSecondary, cmdSelect1, Visible
  235.     
  236.     If chkSecondary.Value = Checked Then
  237.         cmdSelect2.Caption = "Select (2)"
  238.         lblSelDrv.Caption = "Selected Drives: -"
  239.         DualDrive = True
  240.     Else
  241.         cmdSelect2.Caption = "Select"
  242.         lblSelDrv.Caption = "Selected Drive: -"
  243.         DualDrive = False
  244.     End If
  245.  
  246. End Sub
  247.  
  248. '// Same as above
  249. Private Sub chkSecondary_KeyPress(KeyAscii As Integer)
  250.  
  251.     chkSecondary_Click
  252.  
  253. End Sub
  254.  
  255. '// Unload the form
  256. Private Sub cmdCancel_Click()
  257.  
  258.     Unload Me
  259.  
  260. End Sub
  261.  
  262. '// Resize form to show/hide label
  263. Private Sub cmdHelp_Click()
  264.  
  265.     timResize.Enabled = True
  266.  
  267. End Sub
  268.  
  269. '// Save settings and lock the computer
  270. Private Sub cmdOK_Click()
  271.  
  272.     GSSettings SetS, False
  273.     DoEvents
  274.     frmLock.Show
  275.     Unload Me
  276.  
  277. End Sub
  278.  
  279. '// Show password edit dialog
  280. Private Sub cmdPass_Click()
  281.  
  282.     frmPassword.Show
  283.  
  284. End Sub
  285.  
  286. '// Refresh drives list
  287. Private Sub cmdRefresh_Click()
  288.  
  289.     LoadDrives tvDrives
  290.  
  291. End Sub
  292.  
  293. '// If this button is clicked we deal with dualmedia.
  294. '// Here it will set the first drive
  295. Private Sub cmdSelect1_Click()
  296. On Error Resume Next
  297.  
  298.     SelDrvD(1) = tvDrives.SelectedItem.Text
  299.  
  300.     If Left(tvDrives.SelectedItem.Key, 3) = "SER" Then
  301.         SelDrvSerD(1) = Split(tvDrives.SelectedItem.Key, "SER")(1)
  302.     Else
  303.         SelDrvSerD(1) = 0
  304.     End If
  305.     
  306.     If SelDrvD(2) <> "" Then
  307.         lblSelDrv.Caption = "Selected Drives: " & Chr(34) & SelDrvD(1) & Chr(34) & " && " & _
  308.             Chr(34) & SelDrvD(2) & Chr(34)
  309.     Else
  310.         lblSelDrv.Caption = "Selected Drives: " & Chr(34) & SelDrvD(1) & Chr(34)
  311.     End If
  312.  
  313. End Sub
  314.  
  315. '// Set second or only drive
  316. Private Sub cmdSelect2_Click()
  317. On Error Resume Next
  318.  
  319.     If chkSecondary.Value = Checked Then
  320.         SelDrvD(2) = tvDrives.SelectedItem.Text
  321.         If Left(tvDrives.SelectedItem.Key, 3) = "SER" Then
  322.             SelDrvSerD(2) = Split(tvDrives.SelectedItem.Key, "SER")(1)
  323.         Else
  324.             SelDrvSerD(2) = 0
  325.         End If
  326.         
  327.         lblSelDrv.Caption = "Selected Drives: " & Chr(34) & SelDrvD(1) & Chr(34) & " && " & _
  328.             Chr(34) & SelDrvD(2) & Chr(34)
  329.  
  330.     Else
  331.         SelDrv = tvDrives.SelectedItem.Text
  332.         If Left(tvDrives.SelectedItem.Key, 3) = "SER" Then
  333.             SelDrvSer = Split(tvDrives.SelectedItem.Key, "SER")(1)
  334.         Else
  335.             SelDrvSer = 0
  336.         End If
  337.         lblSelDrv.Caption = "Selected Drive: " & Chr(34) & SelDrv & Chr(34)
  338.     End If
  339.  
  340. End Sub
  341.  
  342. '// Load drives list and get settings
  343. Private Sub Form_Load()
  344.  
  345.     LoadDrives tvDrives
  346.     GSSettings GetS, True
  347.  
  348. End Sub
  349.  
  350. '// Resize form for help
  351. Private Sub timResize_Timer()
  352.  
  353.     If timResize.Tag = "Grow" Then
  354.         If Me.Width < 6510 Then
  355.             Me.Caption = ""
  356.             Me.Width = Me.Width + 160
  357.         End If
  358.         If Me.Width = 6510 Or Me.Width > 6510 Then
  359.             Me.Width = 6510
  360.             Me.Caption = "Settings"
  361.             timResize.Tag = "Shrink"
  362.             timResize.Enabled = False
  363.         End If
  364.     Else
  365.         If Me.Width > 3825 Then
  366.             Me.Caption = ""
  367.             Me.Width = Me.Width - 60
  368.         End If
  369.         If Me.Width = 3825 Or Me.Width < 3825 Then
  370.             Me.Width = 3825
  371.             Me.Caption = "Settings"
  372.             timResize.Tag = "Grow"
  373.             timResize.Enabled = False
  374.         End If
  375.     End If
  376.     
  377. End Sub
  378.  
  379. '// Get the drives
  380. Private Function LoadDrives(Treeview As Object)
  381.  
  382.     Dim fso
  383.     Dim Drive
  384.     
  385.     Treeview.Nodes.Clear
  386.     
  387.     Set fso = CreateObject("Scripting.FileSystemObject")
  388.     DoEvents
  389.     
  390.     For Each Drive In fso.Drives
  391.         If Drive.IsReady = True Then
  392.             '0 = Unknown
  393.             '1 = Removable
  394.             '2 = Fixed
  395.             '3 = Remote
  396.             '4 = Cd-Rom
  397.             '5 = Ram Disk
  398.             DoEvents
  399.             Select Case Drive.DriveType
  400.                 Case 0
  401.                     If Drive.SerialNumber <> 0 Then
  402.                         Treeview.Nodes.Add , , "SER" & Drive.SerialNumber, Drive.DriveLetter & ":\", 1
  403.                     Else
  404.                         Treeview.Nodes.Add , , Drive.DriveLetter, Drive.DriveLetter & ":\", 1
  405.                     End If
  406.                 Case 1
  407.                     If Drive.SerialNumber <> 0 Then
  408.                         '// You can change the maximum size of removable media to own
  409.                         '// will. This is here to seperate external and internal disks
  410.                         '// but as the years fly by there is no much difference anymore...
  411.                         If Drive.TotalSize < 3000000 Then
  412.                             Treeview.Nodes.Add , , "SER" & Drive.SerialNumber, Drive.DriveLetter & _
  413.                                 ":\", 4
  414.                         Else
  415.                             Treeview.Nodes.Add , , "SER" & Drive.SerialNumber, Drive.DriveLetter & _
  416.                                 ":\", 1
  417.                         End If
  418.                     Else
  419.                         If Drive.TotalSize < 3000000 Then
  420.                             Treeview.Nodes.Add , , Drive.DriveLetter, Drive.DriveLetter & _
  421.                                 ":\", 4
  422.                         Else
  423.                             Treeview.Nodes.Add , , Drive.DriveLetter, Drive.DriveLetter & _
  424.                                 ":\", 1
  425.                         End If
  426.                     End If
  427.                 Case 3
  428.                     If Drive.SerialNumber <> 0 Then
  429.                         Treeview.Nodes.Add , , "SER" & Drive.SerialNumber, Drive.DriveLetter & ":\", 5
  430.                     Else
  431.                         Treeview.Nodes.Add , , Drive.DriveLetter, Drive.DriveLetter & ":\", 5
  432.                     End If
  433.                 Case 4
  434.                     If Drive.SerialNumber <> 0 Then
  435.                         Treeview.Nodes.Add , , "SER" & Drive.SerialNumber, Drive.DriveLetter & ":\", 2
  436.                     Else
  437.                         Treeview.Nodes.Add , , Drive.DriveLetter, Drive.DriveLetter & ":\", 2
  438.                     End If
  439.                 Case 5
  440.                     If Drive.SerialNumber <> 0 Then
  441.                         Treeview.Nodes.Add , , "SER" & Drive.SerialNumber, Drive.DriveLetter & ":\", 1
  442.                     Else
  443.                         Treeview.Nodes.Add , , Drive.DriveLetter, Drive.DriveLetter & ":\", 1
  444.                     End If
  445.             End Select
  446.         End If
  447.     Next
  448.     
  449. End Function
  450.  
  451. Private Function CheckChk(ChkBox As Object, CmdButton As Object, VisibleOrEnabled As VF)
  452. On Error Resume Next
  453.  
  454.     If ChkBox.Value = Checked Then
  455.         If VisibleOrEnabled = Enabled Then
  456.             CmdButton.Enabled = True
  457.         Else
  458.             CmdButton.Visible = True
  459.         End If
  460.     Else
  461.         If VisibleOrEnabled = Enabled Then
  462.             CmdButton.Enabled = False
  463.         Else
  464.             CmdButton.Visible = False
  465.         End If
  466.     End If
  467.     
  468. End Function
  469.  
  470.