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

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