Programming Tool Box/SIMS_2.iso/vb_code2/tk_bar/loadgrp.frm

Text File | 1993-12-04 | 3KB | 132 lines

VERSION 2.00
Begin Form frmLoadGroup
   BackColor       =   &H0080FFFF&
   Caption         =   "Load Group"
   ClientHeight    =   4245
   ClientLeft      =   1140
   ClientTop       =   1545
   ClientWidth     =   6180
   Height          =   4680
   Left            =   1065
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4245
   ScaleWidth      =   6180
   Top             =   1185
   Width           =   6330
   Begin CommandButton cmdShowName
      BackColor       =   &H00000000&
      Caption         =   "Show Name"
      Height          =   435
      Left            =   4800
      TabIndex        =   3
      Top             =   2100
      Width           =   1215
   End
   Begin CommandButton cmdCancel
      BackColor       =   &H00000000&
      Caption         =   "Cancel"
      Height          =   435
      Left            =   4800
      TabIndex        =   2
      Top             =   1140
      Width           =   1215
   End
   Begin CommandButton cmdOk
      BackColor       =   &H00000000&
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   435
      Left            =   4800
      TabIndex        =   1
      Top             =   600
      Width           =   1215
   End
   Begin DirListBox Dir1
      Height          =   3180
      Left            =   120
      TabIndex        =   5
      Top             =   600
      Width           =   2595
   End
   Begin FileListBox File1
      Height          =   3540
      Left            =   2820
      Pattern         =   "*.grp"
      TabIndex        =   0
      Top             =   600
      Width           =   1815
   End
   Begin DriveListBox Drive1
      Height          =   315
      Left            =   120
      TabIndex        =   4
      Top             =   3840
      Width           =   2595
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackColor       =   &H0080FFFF&
      Caption         =   "Group Name"
      Height          =   195
      Left            =   120
      TabIndex        =   7
      Top             =   60
      Width           =   1065
   End
   Begin Label lblGroupName
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   300
      Width           =   4515
   End
End
Option Explicit

Sub cmdCancel_Click ()
  gGroupFilename$ = ""
  Unload Me
End Sub

Sub cmdOk_Click ()
  gGroupFilename$ = Dir1.Path & "\" & File1.FileName
  Unload Me
End Sub

Sub cmdShowName_Click ()
  If File1.ListIndex = -1 Then Exit Sub
  lblGroupName.Caption = GetGroupName$(Dir1.Path & "\" & File1.FileName)
  File1.SetFocus
End Sub

Sub Dir1_Change ()
  File1.Path = Dir1.Path
End Sub

Sub Drive1_Change ()
  Dir1.Path = Drive1.Drive
End Sub

Sub File1_Click ()
  lblGroupName.Caption = ""
End Sub

Sub File1_DblClick ()
  Call cmdOk_Click
End Sub

Sub File1_PathChange ()
  lblGroupName.Caption = ""
End Sub

Sub Form_Load ()
   Drive1.Drive = Left$(gWindowsDir$, 1)
   Dir1.Path = gWindowsDir$
   File1.ListIndex = 0
   CenterForm Me
End Sub