Dim Head As New Round
13.2. листингісінде Round класы, объект кластарын қолдану арқылы аққала құру программалық кодтары келтірілген. 13.12. суретте берілген кодтың жұмыс істеуі келтірілген.
1.12 сурет. Round объект класы арқылы аққала салу.
1.2 листингісі Round объект кластарын қолдану арқылы аққала құру программалық кодтары.
Private Sub Form_Load()
Dim Head As New Round
Dim Body As New Round
Dim Foot As New Round
' Қасиеттерін орнату
Head.X = 100: Head.Y = 50
Head.R = 20
Head.Color = vbBlue
Body.X = 100: Body.Y = 100
Body.R = 30
Body.Color = vbBlue
Foot.X = 100: Foot.Y = 170
Foot.R = 40
Foot.Color = vbBlue
1 Аққаланы салу
Head.Draw
Body.Draw
Foot.Draw
End Sub
Visual Basic құрғыштары арқылы класстарды құру принциптері көрсетілді.
Объект типі. Жоғарыда көрсетілгендей, кез келген объект Visual Basic немесе қолданбалы класс болсын, әйтеуір белгілі бір классқа жатады. Кейде программаның жұмыс істей барысында классты анықтау қажеттілігі туады. Бұл қажеттілік орын алмастыру процесінде өзекті мәселелердің біріне айналып келеді.
Қай классқа жататындығын анықтау үшін, келісімді құрушы оператордың If ...End If: көмегі керек болады:
Достарыңызбен бөлісу: |
