home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / source / vbsource / inicon / sample.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-06-23  |  3.9 KB  |  144 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "IniCon Sample"
  5.    ClientHeight    =   1815
  6.    ClientLeft      =   1275
  7.    ClientTop       =   2160
  8.    ClientWidth     =   5055
  9.    ControlBox      =   0   'False
  10.    Height          =   2220
  11.    Left            =   1215
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1815
  16.    ScaleWidth      =   5055
  17.    Top             =   1815
  18.    Width           =   5175
  19.    Begin CommandButton Command3 
  20.       Caption         =   "DeleteParm"
  21.       Height          =   375
  22.       Left            =   3360
  23.       TabIndex        =   10
  24.       Top             =   1200
  25.       Width           =   1455
  26.    End
  27.    Begin CommandButton Command2 
  28.       Caption         =   "DeleteApp"
  29.       Height          =   375
  30.       Left            =   3360
  31.       TabIndex        =   9
  32.       Top             =   720
  33.       Width           =   1455
  34.    End
  35.    Begin CommandButton Command1 
  36.       Caption         =   "Exit"
  37.       Height          =   375
  38.       Left            =   3360
  39.       TabIndex        =   8
  40.       Top             =   240
  41.       Width           =   1455
  42.    End
  43.    Begin TextBox Text4 
  44.       Height          =   285
  45.       Left            =   1320
  46.       TabIndex        =   6
  47.       Top             =   1320
  48.       Width           =   1695
  49.    End
  50.    Begin TextBox Text3 
  51.       Height          =   285
  52.       Left            =   1320
  53.       TabIndex        =   4
  54.       Top             =   960
  55.       Width           =   1695
  56.    End
  57.    Begin TextBox Text2 
  58.       Height          =   285
  59.       Left            =   1320
  60.       TabIndex        =   2
  61.       Top             =   600
  62.       Width           =   1695
  63.    End
  64.    Begin Init Init1 
  65.       Application     =   ""
  66.       Filename        =   ""
  67.       Height          =   420
  68.       Left            =   120
  69.       Parameter       =   ""
  70.       Top             =   1320
  71.       Value           =   ""
  72.       Width           =   420
  73.    End
  74.    Begin TextBox Text1 
  75.       Height          =   285
  76.       Left            =   1320
  77.       TabIndex        =   0
  78.       Top             =   240
  79.       Width           =   1695
  80.    End
  81.    Begin Label Label4 
  82.       Alignment       =   1  'Right Justify
  83.       Caption         =   "Value:"
  84.       Height          =   255
  85.       Left            =   240
  86.       TabIndex        =   7
  87.       Top             =   1365
  88.       Width           =   975
  89.    End
  90.    Begin Label Label3 
  91.       Alignment       =   1  'Right Justify
  92.       Caption         =   "Parameter:"
  93.       Height          =   255
  94.       Left            =   240
  95.       TabIndex        =   5
  96.       Top             =   1005
  97.       Width           =   975
  98.    End
  99.    Begin Label Label2 
  100.       Alignment       =   1  'Right Justify
  101.       Caption         =   "Application:"
  102.       Height          =   255
  103.       Left            =   120
  104.       TabIndex        =   3
  105.       Top             =   645
  106.       Width           =   1095
  107.    End
  108.    Begin Label Label1 
  109.       Alignment       =   1  'Right Justify
  110.       Caption         =   "Filename:"
  111.       Height          =   255
  112.       Left            =   240
  113.       TabIndex        =   1
  114.       Top             =   285
  115.       Width           =   975
  116.    End
  117. Sub Command1_Click ()
  118.     End
  119. End Sub
  120. Sub Command2_Click ()
  121.     Text3.Text = ""
  122.     Text4.Text = ""
  123.     Init1.DeleteApp = True
  124. End Sub
  125. Sub Command3_Click ()
  126.     Text4.Text = ""
  127.     Init1.DeleteParm = True
  128. End Sub
  129. Sub Text1_Change ()
  130.     Init1.Filename = Text1.Text
  131.     Text4.Text = Init1.Value
  132. End Sub
  133. Sub Text2_Change ()
  134.     Init1.Application = Text2.Text
  135.     Text4.Text = Init1.Value
  136. End Sub
  137. Sub Text3_Change ()
  138.     Init1.Parameter = Text3.Text
  139.     Text4.Text = Init1.Value
  140. End Sub
  141. Sub Text4_Change ()
  142.     Init1.Value = Text4.Text
  143. End Sub
  144.