home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / controls / seltext.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-05-16  |  2.8 KB  |  102 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Programatically Working With Selected Text"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   4425
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4020
  12.    ScaleWidth      =   7365
  13.    Top             =   1140
  14.    Width           =   7485
  15.    Begin CommandButton Command3 
  16.       Caption         =   "Replace It!"
  17.       Height          =   500
  18.       Left            =   5400
  19.       TabIndex        =   5
  20.       Top             =   2040
  21.       Width           =   1455
  22.    End
  23.    Begin TextBox Text2 
  24.       Height          =   380
  25.       Left            =   5400
  26.       TabIndex        =   3
  27.       Top             =   1200
  28.       Width           =   1455
  29.    End
  30.    Begin CommandButton Command2 
  31.       Caption         =   "End"
  32.       Height          =   500
  33.       Left            =   5400
  34.       TabIndex        =   2
  35.       Top             =   3000
  36.       Width           =   1455
  37.    End
  38.    Begin CommandButton Command1 
  39.       Caption         =   "Next Word"
  40.       Height          =   500
  41.       Left            =   5400
  42.       TabIndex        =   1
  43.       Top             =   240
  44.       Width           =   1455
  45.    End
  46.    Begin TextBox Text1 
  47.       Height          =   3260
  48.       HideSelection   =   0   'False
  49.       Left            =   240
  50.       MultiLine       =   -1  'True
  51.       TabIndex        =   0
  52.       Top             =   240
  53.       Width           =   4695
  54.    End
  55.    Begin Label Label1 
  56.       Caption         =   "Replacement"
  57.       Height          =   260
  58.       Left            =   5400
  59.       TabIndex        =   4
  60.       Top             =   960
  61.       Width           =   1335
  62.    End
  63. Option Explicit
  64. Sub Command1_Click ()
  65.     Static NotFirstTime As Integer
  66.     Static PosSpace As Integer
  67. TryAgain:
  68.     If NotFirstTime Then
  69.         Text1.SelStart = PosSpace
  70.         PosSpace = PosSpace + 1
  71.         PosSpace = InStr(PosSpace, Text1.Text, " ")
  72.         If PosSpace = 0 Then
  73.             Exit Sub
  74.         End If
  75.         Text1.SelLength = (PosSpace - 1) - Text1.SelStart
  76.         If Text1.SelLength = 0 Then
  77.             GoTo TryAgain
  78.         End If
  79.     Else
  80.         NotFirstTime = True
  81.         Text1.SelStart = 0
  82.         PosSpace = InStr(Text1.Text, " ")
  83.         Text1.SelLength = PosSpace - 1
  84.     End If
  85. End Sub
  86. Sub Command2_Click ()
  87.     End
  88. End Sub
  89. Sub Command3_Click ()
  90.     Text1.SelText = Text2.Text
  91.     Command1.SetFocus
  92. End Sub
  93. Sub Form_Load ()
  94.     Dim fhandle As Integer
  95.     Dim fname As String
  96.     fhandle = FreeFile
  97.     fname = "c:\vbdemos\controls\inferno.txt"
  98.     Open fname For Input As fhandle
  99.     Text1.Text = Input(LOF(fhandle), fhandle)
  100.     Close fhandle
  101. End Sub
  102.