home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simple2a / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-07-25  |  5.6 KB  |  182 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSmall 
  3.    Caption         =   "Simple Image Viewer"
  4.    ClientHeight    =   7110
  5.    ClientLeft      =   2235
  6.    ClientTop       =   870
  7.    ClientWidth     =   5985
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   7110
  10.    ScaleWidth      =   5985
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin VB.CommandButton cmdShowImage 
  13.       Caption         =   "Show Image"
  14.       Height          =   495
  15.       Left            =   1462
  16.       TabIndex        =   4
  17.       Top             =   6480
  18.       Width           =   1215
  19.    End
  20.    Begin VB.FileListBox filFileList 
  21.       Height          =   2040
  22.       Left            =   3052
  23.       Pattern         =   "*.jpg;*.gif; *.bmp"
  24.       TabIndex        =   3
  25.       Top             =   360
  26.       Width           =   2520
  27.    End
  28.    Begin VB.DirListBox dirFolderList 
  29.       Height          =   1215
  30.       Left            =   397
  31.       TabIndex        =   2
  32.       Top             =   1170
  33.       Width           =   2475
  34.    End
  35.    Begin VB.DriveListBox drvDriveList 
  36.       Height          =   315
  37.       Left            =   397
  38.       TabIndex        =   1
  39.       Top             =   405
  40.       Width           =   1440
  41.    End
  42.    Begin VB.CommandButton cmdExit 
  43.       Caption         =   "E&xit"
  44.       Height          =   495
  45.       Left            =   3307
  46.       TabIndex        =   0
  47.       Top             =   6480
  48.       Width           =   1215
  49.    End
  50.    Begin VB.Label lblImage 
  51.       BorderStyle     =   1  'Fixed Single
  52.       BeginProperty Font 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   9.75
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   315
  62.       Left            =   397
  63.       TabIndex        =   8
  64.       Top             =   2460
  65.       Width           =   5175
  66.    End
  67.    Begin VB.Label Label3 
  68.       AutoSize        =   -1  'True
  69.       Caption         =   "Folder:"
  70.       BeginProperty Font 
  71.          Name            =   "MS Sans Serif"
  72.          Size            =   12
  73.          Charset         =   0
  74.          Weight          =   400
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   300
  80.       Left            =   397
  81.       TabIndex        =   7
  82.       Top             =   810
  83.       Width           =   735
  84.    End
  85.    Begin VB.Label Label2 
  86.       AutoSize        =   -1  'True
  87.       Caption         =   "Files:"
  88.       BeginProperty Font 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   12
  91.          Charset         =   0
  92.          Weight          =   400
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       Height          =   300
  98.       Left            =   3052
  99.       TabIndex        =   6
  100.       Top             =   45
  101.       Width           =   555
  102.    End
  103.    Begin VB.Label Label1 
  104.       AutoSize        =   -1  'True
  105.       Caption         =   "Drive:"
  106.       BeginProperty Font 
  107.          Name            =   "MS Sans Serif"
  108.          Size            =   12
  109.          Charset         =   0
  110.          Weight          =   400
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       Height          =   300
  116.       Left            =   442
  117.       TabIndex        =   5
  118.       Top             =   45
  119.       Width           =   600
  120.    End
  121.    Begin VB.Image imgImage 
  122.       BorderStyle     =   1  'Fixed Single
  123.       Height          =   3255
  124.       Left            =   532
  125.       Stretch         =   -1  'True
  126.       Top             =   3000
  127.       Width           =   4920
  128.    End
  129.    Begin VB.Shape Shape1 
  130.       FillColor       =   &H00FFFFFF&
  131.       FillStyle       =   0  'Solid
  132.       Height          =   3240
  133.       Left            =   532
  134.       Top             =   3000
  135.       Width           =   4920
  136.    End
  137.    Begin VB.Shape shpImageBk 
  138.       BackColor       =   &H00FFC0C0&
  139.       BackStyle       =   1  'Opaque
  140.       BorderColor     =   &H00FF0000&
  141.       FillColor       =   &H00FF8080&
  142.       FillStyle       =   7  'Diagonal Cross
  143.       Height          =   3525
  144.       Left            =   390
  145.       Top             =   2850
  146.       Width           =   5190
  147.    End
  148. Attribute VB_Name = "frmSmall"
  149. Attribute VB_GlobalNameSpace = False
  150. Attribute VB_Creatable = False
  151. Attribute VB_PredeclaredId = True
  152. Attribute VB_Exposed = False
  153. Private Sub cmdExit_Click()
  154.     Unload Me
  155. End Sub
  156. Private Sub cmdShowImage_Click()
  157.     'Put image file name together and
  158.     'load image into image box
  159.     Dim ImageName As String
  160.     'Check to see if filename blank
  161.     If filFileList.FileName = "" Then Exit Sub
  162.     'Check to see if at root directory
  163.         If Right(filFileList.Path, 1) = "\" Then
  164.             ImageName = filFileList.Path + filFileList.FileName
  165.     Else
  166.         ImageName = filFileList.Path + "\" + filFileList.FileName
  167.     End If
  168.     lblImage.Caption = ImageName
  169.     imgImage.Picture = LoadPicture(ImageName)
  170. End Sub
  171. Private Sub dirFolderList_Change()
  172.     'If directory changes, update file path
  173.     filFileList.Path = dirFolderList.Path
  174. End Sub
  175. Private Sub drvDriveList_Change()
  176.     'If drive changes, update directory
  177.     dirFolderList.Path = drvDriveList.Drive
  178. End Sub
  179. Private Sub filFileList_DblClick()
  180.     Call cmdShowImage_Click
  181. End Sub
  182.