Диалогтық терезе

Жұмыстың мақсаты:  диалог құруға қажетті объектілерді, Msgbox, Inputbox функцияларымен таныстыру.

Әдістемелік нұсқаулар :Диалогты  терезелер және басқару элементтері қазіргі визуальды интерфейсті құруға қажетті, солардың кейбіреулерін қарастырайық.

1. Объект Dialog

Dialog класының объектілері - Word немесе Excel қосымшаларында жұмыс жасау барысында пайда болатын диалогты терезелер болып табылады. Бұл коллекциядағы қосалқы терезелердің кез келгенін ашуға болады.

Жаттығу №1

Файл менюіндегі OPEN диалогты терезесін ашу. Ол үшін Wordты алдын-ала ашып, мынадай әрекеттер тізбегін орындаңыз.

1) СервисМакросРеакдактор Visual Basic менюін табыңыз.

2) Ашылған редактордан ВставкаМодуль менюін таңдау.

3) Мынадай кодты теріңіз:

Public Sub dialog 1 ( )

Dialogs (WdDialogfileOpen).Show

END Sub

4) F5-ті басып программаны орындаңыз. "Open" терезесі пайда болды.

5) Осы терезеде "Отмена" түймесін басып терезені жабыңыз.

Жаттығу №2. Ауыстыруға құрылған даилогты терезені ашу.

1) Жоғарыдағыдай ашылған модульде мынадай кодты теріңіз:

Public Sub dialog2 ()

Dim mydialog As Dialog, a As Variant

Set mydialog = Dialogs(wdDialogEditReplace)

mydialog.Find = "коллекция"

mydialog.replace = "семейство"

a = mydialog.Show

End Sub

2) F5-ті басып программаны орындау керек. "Іздеу және алмастыру" терезесі.

3) "Отмена" түймесін басып жабыңыз.

2. MsgBox ф-ясын хабарлама шығару

            Қолданушыға хабарлама бергу арналған. Бұл функциясының жалпы форматы. MsgBox(prompt[,buttons][,title]).

            Мұндағы prompt (хабарлама) параметрі экранған шығарылатын жолдық өрнек. Ал, сандық параметр buttons (түймелер) экранға шығарылатын командалық түймелердің түрлерін білдіреді. Ал, title(тақырыбы) - терезесінің тақырыбын беретін жолдық өрне. Егер тақырыбы көрсетілмесі терезе аты тұрады. Егер buttons =0 болса, онда ОК түймесі ғана, егер buttons =1, онда ОК, Cancel түймелері, buttons =3, Yes, No, Cancel  ал buttons =16,   маңызды хабарлама пиктограммасы, buttons =32, онда сұраным пиктограммасы шығады, buttons =48, онда ескерту пиктограммасы,

buttons =64, онда ақпараттық мәлімдемелер пиктограммасы шығады.

Жаттығу №3

1) Модульде төменгі кодты теріңіз:

 Private Sub VVV()

Dim a, b, c As Variant

a = "Сіз үш түймені көріп тұрсыз:"

b = "Функция MsgBox"

c = MsgBox(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 = "Атыңызды енгізіңіз:"

title = "Танысу"

tit = "Аты-жөнін енгізу терезесі"

name = InputBox(msg, tit, title)

k = 0 + 64

n = "Хош келдіңіз," & name

c = MsgBox(n, k)

End Sub

2) F5 - ті басыңыз. Төмендегі терезе ашылды.

3) Атыңызды енгізіңіз.

4) ОК-ді басыңыз, мына терезе шығады.

4. Қолданушының диалогты  терезесі

            Қолданушының диалогты терезесі VBA редакторында жобаланады. Диалогты терезенің алдымен экрандағы интерфейстік бейнесі анықталады, яғни басқару элементтері қойылған форма, қойылады және оның элементтерінің қасиеттері беріліп, оларға қатысты оқиғалар өңделеді.

Жаттығу №5

     “Цветная форма” диалогты терезесін құру. Ол үшін:

1) VBA редакторын ашыңыз, яғни:

       Сервис Макрос Редактор Visual Basic

2) Вставка менюінен UserForm командасын таңдаңыз

3) Қасиеттері терезесін ашыңыз: BugОкно свойств

4) Қасиеттері терезесінен Caption қасиетін тауып, оны оң жағындағы жолға      “Цветная форма”  сөздерін теріңіз

5) Терезенің Backcolor қасиетінен қажетті (өзіңізге ұнаған) түсті таңдаңыз. Терезе түсі өзгереді

6) Саймандар тақтасынан терезеге Image (бейне)  элементін қойыңыз.

7) Image элементінің Picture (сурет) қасиетіне барып (…) түймесін басу ашып, онда пайда болған  диалогты терезеде ұнаған суретті көрсетіп OK басыңыз.

8) Саймандар тақтасынан TextBox (енгізу өрісі) элементін қойыңыз

9) Мұның Value қасиетіне таңдаған суретіңізге атын енгізіңіз, ал Font қасиетінен шрифтісін таңдап көрсетіңіз.

10)  Сол секілді  CommandButton түймесін алыңыз.

11)  Түйменің Caption қасиетіне “Нажми меня” текстін енгізіңіз.

12)  Ал, түйменің ControlTipText қасиетіне “Командная кнопка” енгізіп, төгілмелі хабарламасын анықтаңыз.

13)  Осы түйме үшін Accelerator қасиетіне “Н” әрпін енгізу арқылы тез басқаруға арналған түймелер комбинациясын басуға болады.

14)  Құралған диалогты терезені жұмыс жасату үшін ЗапускЗапуск подпрограммы басыңыз.

15) Бұл диалог терезені жабу үшін “Жабу” түймесін басыңыз.

16) Командалық түймені бір рет шерткенде орындалатын оқиғаның процедурасын жазайық. Ол үшін түймені екі рет шертіп, кодтар терезесіне көшіңізде  мына текстті енгізіңіз:

Dim s As Variant

Dim result As Integer

s = 4 + 48

result = MsgBox("Интересно, правда?", s)

If  result = vbYes Then

MsgBox "Очень приятно"

TextBox1.Text = "Поздраляю!"

Else

MsgBox "Зря Вы так!"

TextBox1.Text = "Надеюсь, Вы передумаете!"

End If

End Sub

17) 

Программаны орындауға жіберіңіз

18) Қандай түймені “Да” немесе  “Нет” таңдауыңызға  байланысты хабарлама аласыз.

скачать работу

Отправка СМС бесплатно