|
End Sub
2) F5-ті басып программаны орындау керек. "Іздеу және алмастыру" терезесі.
3) "Отмена" түймесін басып жабыңыз.
2. MsgBox ф-ясын хабарлама шығару
Қолданушыға хабарлама бергу арналған. Бұл функциясының жалпы форматы. MsgBox(prompt[,buttons][,title]).
Мұндағы prompt (хабарлама) параметрі экранған шығарылатын жолдық өрнек. Ал, сандық параметр buttons (түймелер) экранға шығарылатын командалық түймелердің түрлерін білдіреді. Ал, title(тақырыбы) - терезесінің тақырыбын беретін жолдық өрне. Егер тақырыбы көрсетілмесі терезе аты тұрады. Егер buttons =болса, онда ОК түймесі ғана, егер buttons = онда ОК, Cancel түймелері, buttons = Yes, No, Cancel ал buttons , маңызды хабарлама пиктограммасы, buttons 2, онда сұраным пиктограммасы шығады, buttons H, онда ескерту пиктограммасы,
buttons d, онда ақпараттық мәлімдемелер пиктограммасы шығады.
Жаттығу №3
1) Модульде төменгі кодты теріңіз:
Private Sub VVV()
Dim a, b, c As Variant
a =quot;Сіз үш түймені көріп тұрсыз:"
b =quot;Функция MsgBox"
c =sgBox(a, 3, b)
End Sub
|
2) F5 -ті басып программаны жүкте терезе шығады:
3) Мұндағы кезкелген түймені басыңыз.
3. InputBox функциясы. Мәліметтерді енгізу
Жалпы форматы: inputBox (prompt[,title][,default],[,xpos][,ypos]
Мұндағы, prompt, title параметрлерінің мағнасы MsgBox - жолдық мән, қосымша хабарлама.
хpos - сандық мәні, экранның жақ шекарасынан терезенің сол жақ шекарасына дейінгі ара қашықтық.
ypos - экранның жоғарғы жағынан терезенің жоғарғы шекарасына дейінгі қашықтық.
Егер xpos, ypos - көрсетілмесе, онда терезе экранның ортасына шығарылады.
Жаттығу №4.
Енгізу терезесін құру
1) Моульде мынадай кодтты теріңіз:
Sub Exinput()
Dim msg As String, tit, title As String, name As String
Dim k, n, c As Variant
msg =quot;Атыңызды енгізіңіз:"
title =quot;Танысу"
tit =quot;Аты-жөнін енгізу терезесі"
name =nputBox(msg, tit, title)
k = + 64
n =quot;Хош келдіңіз," & name
c =sgBox(n, k)
End Sub
|
2) F5 - ті басыңыз. Төмендегі терезе ашылды.
3) Атыңызды енгізіңіз.
4) ОК-ді басыңыз, мына терезе шығады.
14) Құралған диалогты терезені жұмыс жасату үшін ЗапускЗапуск подпрограммы басыңыз.
15) Бұл диалог терезені жабу үшін “Жабу” түймесін басыңыз.
16) Командалық түймені бір рет шерткенде орындалатын оқиғаның процедурасын жазайық. Ол үшін түймені екі рет шертіп, кодтар терезесіне көшіңізде мына текстті енгізіңіз:
Dim s As Variant
Dim result As Integer
s = + 48
result =sgBox("Интересно, правда?", s)
If result =bYes Then
MsgBox "Очень приятно"
TextBox1.Text =quot;Поздраляю!"
Else
MsgBox "Зря Вы так!"
TextBox1.Text =quot;Надеюсь, Вы передумаете!"
End If
End Sub
17)
|
Программаны орындауға жіберіңіз
18) Қандай түймені “Да” немесе “Нет” таңдауыңызға байланысты хабарлама аласыз.
|
|
|
|
