Визуал бейсикте Image ден пайдалану
[ Скачать с сервера (380.5 Kb)
]
| 20.12.2015, 21:30 |
1. Форманы жасаймыз:
2. Формадағы audi-s5 түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command1_Click()
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Text1 = "audi-s5"
End Sub
3. Формадағы audi-tt-420 түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command2_Click()
Image2.Visible = True
Image1.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Text1 = "audi-tt-420"
End Sub
4. Формадағы bmw-m3 түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command3_Click()
Image3.Visible = True
Image1.Visible = False
Image2.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Text1 = "bmw-m3"
End Sub
5. Формадағы ford-focus3 түгмесін 2 рет басып мына программаны жазамыз:
Private Sub Command4_Click()
Image4.Visible = True
Image1.Visible = False
Image3.Visible = False
Image2.Visible = False
Image5.Visible = False
Image6.Visible = False
Text1 = "ford-focus3"
End Sub
6.Формадағы land-rover түгмесін 2 рет басып мына программаны жазамыз
Private Sub Command5_Click()
Image5.Visible = True
Image1.Visible = False
Image3.Visible = False
Image4.Visible = False
Image2.Visible = False
Image6.Visible = False
Text1 = "land-rover"
End Sub
7.Формадағы porsche түгмесін 2 рет басып мына программаны жазамыз
Private Sub Command6_Click()
Image6.Visible = True
Image1.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image2.Visible = False
Text1 = "porsche"
End Sub
8.Формадағы Шыгу түгмесін 2 рет басып мына программаны жазамыз
Private Sub Command7_Click()
End
End Sub
|
Категория: Информатика | Добавил: sultantashhodjaev
| Теги: бейсикте, Визуал, ПАЙДАЛАНУ, Image, Ден
|
Просмотров: 817 | Загрузок: 262
| Рейтинг: 0.0/0 |