home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / vbpg32 / samples5 / ch13 / fileinfo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-16  |  7.0 KB  |  238 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOpen 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Choose a file to view"
  5.    ClientHeight    =   3300
  6.    ClientLeft      =   1545
  7.    ClientTop       =   2880
  8.    ClientWidth     =   6900
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   3300
  14.    ScaleWidth      =   6900
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.TextBox txtPattern 
  17.       Height          =   315
  18.       Left            =   60
  19.       TabIndex        =   10
  20.       Text            =   "*.*"
  21.       Top             =   2820
  22.       Visible         =   0   'False
  23.       Width           =   2475
  24.    End
  25.    Begin VB.CommandButton cmdExit 
  26.       Caption         =   "E&xit"
  27.       BeginProperty Font 
  28.          Name            =   "MS Sans Serif"
  29.          Size            =   8.25
  30.          Charset         =   0
  31.          Weight          =   700
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       Height          =   375
  37.       Left            =   5460
  38.       TabIndex        =   6
  39.       Top             =   600
  40.       Width           =   1275
  41.    End
  42.    Begin VB.CommandButton cmdView 
  43.       Caption         =   "&View"
  44.       BeginProperty Font 
  45.          Name            =   "MS Sans Serif"
  46.          Size            =   8.25
  47.          Charset         =   0
  48.          Weight          =   700
  49.          Underline       =   0   'False
  50.          Italic          =   0   'False
  51.          Strikethrough   =   0   'False
  52.       EndProperty
  53.       Height          =   375
  54.       Left            =   5460
  55.       TabIndex        =   5
  56.       Top             =   180
  57.       Width           =   1275
  58.    End
  59.    Begin VB.TextBox txtFileName 
  60.       Height          =   285
  61.       Left            =   120
  62.       TabIndex        =   3
  63.       Top             =   240
  64.       Visible         =   0   'False
  65.       Width           =   2415
  66.    End
  67.    Begin VB.DriveListBox Drive1 
  68.       Height          =   315
  69.       Left            =   2820
  70.       TabIndex        =   2
  71.       Top             =   2820
  72.       Width           =   2475
  73.    End
  74.    Begin VB.FileListBox File1 
  75.       BackColor       =   &H00FFFFFF&
  76.       ForeColor       =   &H00000000&
  77.       Height          =   1785
  78.       Left            =   120
  79.       TabIndex        =   1
  80.       Top             =   600
  81.       Width           =   2415
  82.    End
  83.    Begin VB.DirListBox Dir1 
  84.       Height          =   1830
  85.       Left            =   2820
  86.       TabIndex        =   0
  87.       Top             =   540
  88.       Width           =   2475
  89.    End
  90.    Begin VB.Label Label3 
  91.       Caption         =   "View Files of Type:"
  92.       BeginProperty Font 
  93.          Name            =   "MS Sans Serif"
  94.          Size            =   8.25
  95.          Charset         =   0
  96.          Weight          =   700
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       Height          =   255
  102.       Left            =   60
  103.       TabIndex        =   11
  104.       Top             =   2580
  105.       Visible         =   0   'False
  106.       Width           =   1635
  107.    End
  108.    Begin VB.Label lblPath 
  109.       Caption         =   "E:\vb4\icons\misc"
  110.       BeginProperty Font 
  111.          Name            =   "MS Sans Serif"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   700
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       Height          =   195
  120.       Left            =   2820
  121.       TabIndex        =   9
  122.       Top             =   300
  123.       Width           =   2475
  124.    End
  125.    Begin VB.Label Label2 
  126.       Caption         =   "Directories:"
  127.       BeginProperty Font 
  128.          Name            =   "MS Sans Serif"
  129.          Size            =   8.25
  130.          Charset         =   0
  131.          Weight          =   700
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       Height          =   195
  137.       Left            =   2820
  138.       TabIndex        =   8
  139.       Top             =   60
  140.       Width           =   1455
  141.    End
  142.    Begin VB.Label Label1 
  143.       Caption         =   "Drives:"
  144.       BeginProperty Font 
  145.          Name            =   "MS Sans Serif"
  146.          Size            =   8.25
  147.          Charset         =   0
  148.          Weight          =   700
  149.          Underline       =   0   'False
  150.          Italic          =   0   'False
  151.          Strikethrough   =   0   'False
  152.       EndProperty
  153.       Height          =   255
  154.       Left            =   2820
  155.       TabIndex        =   7
  156.       Top             =   2580
  157.       Width           =   1635
  158.    End
  159.    Begin VB.Label Label4 
  160.       Caption         =   "File Name:"
  161.       BeginProperty Font 
  162.          Name            =   "MS Sans Serif"
  163.          Size            =   8.25
  164.          Charset         =   0
  165.          Weight          =   700
  166.          Underline       =   0   'False
  167.          Italic          =   0   'False
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.       Height          =   195
  171.       Left            =   120
  172.       TabIndex        =   4
  173.       Top             =   60
  174.       Visible         =   0   'False
  175.       Width           =   1395
  176.    End
  177. Attribute VB_Name = "frmOpen"
  178. Attribute VB_GlobalNameSpace = False
  179. Attribute VB_Creatable = False
  180. Attribute VB_PredeclaredId = True
  181. Attribute VB_Exposed = False
  182. Option Explicit
  183. ' Copyright 
  184.  1997 by Desaware Inc. All Rights Reserved
  185. Dim oldDrive$
  186. Private Sub cmdExit_Click()
  187.     Unload Me
  188. End Sub
  189. Private Sub cmdView_Click()
  190.     Dim s$
  191.     s$ = Dir1.Path
  192.     If Right$(s$, 1) <> "\" Then
  193.         s$ = s$ & "\"
  194.     End If
  195.     s$ = s$ & File1.List(File1.ListIndex)
  196.     Load frmView
  197.     frmView.Initialize s$
  198.     frmView.Show 1
  199. End Sub
  200. Private Sub Dir1_Change()
  201.     File1.Path = Dir1.Path
  202.     lblPath = Dir1.Path
  203. End Sub
  204. Private Sub Drive1_Change()
  205.     On Error GoTo handler
  206.     Dir1.Path = Drive1.Drive
  207.     oldDrive$ = Drive1.Drive
  208.     Exit Sub
  209. handler:
  210.     Select Case Err
  211.         Case 68:
  212.             MsgBox "Drive " & UCase$(Drive1.Drive) & " is not available."
  213.             Drive1.Drive = oldDrive$
  214.     End Select
  215.     Exit Sub
  216. End Sub
  217. Private Sub File1_DblClick()
  218.     cmdView_Click
  219. End Sub
  220. Private Sub Form_Load()
  221.     oldDrive$ = Drive1.Drive
  222. End Sub
  223. Private Sub txtPattern_KeyPress(KeyAscii As Integer)
  224.     If KeyAscii = 13 Then
  225.         If txtPattern = "" Then
  226.             txtPattern = "*.*"
  227.         Else
  228.             If Right$(txtPattern, 1) = "." Then
  229.                 txtPattern = txtPattern & "*"
  230.             ElseIf InStr(txtPattern, ".") = 0 Then
  231.                 txtPattern = txtPattern & "*.*"
  232.             End If
  233.         End If
  234.         File1.Pattern = txtPattern.Text
  235.         KeyAscii = 0
  236.     End If
  237. End Sub
  238.