-
VB
объектісі
|
Қасиеті
|
Мәні
|
Form
|
Caption
|
Фотоальбом
|
ComboBox
|
Text
|
Фотография танданыз
|
List
|
Әрбір суреттін атын енгіземіз
|
Image
|
Stretch
|
True
|
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Image1.Picture = LoadPicture("C:\11.jpg")
Case 1
Image1.Picture = LoadPicture("C:\12.jpg")
End Select
End Sub
Мысал3:
Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.
Пішінге келесі басқару элементтерін орнатып, олардың қасиеттерін сәйкесінше ӛзгертіңдер:
-
Объект
|
Қасиеттері
|
Index
|
Shape
|
Backcolor
|
Backstyle
|
Caption
|
Interval
|
Shape1
|
0
|
Oval
|
Қызыл
|
1-Opaque
|
|
|
Shape1
|
1
|
Oval
|
Қара
|
1-Opaque
|
|
|
Shape1
|
2
|
Circle
|
Қара
|
1-Opaque
|
|
|
Shape1
|
3
|
Circle
|
Қара
|
1-Opaque
|
|
|
Shape1
|
4
|
Circle
|
Қара
|
1-Opaque
|
|
|
Shape1
|
5
|
Circle
|
Қара
|
1-Opaque
|
|
|
Shape1
|
6
|
Circle
|
Қара
|
1-Opaque
|
|
|
Shape1
|
7
|
Circle
|
Қара
|
1-Opaque
|
|
|
Shape1
|
8
|
Circle
|
Қара
|
1-Opaque
|
|
|
Line1
|
0
|
|
|
|
|
|
Line1
|
1
|
|
|
|
|
|
Line1
|
2
|
|
|
|
|
|
Comman d1
|
|
|
|
|
Пуск
|
|
Comman d2
|
|
|
|
|
Шығу
|
|
Timer1
|
|
|
|
|
|
80
|
Command1 батырмасына келесі процедураны жазамыз:
Dim k, i As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Command2 батырмасына келесі процедураны жазамыз:
Private Sub Command2_Click()
End End Sub
Пішінді екі рет басып, келесі процедураны толтырыңдар:
Private Sub Form_Load() Timer1.Enabled = False
k = 0 For i = 0 To 8
Shape1(i).Visible = False
Next
For i = 0 To 2
Line1(i).Visible = False
Next
End Sub
6. Timer1 объектісі үшін келесі процедураны жазамыз: Private Sub Timer1_Timer() k = k + 1
If k >= 10 And k < 20 Then
For i = 0 To 8
Shape1(i).Visible = True
Next
For i = 0 To 2
Line1(i).Visible = True
Next
Else
For i = 0 To 8
Shape1(i).Visible = False
Next
For i = 0 To 2
Line1(i).Visible = False
Next
End If
If k = 20 Then k = 0
End Sub
7. Қосымшаны іске қосып, Пуск батырмасын бассаңдар, ӛшіпжанып тұрған «қанқыз» графикалық объектісін кӛресіңдер.
12-сурет
Тапсырма:
Светофор бағдарламасының мысалын құру.
Shape компоненті арқылы графикалық бірнеше формаларды ӛзара байланыстыру.
Программа іске қосылғанда форма бетіне ойыншықтары жаныпӛшіп тұратын жаңа жылдық шырша кӛрінуі қажет.
Формада тышқанмен сурет салу мүмкіндігін беретін программа жасаңыз.
Бақылау сҧрақтары:
Графикалық объектілерге не жатады?
PictureBox объектісінің қасиеттері мен әдістерін ата?
Image объектісінің қасиеттерін ата?
Shape объектісінің қасиеттерін ата?
Объектіге сурет қою әдісі.
V тарау
МӘЗІР ЖӘНЕ СҦҚБАТ ТЕРЕЗЕЛЕРІ
5.1. Мәзірмен жҧмыс
Мәзірдің барлық түрлерін жобалау үшін Menu Editor мәзір редакторы қолданылады. Menu Editor редакторын іске қосу үшін Инструменты – Меню редактор немесе Ctrl+E командасы орындалады. Мәзір редакторы екі топтан тұрды: қасиеттерді басқару элементтерінен және мәзір құрлымдағы конструкциялау элементтерінен. Мәзірдің негізгі қасиеттерін мәзір редакторының келесі қасиеттерінің кӛмегімен басқаруға болады.
Caption – (тақырыпша) ӛрісі – меню пунктінің атауы, яғни менюде пайда болады.
Name – (аты) ӛрісі – меню аты. Программалық кодты жазу кезінде объектінің идентификациясы үшін қолданылады.
BackColor – фон түсін анықтайды.
ForeColor - шрифтың түсін анықтайды.
FontBold – қалың (полужирный)
FontItalic – курсивті (курсив)
FontUnderline – асты сызылған (подчеркнутый) FontSize – шрифтің мӛлшерін анықтайды.
13-сурет
Мысал1: Түзету мәзіріндегі кӛшіру, қию, қою пунктерінен тұратын жоба құру.
Dim s As String
Private Sub Кӛшіру_Click()
Text1.SelText = s
End Sub
Private Sub Қию_Click() s = Text1.SelText Text1.SelText = ""
End Sub
Private Sub Қою_Click() s = Text1.SelText
End Sub
14-сурет
TextBox объектісінде мәтінді ерекшелеп кӛрсету үшін seltext, selstert, sellength қасиеттері қолданылады.
Seltext қасиеті ерекшеленген мәтінді кӛрсету үшін, ал қалғандары оның элементіндегі орнын кӛрсету үшін қолданылады.
Мәзір командасына тез енуді жүзеге асыру үшін пернелер комбинациясын қою керек. Ол редактордың ShotCut тізімінен таңдалады. Мысалы: кӛшіру - CTRL+C.
Жанама мәзір PopupMenu әдісі арқылы шақырылады. Мысалы, егер мәзір аты F1 болса басқару элементінің MouseUp оқиғасына тӛмендегі программа коды жазылады.
Private Sub Form1.Command.MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = VbRightButton Then PopupMenu F1 (vbRightButton – тышқанның сол жақ батырмасы)
End Sub
Мысал 2: Сурет батырмасын алып оған сурет ашу, сурет жабу пункттерінен тұратын жанама мәзір жасау.
15-сурет
Private Sub Command1_MouseUp(Button As Integer, Shift As
Integer, X As Single, Y As Single)
If Button = 2 Then Form1.PopupMenu A
End If
End Sub
Private Sub Ашу_Click()
Image1.Picture = LoadPicture("c:/1.jpg")
End Sub
Private Sub Жабу_Click()
Image1.Picture = LoadPicture()
End Sub
5.2. Сҧқбат терезелерімен жҧмыс
Деректерді енгізуді енгізу терезесі арқылы жүзеге асыруға болады. Ол InputBox функциясының нәтижесінде шақырылатын сұқбат терезесі. Бұл функция нәтижесінде қолданушы енгізген жол болып табылады. Функцияның жалпы түрде жазылуы:
Айнымалы = InputBox (тақырыбы, түсініктеме, мән) Мұндағы, айнымалы – қолданушы енгізетін string типті мән; тақырыбы – енгізу терезесінің тақырыбының мәтіні; түсініктеме –хабарлама мәтіні;
мән – Х, У координатасы бойынша сұқбат терезесінің шығу орны (қалыпты жағдайда терезе экран ортасында орналасады).
MsgBox функциясы батырмалары бар сұқбат терезесін шығарады. Экранның ортасына орналасады.
16-сурет
Функцияның жалпы түрде жазылуы:
MsgBox(түсініктеме, [батырмалар], [тақырыбы]) Мұндағы, түсініктеме –хабарлама мәтіні;
батырмалар - сұқбат терезесінде қолданылатын батырмалар; тақырыбы – енгізу терезесінің тақырыбының мәтіні; Батырмалардың стандартты мәндері
-
Батырма
|
Константа
|
Мәні
|
Хабарлама типі
|
|
vbExclamation
|
48
|
Ескерту
|
|
vbQuestion
|
32
|
Сұраныс
|
|
vbInformation
|
64
|
Ақпарат
|
|
vbCritical
|
16
|
Қате
|
|