home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / CONTROLS / TEXT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-23  |  4.7 KB  |  163 lines
  1. VERSION 5.00
  2. Begin VB.Form frmText 
  3.    Caption         =   "
  4.    ClientHeight    =   4455
  5.    ClientLeft      =   930
  6.    ClientTop       =   1290
  7.    ClientWidth     =   6870
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4455
  10.    ScaleWidth      =   6870
  11.    Begin VB.CommandButton cmdReset 
  12.       Caption         =   "
  13. (&R)"
  14.       Height          =   495
  15.       Left            =   2400
  16.       TabIndex        =   2
  17.       Top             =   3720
  18.       Width           =   1575
  19.    End
  20.    Begin VB.CommandButton cmdClose 
  21.       Cancel          =   -1  'True
  22.       Caption         =   "
  23. (&C)"
  24.       Height          =   495
  25.       Left            =   5040
  26.       TabIndex        =   3
  27.       Top             =   3720
  28.       Width           =   1575
  29.    End
  30.    Begin VB.Frame fraInsert 
  31.       Caption         =   "
  32.       Height          =   2295
  33.       Left            =   120
  34.       TabIndex        =   5
  35.       Top             =   1200
  36.       Width           =   3855
  37.       Begin VB.OptionButton optText 
  38.          Caption         =   "
  39. (&T)"
  40.          Height          =   255
  41.          Left            =   360
  42.          TabIndex        =   9
  43.          Top             =   1800
  44.          Width           =   2055
  45.       End
  46.       Begin VB.OptionButton optSelect 
  47.          Caption         =   "
  48. (&S)"
  49.          Height          =   255
  50.          Left            =   360
  51.          TabIndex        =   8
  52.          Top             =   1440
  53.          Width           =   2055
  54.       End
  55.       Begin VB.OptionButton optInsert 
  56.          Caption         =   "
  57. (&I)"
  58.          Height          =   255
  59.          Left            =   360
  60.          TabIndex        =   7
  61.          Top             =   1080
  62.          Width           =   2775
  63.       End
  64.       Begin VB.OptionButton optEnd 
  65.          Caption         =   "
  66. (&E)"
  67.          Height          =   255
  68.          Left            =   360
  69.          TabIndex        =   6
  70.          Top             =   720
  71.          Width           =   2175
  72.       End
  73.       Begin VB.OptionButton optDefault 
  74.          Caption         =   "
  75. (&D)"
  76.          Height          =   255
  77.          Left            =   360
  78.          TabIndex        =   1
  79.          Top             =   360
  80.          Value           =   -1  'True
  81.          Width           =   1815
  82.       End
  83.    End
  84.    Begin VB.TextBox txtDisplay 
  85.       Height          =   375
  86.       HideSelection   =   0   'False
  87.       Left            =   120
  88.       TabIndex        =   0
  89.       Text            =   "
  90. MultiLine 
  91.  False
  92.       Top             =   480
  93.       Width           =   3840
  94.    End
  95.    Begin VB.TextBox txtMulti 
  96.       Height          =   615
  97.       Left            =   4080
  98.       MultiLine       =   -1  'True
  99.       TabIndex        =   4
  100.       TabStop         =   0   'False
  101.       Text            =   "text.frx":0000
  102.       Top             =   480
  103.       Width           =   2655
  104.    End
  105.    Begin VB.Label lblHelp 
  106.       Caption         =   "
  107.       Height          =   735
  108.       Left            =   4200
  109.       TabIndex        =   10
  110.       Top             =   2160
  111.       Width           =   2535
  112.    End
  113. Attribute VB_Name = "frmText"
  114. Attribute VB_GlobalNameSpace = False
  115. Attribute VB_Creatable = False
  116. Attribute VB_PredeclaredId = True
  117. Attribute VB_Exposed = False
  118. Private Sub cmdClose_Click()
  119.     Unload Me   ' 
  120. End Sub
  121. Private Sub cmdReset_Click()
  122.     ' 
  123.     txtDisplay.Text = "
  124. MultiLine 
  125.  False
  126.     ' 
  127.     optDefault.Value = True
  128. End Sub
  129. Private Sub optDefault_Click()
  130.     ' 
  131.     txtDisplay.SelStart = 0
  132.     ' 
  133.     txtDisplay.SetFocus
  134. End Sub
  135. Private Sub optEnd_Click()
  136.     ' 
  137.     txtDisplay.SelStart = Len(txtDisplay.Text)
  138.     ' 
  139.     txtDisplay.SetFocus
  140. End Sub
  141. Private Sub optInsert_Click()
  142.     ' 
  143.     txtDisplay.SelStart = 5
  144.         
  145.     ' 
  146.     txtDisplay.SetFocus
  147. End Sub
  148. Private Sub optSelect_Click()
  149.     ' 
  150.     txtDisplay.SelStart = 0
  151.     ' 
  152.     txtDisplay.SelLength = Len(txtDisplay.Text)
  153.     ' 
  154.     txtDisplay.SetFocus
  155. End Sub
  156. Private Sub optText_Click()
  157.     ' 
  158.     ' 
  159.     txtDisplay.SelText = "
  160.     ' 
  161.     txtDisplay.SetFocus
  162. End Sub
  163.