>>653122
да я сам на взводе! Она внезапно не отвечает.
короче вроде стало прояснятся. Задание:
Проект.
Разместим на форме две командные кнопки и две рамки. Первая рамка объединяет текстовые окна для демонстрации операции объединения (конкатенации) строк, вторая - для поиска символов в строке.
Командные кнопки делают доступным соответствующие рамки и находящиеся в них текстовые окна. Форма показана на рисунке.
Набираемая в текстовых окнах исходная информация вводится нажатием клавиши Enter. При этом курсор с использованием метода SetFocus переводится в следующее окно для ввода данных.
Имена управляющих элементов следующие:
Командные кнопки: Command1 и Command2.
Надписи кнопок заданы значениями свойства Caption. “ Конкатенация ” и “Поиск”
Рамки: Framе1 и Frame2.
Названия рамок заданы значениями свойства Caption. “ Конкатенация ” и “Поиск”
Метки: Label1, Label2, Label3, Label4, Label5, Label6.
Значения их свойства Caption определяют заголовки текстовых окон (Строка1, Строка2, Ответ, Исходная строка, Образец, Результат).
Тексты процедур обработки событий:
Private Sub Form_Load() При загрузке формы обе рамки и
Frame1.Enabled = False управляющие элементы внутри не реагируют
Frame2.Enabled = False на какие-либо события (щелчок мыши и др.)
End Sub
Private Sub Command1_Click() Щелчок мыши по кнопке делает соответст-
Frame1.Enabled = True вующую рамку и управляющие элементы
Frame2.Enabled = False внутри доступными для событий.
Text1.SetFocus Курсор мыши устанавливается в первое
End Sub текстовое окно.
Private Sub Command2_Click() Щелчок мыши по кнопке делает соответст-
Frame2.Enabled = True вующую рамку и управляющие элементы
Frame1.Enabled = False внутри доступными для событий.
Text4.SetFocus Курсор мыши устанавливается в окно
End Sub для ввода исходной сроки.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus. Ввод набранных в окне символов и
End If перевод курсора в следующее окно
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim Stroka As String Ввод набранных в окне символов,
If KeyAscii = 13 Then объединение строк и вывод результирующей
Stroka = Text1.Text & Text2.Text строки в окно.
Text3.Text = Stroka
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Ввод набранных в окне символов и
Text5.SetFocus перевод курсора в следующее окно.
End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
Dim Rez As Integer Ввод набранных в окне символов,
If KeyAscii = 13 Then обращение к функции InStr,
Rez = InStr(Text4.Text, Text5.Text) вывод результата поиска
Text6.Text = Str(InStr(Text4.Text, Text5.Text)) в текстовое окно.
End If
End Sub
Обратите внимание: результатом поиска является номер позиции (число). Оно преобразуется
к строке символов (в текстовое окно выводит-ся строка).
. Самостоятельно подготовить и отладить на компьютере аналогичный проект для заданной преподавателем символьной функции. (Вместо функции поиска INstr).