Forum
Aktif konular
Üyeler
Kurallar
Arama
Vb De Çizgi Çizmek Vb De Çizgi Çizmek
-
mürid kardeşlerim öğretmen bi ödev verdide uğras ugras yapamadım.acil bi yardım edebilirmisiniz.
comboboxda 0-9 arası sayılar olacak secildiğinde forma o sayıları cizeceksin?
yardımlarınız için simdiden tesekkürler
-
çizeceksin derken??
konuyu biraz aç hocam.. sayıyı seçince flash gibi hareketli bi şekilde sayılar mı çizilecek? ya da nedir yani?
-
Private Sub Combo1_Click()
Gelen = Combo1.Text
Select Case Gelen
Case 1
Line1.Visible = True
Line2.Visible = True
Line3.Visible = False
Line4.Visible = False
Line5.Visible = False
Line1.X1 = "2640"
Line1.X2 = "2280"
Line1.Y1 = "1200"
Line1.Y2 = "1560"
Line2.X1 = "2640"
Line2.X2 = "2640"
Line2.Y1 = "1200"
Line2.Y2 = "2640"
Case 2
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
Line5.Visible = True
Line1.X1 = "3000"
Line1.X2 = "2400"
Line1.Y1 = "960"
Line1.Y2 = "960"
Line2.X1 = "3000"
Line2.X2 = "3000"
Line2.Y1 = "960"
Line2.Y2 = "1680"
Line3.X1 = "2400"
Line3.X2 = "3000"
Line3.Y1 = "1680"
Line3.Y2 = "1680"
Line4.X1 = "2400"
Line4.X2 = "2400"
Line4.Y1 = "1680"
Line4.Y2 = "2400"
Line5.X1 = "2400"
Line5.X2 = "3000"
Line5.Y1 = "2400"
Line5.Y2 = "2400"
End Select
End Sub
Private Sub Form_Load()
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
Line5.Visible = False
Combo1.Text = "Bir Sayı Secin"
For i = 1 To 9
Combo1.AddItem i
Next
End SubBurdaki Örnege Göre Sen Gerisini Yaparsın......
-
Keşke Bilgisayar okusaydım ne güzel ödevlerde sorun yaşamazdım :)=
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla