home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / ChipCD_498.iso / software / ftp / quickftp / quickft4.frm < prev    next >
Text File  |  1996-01-30  |  2KB  |  83 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. End
  40.  
  41. Sub command1_click (index As Integer)
  42. '__
  43. '__ InputForm command1_click
  44. '__
  45. '__   parameter index As Integer
  46. '__   called by InputForm Text1_KeyPress
  47. '__
  48. ' OKdialog = index - 1    '1-->0 cancel, false, 0-->-1, OK, true
  49.  Unload inputform
  50. End Sub
  51.  
  52.  
  53. Sub Form_Activate ()
  54. '__
  55. '__ InputForm Form_Activate
  56. '__   calls     GLOBAL switch_to
  57. '__
  58.  switch_to text1
  59. End Sub
  60.  
  61.  
  62. Sub Form_Unload (Cancel As Integer)
  63. '__
  64. '__ InputForm Form_Unload
  65. '__
  66. '__   parameter Cancel As Integer
  67. '__
  68.  inputformdata = text1.Text
  69. End Sub
  70.  
  71.  
  72. Sub Text1_KeyPress (keyascii As Integer)
  73. '__
  74. '__ InputForm Text1_KeyPress
  75. '__
  76. '__   parameter keyascii As Integer
  77. '__   calls     InputForm command1_click
  78. '__
  79.  If keyascii = 13 Then keyascii = 0: command1_click (1)
  80. End Sub
  81.  
  82.  
  83.