Практическая работа по VISUAL BASIC.Проект «Найти все вхождения"

Проект «Найти все вхождения» Выполнив задания этой практической работы, вы научитесь: ­  создавать   форму   и   размещать     на   ней   элементы     управления   (CommandButton, TextBox); ­ устанавливать свойства  элементов управления (Caption, Text, MultiLine, ScroolBars); ­ вводить текст   программы и её отладка (вспомните условный оператор, строковые функции, функцию вывода); ­ сохранять проект. Для выполнения задания вам надо знать: ­ элементы  управления и их свойства; Класс объектов Свойства Значение по умолчанию   значение Новое CommandButton (кнопка) TextBox (текстовое поле) Caption (надпись) Command1 ­Text (текст) ­MultiLine(многострочный текст) ­ ScroolBars (скролинг) ­Text Text1 Text2  Найти   True Vertical Более подробные сведения об объектах и их свойствах можно найти в конце брошюры.    ­   строковые функции, оператор и функция вывода MsgBox (см. приложение);    ­  inStr (I,Text1.Text, Text2. Text)­  определяет позицию вхождения     текста 2 в текст 1, начиная с позиции I. Если такого вхождения нет, то значение функции  равно нулю;   ­ свойства текстового поля SelStart (начало фрагмента), SelLength( длина выделенного  фрагмента), SelText(содержание фрагмента);  ­ метод  Set Focus­ передает фокус на данный  компонент (<объект>. <метод>) Задание: 1) Создать   форму,   расположив   на   ней соответствующие   управляющие   элементы, настроив их свойства. 2) Составить событийную процедуру, которая бы   при   нажатии   кнопки   «НАЙТИ» последовательно осуществляла поиск части в общем тексте (выделяет синим цветом), если в общем тексте данной части больше нет,   то   выводить   сообщение   «Вхождения больше нет». 3) Сохранить проект в папке «Проекты». Примерный образец решения Dim p As Byte Private Sub Command1_Click() If InStr(p, Text1.Text, Text2.Text) <> 0 Then Text1.SelStart = InStr(p, Text1.Text, Text2.Text) ­ 1 Text1.SelLength = Len(Text2.Text) Text1.SetFocus p = InStr(p,Text1.Text,Text2.Text)+ Len(Text2.Text) Else MsgBox ("Вхождения больше нет"): p = 1 End If End Sub Private Sub Form_Load() p = 1 End Sub