home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD36692272000.psc / Server / frmDirChoose.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-02-27  |  3.0 KB  |  94 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDirChoose 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Choose Directory"
  5.    ClientHeight    =   3810
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   2685
  9.    Icon            =   "frmDirChoose.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3810
  14.    ScaleWidth      =   2685
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton cmdOK 
  18.       BackColor       =   &H00C0C0C0&
  19.       Caption         =   "OK"
  20.       BeginProperty Font 
  21.          Name            =   "Verdana"
  22.          Size            =   8.25
  23.          Charset         =   0
  24.          Weight          =   400
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   375
  30.       Left            =   1400
  31.       Style           =   1  'Graphical
  32.       TabIndex        =   2
  33.       Top             =   3360
  34.       Width           =   1215
  35.    End
  36.    Begin VB.DirListBox Dir1 
  37.       BeginProperty Font 
  38.          Name            =   "Verdana"
  39.          Size            =   8.25
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   2565
  47.       Left            =   80
  48.       TabIndex        =   1
  49.       Top             =   600
  50.       Width           =   2535
  51.    End
  52.    Begin VB.DriveListBox Drive1 
  53.       BeginProperty Font 
  54.          Name            =   "Verdana"
  55.          Size            =   8.25
  56.          Charset         =   0
  57.          Weight          =   400
  58.          Underline       =   0   'False
  59.          Italic          =   0   'False
  60.          Strikethrough   =   0   'False
  61.       EndProperty
  62.       Height          =   315
  63.       Left            =   80
  64.       TabIndex        =   0
  65.       Top             =   120
  66.       Width           =   2535
  67.    End
  68. Attribute VB_Name = "frmDirChoose"
  69. Attribute VB_GlobalNameSpace = False
  70. Attribute VB_Creatable = False
  71. Attribute VB_PredeclaredId = True
  72. Attribute VB_Exposed = False
  73. Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  74. Private Sub cmdOK_Click()
  75. frmMain.txtRoot.Text = Dir1.Path
  76. frmMain.Enabled = True
  77. AppActivate frmMain.Caption
  78. Unload Me
  79. End Sub
  80. Private Sub Drive1_Change()
  81. On Error Resume Next
  82. Dir1.Path = Drive1.Drive
  83. End Sub
  84. Private Sub Form_Load()
  85. On Error Resume Next
  86. SendMessage cmdOK.hWnd, &HF4&, &H0&, 0&
  87. Drive1.Drive = Mid(frmMain.txtRoot.Text, 1, 2)
  88. Dir1.Path = frmMain.txtRoot.Text
  89. TakeOutMenu Me, SC_CLOSE
  90. Left = Screen.Width \ 2 - Width \ 2
  91. Top = Screen.Height \ 2 - Height \ 2
  92. SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3
  93. End Sub
  94.