End Sub. Private Sub Command2_Click()7. Додати оператори контролю введення в код текстового вікна text4. Для текстового вікна text4 усі дії виконуються аналогічно вікна text3. У вікні виділити рядки від Select case до End select, виконавши потім такі дії: скопіювати за допомогою пункту меню Edit → команда Copy; відкрити вікно коду текстового вікна text4, встановити подію KeyPress, а потім – пункт меню Edit → команду Paste. Остаточний вигляд екранної форми проекту для виконання завдання прикладу 6.1 подається на рис. 6.2.
8. Відобразити повний програмний код: ' Процедура очищення текстових вікон виведення результатів Private Sub Command2_Click() Text3.Text = " " Text4.Text = " " Text6.Text = " " mes.Caption = " " End Sub Private Sub VScroll2_Change() Text4.Text = VScroll2 mes.Caption = " Уведення змінної t в діапазоні –500...500" End Sub ' Контроль уведення даних Private Sub text3_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 0, 8, 13, 45, 46, 48 To 57 '0, 8 – Delete, BackSpace, 13 – Enter '45 – " –", 46 – ".", 48–57 – цифри від 0 до 9 Case Else KeyAscii = 0 mes.Caption = " Помилка введення – Уведіть число " End Select End Sub ' Контроль уведення даних Private Sub text4_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 0, 8, 13, 45, 46, 48 To 57 '0, 8 - Delete, BackSpace, 13 - Enter '45 - " -", 46 - ".", 48-57 - цифри від 0 до 9 Case Else KeyAscii = 0 mes.Caption = " Помилка введення – Уведіть число " End Select
|
