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

жүктеу 4,7 Mb.

бет	16/20
Дата	24.12.2017
өлшемі	4,7 Mb.
	#5719

1 ... 12 13 14 15 16 17 18 19 20

Екінші пішінінің коды

2-пішін. Жобаға екінші пішінді қосамыз (Project → Add Form). Пішіннің Picture қасеитіне сурет файылына жол көрсетеміз. Пішінде келесі объектілерді орналастырамыз: Picture батырмасы қасиетіне сурет файылына жол көрсетіледі, Style қасиетіне - Graphical тағайындалады. Caption қасиеті белгісіне – барлық шеңбердің қанша екенің санап шық деп тағайындаймыз.Text қасиетіндегі мәтіндік өрісті тазаландар, BackColor қасиетінде сары түсті таңдар. Пішіннің қажетті қасиеттерімен батырмаларын пішінді жүктеу барысында бағдарламалық жолымен өзгертеміз. Пішіннің келбеті суретте ұсынылған.

Екінші пішінінің коды:

Private Sub Command1_Click ()

If Text1.Text=””Then Text1.SetFocus

If Text1.Text=”5” Then k=1

Form2.Visible=False

Form3.Show

End Sub

Private Sub Form Load ()

Form2.Left=10

Form2.Top=10

Form2.Height=Screen. Height

Form2.Width=Screen. Width

Form2.Caption=”5 саны”

x=Form2. Height

y= Form2.Width

Command1.Left=x-50

Command1.Top=y-4500

End Sub

3-пішін. Picture қасиетінде сурет файлына жол сілтейміз. Пішінге келесі объектілерді орналастырамыз: Picture қасиеті батырмасына сурет файлынан жол көрсетіледі, Style қасиетіне - Graphical орналастырамыз. Caption қасиеті белгіге – барлығы қанша ұшбұрыш бар деп тағайындаймыз.

Text қасиетіндегі мәтіндік өрісті тазалаңдар, Back Color қасиетінде сары түсті таңдаңдар. Пішіннің қажетті қасиеттері мен батырмаларын пішінді жүктеу барысында бағдарламалық жолмен өзгертеміз. Пішіннің келбеті суретте ұсынылған.

жүктеу 4,7 Mb.

Достарыңызбен бөлісу:

1 ... 12 13 14 15 16 17 18 19 20