home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD150542162001.psc / frmMain.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2001-02-16  |  3.6 KB  |  101 lines
  1. VERSION 5.00
  2. Object = "{3C6B8D7F-A45A-11D4-8CA8-00062970428E}#24.2#0"; "cTextBox.ocx"
  3. Begin VB.Form frmMain 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Customize Textbox Test Application"
  6.    ClientHeight    =   1755
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5445
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1755
  14.    ScaleWidth      =   5445
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CheckBox chkOptions 
  17.       Caption         =   "Auto UpperCase"
  18.       Height          =   315
  19.       Index           =   1
  20.       Left            =   1890
  21.       TabIndex        =   3
  22.       Top             =   1230
  23.       Width           =   2565
  24.    End
  25.    Begin VB.CheckBox chkOptions 
  26.       Caption         =   "AutoSelect"
  27.       Height          =   315
  28.       Index           =   0
  29.       Left            =   1890
  30.       TabIndex        =   2
  31.       Top             =   810
  32.       Width           =   2565
  33.    End
  34.    Begin VB.ComboBox cboTextType 
  35.       Height          =   315
  36.       Index           =   0
  37.       Left            =   1890
  38.       TabIndex        =   1
  39.       Top             =   330
  40.       Width           =   3435
  41.    End
  42.    Begin cTextBox.CustomizedTextBox ctxtTest 
  43.       Height          =   315
  44.       Index           =   0
  45.       Left            =   90
  46.       TabIndex        =   0
  47.       Top             =   330
  48.       Width           =   1665
  49.       _ExtentX        =   2937
  50.       _ExtentY        =   556
  51.       AutoUpperCase   =   -1  'True
  52.       FontSize        =   8.25
  53.       ForeColor       =   -2147483640
  54.    End
  55. Attribute VB_Name = "frmMain"
  56. Attribute VB_GlobalNameSpace = False
  57. Attribute VB_Creatable = False
  58. Attribute VB_PredeclaredId = True
  59. Attribute VB_Exposed = False
  60. ' DISCLAIMER (for public posting):
  61. ' This software is provided on an "as is, where is" basis, with no warranty whatsoever.
  62. ' As a condition of your using this software, you agree that Westinghouse Electric Company
  63. ' shall not be liable with respect to or as a result of such use.  Further, you agree to
  64. ' indemnify and hold Westinghouse harmless in the event a claim is made against
  65. ' Westinghouse with respect to or as a result of your use of the software.
  66. Private Sub cboTextType_Change(Index As Integer)
  67.     Me.ctxtTest(Index).TextType = Me.cboTextType(Index).ListIndex
  68. End Sub
  69. Private Sub cboTextType_Click(Index As Integer)
  70.     Me.ctxtTest(Index).TextType = Me.cboTextType(Index).ListIndex
  71.     Me.ctxtTest(Index).SetFocus
  72. End Sub
  73. Private Sub chkOptions_Click(Index As Integer)
  74.     Select Case Index
  75.     Case 0
  76.         Me.ctxtTest(0).AutoSelect = (Me.chkOptions(0).Value = vbChecked)
  77.     Case 1
  78.         Me.ctxtTest(0).AutoUpperCase = (Me.chkOptions(1).Value = vbChecked)
  79.     End Select
  80. End Sub
  81. Private Sub Form_Load()
  82.     Dim intIndex As Integer
  83.     With Me.cboTextType(0)
  84.         .AddItem ("AlphaNumeric = 0")
  85.         .AddItem ("AlphaNumeric_NoSymbols = 1")
  86.         .AddItem ("Alpha_WithSymbols = 2")
  87.         .AddItem ("Alpha_NoSymbols = 3")
  88.         .AddItem ("Numeric_Integers_Pos = 4")
  89.         .AddItem ("Numeric_Integers_Neg = 5")
  90.         .AddItem ("Numeric_Integers_All = 6")
  91.         .AddItem ("Numeric_Real_Pos = 7")
  92.         .AddItem ("Numeric_Real_Neg = 8")
  93.         .AddItem ("Numeric_Real_All = 9")
  94.     End With
  95.     If (Me.ctxtTest(0).AutoSelect) Then Me.chkOptions(0).Value = vbChecked
  96.     If (Me.ctxtTest(0).AutoUpperCase) Then Me.chkOptions(1).Value = vbChecked
  97. End Sub
  98. Private Sub Form_Unload(Cancel As Integer)
  99.     End
  100. End Sub
  101.