ПоәК 042-14 07 20. 130/03-2012 03. 09. 2012ж. №1 басылым



жүктеу 4,7 Mb.
бет6/20
Дата24.12.2017
өлшемі4,7 Mb.
#5719
1   2   3   4   5   6   7   8   9   ...   20
Код:

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Егер тышқанмен жүргізілген батырмада басылса, онда біз таймерді қосамыз



Timer1.Interval=1

End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Егер баcылмаған болса онда өшіреміз.



Timer1.Interval=0

End Sub
Private Sub Timer1_Timer()

Shape1.Left=Shape1.Left+30

End Sub
8- дәріс. Базалық элементтер: DriveListBox, DirListBox, FileListBox. Тағайындалуы, қасиеттері, оқиға, тәсіл.

DriveListBox, DirListBox, FileListBox сәйкес логикалық дисктің, бұтақтың және файлдың ағымдағы атауларын қосуға және бейнелеуге арналған арнайы тізімдер.

DriveListBox объектісі барлық қатынасы бар логикалық дискілер атауы және қатарлары белгіше болып табылатын стандартты аралас тізім сияқты рәсімделген. Ал енгізу өрісі таңдалған дискінің атауында бейнеленеді. Пішінде осы объект пайда болған кезден бастап, оның енгізу өрісінде ағымдағы дискі атауы пайда болады. Ол бағдарламалау жүйесінде қолданылатын C:\... болып табылады, әдетте :\Program Files каталогында орнатылады.

DirListBox объектісі – ListBox типінің қатардың тағайындалған биіктігінде бағдарламаланған жолымен бейнеленген классикалық тізімі ретінде ұсынылған. Каталогтың атауының оң жағында директорийлердің кіріктірілген деңгейін анықтайтын ашылған немесе жабылған тақырып белгішелері көрінеді. Ағымдағы каталог қатар түрінде ұсынылған, оған толық жол Path қасиетінде сақталады. Егер терезені бірнеше қатарға үлкейтсек, онда жобалау кезеңінде ағымдағы каталог атауын көруге болады.

FileListBox объектісі кәдімгі айналдыру сызықтары тізімі түрінде рәсімделген. Белгіленген қатар атауы Filename қасиетінде сақталады.

Жалпы айтқанда осы объектілердің әрқайсысы сәйкес қасиетте көрсетілген тізімді бейнелей өз беттерімен өмір сүреді. Жаңа дискті таңдау барысында, қолданбамен жұмыс жасау уақытысында пайда болатын кез-келген өзгеріс. Drive қасиетінің мәніне және DriveChange оқиғасының көрінуіне өзгеріс әкеледі. Өз кезегінде FileListBox тізіміндегі Path қасиетін өзгертетін өңдеуші ағымдағы каталогты өзгерту DriveChange оқиғасын шақырады. Төменде ағымдағы дискті, белгіленген каталогты және таңдалған файлды өзгертуге мүмкіндік беретін оқиғаларды өңдейтін қарапайым мәтіндер ұсынылған.

1-мысал. Графикалық файлдарды қарап шығу бағдарламасын жазыңдар.

Пішінде объекттерді орнатыңдар.

1 Check – Value қасиетімен – 0 – белгіленбеген;

1 батырма;

1 Image;


Бір объектіден DriveListBox, DirListBox, FileListBox (Pattern -*.*)

Код:

Private Sub Command1_Click()

Қанат белгіні орнату барыснда және батырманы басқанда сурет жақтау мөлшеріне кіріп кетеді.



If Check1.Value=1 Then Image1.Stretch=True

If Check1.Value=0 Then Image1.Stretch=False

End Sub
Private Sub Dir1_Change()

File1.Path=Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path=Drive1.Drive

End Sub
Private Sub File1_Click()

File1.Path=Dir1.Path

b=Dir1.Path ‘b –файлға жол .

If Right(b,1)=”\” Then “ Егер жол слэшпен аяқталса онда

a=Dir1.Path+File1.FileName

Else “Ал болмаса онда

a=Dir1.Path+”\”+File1.FileName

End If
Image1=LoadPicture(a)

End Sub
Private Sub Form_Load()

File1.Pattern=“*.bmp;*.jpg,*.jpeg;*.gif;*.wmf”

файлдар тізімінде бейнеленетін файлдар типтері.



End Sub
Бірінші тапсырманы шешу коды мен пішіннің үлгісі:

Пішінде келесі объектілерді орнатыңдар: 4 батырма және 1 белгі. Caption қасиетін сәйкес суреттермен толтырыңдар:



Код:

Private Sub Command1_Click()

Label1.FontSize=26

End Sub
Private Sub Command2_Click()

Label1.ForeColor=QBColor(12)

End Sub
Private Sub Command3_Click()

Label1.BackColor=QBColor(0)

End Sub
Private Sub Command4_Click()

Form1.BackColor=QBColor(15)

End Sub
Private Sub Form_Load()

Label1.FontSize=12

Label1.Caption= “Мәтінмен орындалатын амалдар

Form1.Caption= “Пішімдеу

End Sub
жүктеу 4,7 Mb.

Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   ...   20




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау