home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l406 / 1.ddi / PICVIEW.FR_ / PICVIEW.bin (.txt)
Encoding:
Visual Basic Form  |  1992-10-21  |  2.7 KB  |  89 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Picture Viewer"
  4.    ClipControls    =   0   'False
  5.    Height          =   5250
  6.    Left            =   1020
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   4845
  9.    ScaleWidth      =   7365
  10.    Top             =   1320
  11.    Width           =   7485
  12.    Begin CommandButton Command1 
  13.       Caption         =   "E&xit"
  14.       Height          =   495
  15.       Left            =   5520
  16.       TabIndex        =   4
  17.       Top             =   4080
  18.       Width           =   1215
  19.    End
  20.    Begin FileListBox File1 
  21.       Height          =   1395
  22.       Left            =   600
  23.       Pattern         =   "*.bmp;*.wmf;*.ico"
  24.       TabIndex        =   2
  25.       Top             =   2400
  26.       Width           =   2895
  27.    End
  28.    Begin DirListBox Dir1 
  29.       Height          =   1575
  30.       Left            =   600
  31.       TabIndex        =   1
  32.       Top             =   720
  33.       Width           =   2895
  34.    End
  35.    Begin DriveListBox Drive1 
  36.       Height          =   1530
  37.       Left            =   600
  38.       TabIndex        =   0
  39.       Top             =   360
  40.       Width           =   2895
  41.    End
  42.    Begin Label Label1 
  43.       BorderStyle     =   1  'Fixed Single
  44.       Height          =   495
  45.       Left            =   3720
  46.       TabIndex        =   3
  47.       Top             =   3240
  48.       Width           =   3015
  49.    End
  50.    Begin Image open 
  51.       BorderStyle     =   1  'Fixed Single
  52.       Height          =   2775
  53.       Left            =   3720
  54.       Stretch         =   -1  'True
  55.       Top             =   360
  56.       Width           =   3015
  57.    End
  58. Sub Command1_Click ()
  59.     End
  60. End Sub
  61. Sub Dir1_Change ()
  62. ' When directory is changed, update path in Files control.
  63.     file1.Path = Dir1.Path
  64. End Sub
  65. Sub Drive1_Change ()
  66. ' When drive is changed, update directory control.
  67. ' (This also causes a Change event for the directory control).
  68.        Dir1.Path = Drive1.Drive
  69. End Sub
  70. Sub File1_DblClick ()
  71. ' When at the root level (for example, C:\) the Path property
  72. ' has a backslash (\) at the end.  When at any other level,
  73. ' there is no final \.  This code handles either case to build
  74. ' the complete path and filename of the selected file.
  75.       If Right(file1.Path, 1) <> "\" Then
  76.         label1.Caption = file1.Path & "\" & file1.FileName
  77.       Else
  78.         label1.Caption = file1.Path & file1.FileName
  79.       End If
  80. ' Load the selected picture file.
  81.       Form1.open.Picture = LoadPicture(label1.Caption)
  82. End Sub
  83. Sub Form_Load ()
  84. ' Set drive and path for controls to drive
  85. ' and directory where this application is located.
  86.     Drive1.Drive = App.Path
  87.     Dir1.Path = App.Path
  88. End Sub
  89.