form1.frm

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.Form frmSearch 
   Caption         =   "Searching a string for a substring"
   ClientHeight    =   2415
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   2415
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtInput2 
      Height          =   285
      Left            =   0
      TabIndex        =   4
      Top             =   960
      Width           =   4695
   End
   Begin VB.TextBox txtInput1 
      Height          =   285
      Left            =   0
      TabIndex        =   2
      Top             =   360
      Width           =   4695
   End
   Begin VB.CommandButton cmdSearch 
      Caption         =   "Search"
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   1320
      Width           =   1815
   End
   Begin VB.Label lblOutput2 
      Height          =   255
      Left            =   0
      TabIndex        =   6
      Top             =   2040
      Width           =   4695
   End
   Begin VB.Label lblOutput1 
      Height          =   255
      Left            =   0
      TabIndex        =   5
      Top             =   1800
      Width           =   4695
   End
   Begin VB.Label lblInput2 
      Caption         =   "Enter string to locate in phrase"
      Height          =   255
      Left            =   0
      TabIndex        =   3
      Top             =   720
      Width           =   2415
   End
   Begin VB.Label lblInput1 
      Caption         =   "Enter phrase"
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   2295
   End
End
Attribute VB_Name = "frmSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Fig. 8.6
' Using InStr and InStrRev to search a string for a substring
Option Explicit

Private Sub cmdSearch_Click()
   Dim forwardResult As Integer, backwardResult As Integer
   
   forwardResult = InStr(txtInput1.Text, txtInput2.Text)
   
   If forwardResult <> 0 Then
      lblOutput1.Caption = "Forward search: " & _
         "The text was found at position " & forwardResult
   Else
      lblOutput1.Caption = "Forward search: " & _
         "The text was not found"
   End If
   
   backwardResult = InStrRev(txtInput1.Text, txtInput2.Text)

   If backwardResult <> 0 Then
      lblOutput2.Caption = "Backward search: " & _
         "The text was found at position " & backwardResult
   Else
      lblOutput2.Caption = "Backward search: " & _
         "The text was not found"
   End If
End Sub