home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD48714162000.psc / OSFrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1980-01-04  |  3.0 KB  |  113 lines
  1. VERSION 5.00
  2. Begin VB.Form OSFrm 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Other Settings"
  5.    ClientHeight    =   1575
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   4215
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1575
  13.    ScaleWidth      =   4215
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton ExitCmd 
  17.       Caption         =   "OK"
  18.       Height          =   255
  19.       Left            =   120
  20.       TabIndex        =   6
  21.       Top             =   1200
  22.       Width           =   3975
  23.    End
  24.    Begin VB.ComboBox Combo2 
  25.       Height          =   315
  26.       Left            =   3480
  27.       Style           =   2  'Dropdown List
  28.       TabIndex        =   5
  29.       Top             =   840
  30.       Width           =   615
  31.    End
  32.    Begin VB.ComboBox Combo1 
  33.       Height          =   315
  34.       Left            =   3480
  35.       Style           =   2  'Dropdown List
  36.       TabIndex        =   4
  37.       Top             =   480
  38.       Width           =   615
  39.    End
  40.    Begin VB.CheckBox Check1 
  41.       Caption         =   "Yes"
  42.       Height          =   255
  43.       Left            =   3480
  44.       TabIndex        =   3
  45.       Top             =   120
  46.       Width           =   615
  47.    End
  48.    Begin VB.Line Line1 
  49.       X1              =   3360
  50.       X2              =   3360
  51.       Y1              =   120
  52.       Y2              =   1080
  53.    End
  54.    Begin VB.Label Label3 
  55.       Caption         =   "Backwards Echo on Echo Text:"
  56.       Height          =   255
  57.       Left            =   120
  58.       TabIndex        =   2
  59.       Top             =   120
  60.       Width           =   3135
  61.    End
  62.    Begin VB.Label Label2 
  63.       Caption         =   "Amount of Extra Characters on Double Text:"
  64.       Height          =   255
  65.       Left            =   120
  66.       TabIndex        =   1
  67.       Top             =   840
  68.       Width           =   3135
  69.    End
  70.    Begin VB.Label Label1 
  71.       Caption         =   "Amount of Spaces on Space Text:"
  72.       Height          =   255
  73.       Left            =   120
  74.       TabIndex        =   0
  75.       Top             =   480
  76.       Width           =   3135
  77.    End
  78. Attribute VB_Name = "OSFrm"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Private Sub ExitCmd_Click()
  84. If Check1.Value = 1 Then
  85. EchoBack = True
  86. EchoBack = False
  87. End If
  88. AmSpace = Combo1.Text
  89. AmDouble = Combo2.Text
  90. TUFrm.SOS
  91. TUFrm.Enabled = True
  92. TUFrm.SetFocus
  93. OSFrm.Hide
  94. End Sub
  95. Private Sub Form_Load()
  96. Dim i As Integer
  97. Ontop Me
  98. If EchoBack = True Then
  99. Check1.Value = 1
  100. Check1.Value = 0
  101. End If
  102. For i = 1 To 100
  103. Combo1.AddItem i
  104. Combo2.AddItem i
  105. Next i
  106. Combo1.Text = AmSpace
  107. Combo2.Text = AmDouble
  108. End Sub
  109. Private Sub Form_Unload(Cancel As Integer)
  110. Cancel = 1
  111. ExitCmd_Click
  112. End Sub
  113.