home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD142121272001.psc / Form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-11-27  |  4.9 KB  |  170 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Download"
  5.    ClientHeight    =   1320
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   2640
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form3"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1320
  14.    ScaleWidth      =   2640
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command2 
  17.       Caption         =   "Cancel"
  18.       BeginProperty Font 
  19.          Name            =   "MS Serif"
  20.          Size            =   8.25
  21.          Charset         =   0
  22.          Weight          =   700
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   285
  28.       Left            =   1320
  29.       TabIndex        =   3
  30.       Top             =   960
  31.       Width           =   1215
  32.    End
  33.    Begin VB.CommandButton Command1 
  34.       Caption         =   "Get It"
  35.       BeginProperty Font 
  36.          Name            =   "MS Serif"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   700
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   285
  45.       Left            =   120
  46.       TabIndex        =   2
  47.       Top             =   960
  48.       Width           =   1215
  49.    End
  50.    Begin VB.TextBox Text1 
  51.       Height          =   285
  52.       Left            =   120
  53.       TabIndex        =   0
  54.       Top             =   600
  55.       Width           =   2415
  56.    End
  57.    Begin VB.Label Label4 
  58.       BackStyle       =   0  'Transparent
  59.       Caption         =   "Enter The Name Of The File To Retrieve:"
  60.       BeginProperty Font 
  61.          Name            =   "MS Serif"
  62.          Size            =   9.75
  63.          Charset         =   0
  64.          Weight          =   700
  65.          Underline       =   0   'False
  66.          Italic          =   0   'False
  67.          Strikethrough   =   0   'False
  68.       EndProperty
  69.       ForeColor       =   &H00000000&
  70.       Height          =   480
  71.       Left            =   120
  72.       TabIndex        =   1
  73.       Top             =   120
  74.       Width           =   2385
  75.    End
  76. Attribute VB_Name = "Form3"
  77. Attribute VB_GlobalNameSpace = False
  78. Attribute VB_Creatable = False
  79. Attribute VB_PredeclaredId = True
  80. Attribute VB_Exposed = False
  81. Private Sub Command1_Click()
  82. 'GIF Format
  83. Dim Searchgif, Where
  84. Searchgif = ".gif"
  85. Where = InStr(Text1.Text, Searchgif)
  86. If Where Then
  87. Form1.Picture5.Left = 880
  88. Form1.Picture5.Top = 0
  89. Form1.Picture5.Visible = True
  90. Form1.PictureGet.Navigate "http://" & Form1.ClientConnection.RemoteHostIP & "/" & Text1.Text
  91. Unload Me
  92. Exit Sub
  93. End If
  94. Dim Searchgiff, Wheree
  95. Searchgiff = ".Gif"
  96. Wheree = InStr(Text1.Text, Searchgiff)
  97. If Wheree Then
  98. Form1.Picture5.Left = 880
  99. Form1.Picture5.Top = 0
  100. Form1.Picture5.Visible = True
  101. Form1.PictureGet.Navigate "http://" & Form1.ClientConnection.RemoteHostIP & "/" & Text1.Text
  102. Unload Me
  103. Exit Sub
  104. End If
  105. Dim Searchgifff, Whereee
  106. Searchgifff = ".GIF"
  107. Whereee = InStr(Text1.Text, Searchgifff)
  108. If Whereee Then
  109. Form1.Picture5.Left = 880
  110. Form1.Picture5.Top = 0
  111. Form1.Picture5.Visible = True
  112. Form1.PictureGet.Navigate "http://" & Form1.ClientConnection.RemoteHostIP & "/" & Text1.Text
  113. Unload Me
  114. Exit Sub
  115. End If
  116. 'JPG Format
  117. Dim Searchjpg, Wherea
  118. Searchjpg = ".jpg"
  119. Wherea = InStr(Text1.Text, Searchjpg)
  120. If Wherea Then
  121. Form1.Picture5.Left = 880
  122. Form1.Picture5.Top = 0
  123. Form1.Picture5.Visible = True
  124. Form1.PictureGet.Navigate "http://" & Form1.ClientConnection.RemoteHostIP & "/" & Text1.Text
  125. Unload Me
  126. Exit Sub
  127. End If
  128. Dim Searchjpgg, Whereaa
  129. Searchjpgg = ".Jpg"
  130. Whereaa = InStr(Text1.Text, Searchjpgg)
  131. If Whereaa Then
  132. Form1.Picture5.Left = 880
  133. Form1.Picture5.Top = 0
  134. Form1.Picture5.Visible = True
  135. Form1.PictureGet.Navigate "http://" & Form1.ClientConnection.RemoteHostIP & "/" & Text1.Text
  136. Unload Me
  137. Exit Sub
  138. End If
  139. Dim Searchjpggg, Whereaaa
  140. Searchjpggg = ".JPG"
  141. Whereaaa = InStr(Text1.Text, Searchjpggg)
  142. If Whereaaa Then
  143. Form1.Picture5.Left = 880
  144. Form1.Picture5.Top = 0
  145. Form1.Picture5.Visible = True
  146. Form1.PictureGet.Navigate "http://" & Form1.ClientConnection.RemoteHostIP & "/" & Text1.Text
  147. Unload Me
  148. Exit Sub
  149. End If
  150. Form1.FileGet.Navigate "http://" & Form1.ClientConnection.RemoteHostIP & "/" & Text1.Text
  151. Unload Me
  152. End Sub
  153. Private Sub Command2_Click()
  154. Unload Me
  155. End Sub
  156. Private Sub Form_Load()
  157. Text1.SelStart = Len(Text1.Text)
  158. End Sub
  159. Private Sub Text1_Change()
  160. If Text1.Text = "" Then Command1.Enabled = False
  161. If Text1.Text <> "" Then Command1.Enabled = True
  162. End Sub
  163. Private Sub Text1_KeyPress(KeyAscii As Integer)
  164. If KeyAscii = 13 Then
  165. Command1_Click
  166. KeyAscii = 0
  167. Exit Sub
  168. End If
  169. End Sub
  170.