home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / inform1a / open_for.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-01  |  2.5 KB  |  86 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form form_open 
  4.    Caption         =   "Open"
  5.    ClientHeight    =   1530
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   5400
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   1530
  11.    ScaleWidth      =   5400
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin MSComDlg.CommonDialog open_file 
  14.       Left            =   120
  15.       Top             =   960
  16.       _ExtentX        =   847
  17.       _ExtentY        =   847
  18.       _Version        =   393216
  19.    End
  20.    Begin VB.CommandButton Command3 
  21.       Caption         =   "Browse"
  22.       Height          =   255
  23.       Left            =   4080
  24.       TabIndex        =   4
  25.       Top             =   600
  26.       Width           =   1215
  27.    End
  28.    Begin VB.TextBox open_file_name 
  29.       Height          =   285
  30.       Left            =   120
  31.       TabIndex        =   3
  32.       Top             =   600
  33.       Width           =   3855
  34.    End
  35.    Begin VB.CommandButton file_cancel_ok 
  36.       Caption         =   "Cancel"
  37.       Height          =   255
  38.       Left            =   3600
  39.       TabIndex        =   2
  40.       Top             =   1200
  41.       Width           =   855
  42.    End
  43.    Begin VB.CommandButton file_open_ok 
  44.       Caption         =   "OK"
  45.       Height          =   255
  46.       Left            =   4560
  47.       TabIndex        =   1
  48.       Top             =   1200
  49.       Width           =   735
  50.    End
  51.    Begin VB.Label Label1 
  52.       Caption         =   "Type In The Location Of A File, Folder Or A Website Address The Click OK."
  53.       Height          =   375
  54.       Left            =   120
  55.       TabIndex        =   0
  56.       Top             =   120
  57.       Width           =   3135
  58.    End
  59. Attribute VB_Name = "form_open"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Private Sub Command1_Click()
  65. End Sub
  66. Private Sub Command3_Click()
  67. Dim open_string As String
  68. open_file.CancelError = True
  69. On Error GoTo errhandler
  70. open_file.Filter = "All Files|*.*|Text Files|*.txt*|HTML Files|*.htm*|Gifs|*.gif|Jpegs|*.jpg"
  71. open_file.ShowOpen
  72. open_string = open_file.filename
  73. open_file_name.Text = open_string
  74. Exit Sub
  75. errhandler:
  76. End Sub
  77. Private Sub file_cancel_ok_Click()
  78. On Error Resume Next
  79. Unload Me
  80. End Sub
  81. Private Sub file_open_ok_Click()
  82. On Error Resume Next
  83. Form1.search_results.Navigate open_file_name.Text
  84. Unload Me
  85. End Sub
  86.