home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / ChipCD_498.iso / software / ftp / quickftp / quickft4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-30  |  1.9 KB  |  62 lines
  1. VERSION 2.00
  2. Begin Form InputForm 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   660
  5.    ClientLeft      =   2925
  6.    ClientTop       =   4260
  7.    ClientWidth     =   5340
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Height          =   1065
  11.    Left            =   2865
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   660
  16.    ScaleWidth      =   5340
  17.    Top             =   3915
  18.    Width           =   5460
  19.    Begin PictureBox Picture1 
  20.       AutoSize        =   -1  'True
  21.       BorderStyle     =   0  'None
  22.       Height          =   480
  23.       Left            =   120
  24.       Picture         =   QUICKFT4.FRX:0000
  25.       ScaleHeight     =   480
  26.       ScaleWidth      =   480
  27.       TabIndex        =   0
  28.       Top             =   120
  29.       Width           =   480
  30.    End
  31.    Begin TextBox Text1 
  32.       Height          =   375
  33.       Left            =   720
  34.       TabIndex        =   1
  35.       Text            =   "Text1"
  36.       Top             =   120
  37.       Width           =   4455
  38.    End
  39. Sub command1_click (index As Integer)
  40. '__ InputForm command1_click
  41. '__   parameter index As Integer
  42. '__   called by InputForm Text1_KeyPress
  43. ' OKdialog = index - 1    '1-->0 cancel, false, 0-->-1, OK, true
  44.  Unload inputform
  45. End Sub
  46. Sub Form_Activate ()
  47. '__ InputForm Form_Activate
  48. '__   calls     GLOBAL switch_to
  49.  switch_to text1
  50. End Sub
  51. Sub Form_Unload (Cancel As Integer)
  52. '__ InputForm Form_Unload
  53. '__   parameter Cancel As Integer
  54.  inputformdata = text1.Text
  55. End Sub
  56. Sub Text1_KeyPress (keyascii As Integer)
  57. '__ InputForm Text1_KeyPress
  58. '__   parameter keyascii As Integer
  59. '__   calls     InputForm command1_click
  60.  If keyascii = 13 Then keyascii = 0: command1_click (1)
  61. End Sub
  62.