home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD80447232000.psc / PSSC1 / frmOpenPicForOpt3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-07-13  |  2.2 KB  |  82 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOpenPicForOpt3 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Open Picture:"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3720
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3195
  14.    ScaleWidth      =   3720
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command2 
  17.       Caption         =   "Cancel"
  18.       Height          =   495
  19.       Left            =   1920
  20.       TabIndex        =   4
  21.       Top             =   2640
  22.       Width           =   855
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "&OK"
  26.       Height          =   495
  27.       Left            =   2880
  28.       TabIndex        =   3
  29.       Top             =   2640
  30.       Width           =   735
  31.    End
  32.    Begin VB.FileListBox File1 
  33.       Height          =   2430
  34.       Left            =   1920
  35.       Pattern         =   "*.bmp*;*.gif*;*.jpg*;*.wmf*"
  36.       TabIndex        =   2
  37.       Top             =   120
  38.       Width           =   1695
  39.    End
  40.    Begin VB.DirListBox Dir1 
  41.       Height          =   2565
  42.       Left            =   120
  43.       TabIndex        =   1
  44.       Top             =   480
  45.       Width           =   1695
  46.    End
  47.    Begin VB.DriveListBox Drive1 
  48.       Height          =   315
  49.       Left            =   120
  50.       TabIndex        =   0
  51.       Top             =   120
  52.       Width           =   1695
  53.    End
  54. Attribute VB_Name = "frmOpenPicForOpt3"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Private Sub Command1_Click()
  60. ShowCursor (bShow = True) 'hide mouse
  61. Unload frmopt3final
  62. frmopt3final.Show
  63. Me.Hide
  64. End Sub
  65. Private Sub Command2_Click()
  66. Me.Hide
  67. frmDir.Show
  68. End Sub
  69. Private Sub Dir1_Change()
  70. File1.Path = Dir1.Path
  71. End Sub
  72. Private Sub Drive1_Change()
  73. On Error GoTo erhandler1
  74. Dir1.Path = Drive1.Drive
  75. Exit Sub
  76. erhandler1:
  77. MsgBox Err.Description, vbExclamation + vbOKOnly, "Error:"
  78. End Sub
  79. Private Sub File1_DblClick()
  80. Command1_Click
  81. End Sub
  82.