Студопедия — End Sub. Private Sub Command2_Click()
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

End Sub. Private Sub Command2_Click()






7. Додати оператори контролю введення в код текстового вікна text4. Для текстового вікна text4 усі дії виконуються аналогічно вікна text3. У вікні виділити рядки від Select case до End select, виконавши потім такі дії:

скопіювати за допомогою пункту меню Edit → команда Copy;

відкрити вікно коду текстового вікна text4, встановити подію KeyPress, а потім – пункт меню Edit → команду Paste.

Остаточний вигляд екранної форми проекту для виконання завдання прикладу 6.1 подається на рис. 6.2.

 

Рис. 6.2. Остаточний вигляд екранної форми виконання завдання з прикладу 6.1

 

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







Дата добавления: 2014-11-10; просмотров: 557. Нарушение авторских прав; Мы поможем в написании вашей работы!



Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...

Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Образование соседних чисел Фрагмент: Программная задача: показать образование числа 4 и числа 3 друг из друга...

Шрифт зодчего Шрифт зодчего состоит из прописных (заглавных), строчных букв и цифр...

Краткая психологическая характеристика возрастных периодов.Первый критический период развития ребенка — период новорожденности Психоаналитики говорят, что это первая травма, которую переживает ребенок, и она настолько сильна, что вся последую­щая жизнь проходит под знаком этой травмы...

Закон Гука при растяжении и сжатии   Напряжения и деформации при растяжении и сжатии связаны между собой зависимостью, которая называется законом Гука, по имени установившего этот закон английского физика Роберта Гука в 1678 году...

Характерные черты официально-делового стиля Наиболее характерными чертами официально-делового стиля являются: • лаконичность...

Этапы и алгоритм решения педагогической задачи Технология решения педагогической задачи, так же как и любая другая педагогическая технология должна соответствовать критериям концептуальности, системности, эффективности и воспроизводимости...

Studopedia.info - Студопедия - 2014-2024 год . (0.009 сек.) русская версия | украинская версия