Başlangıç > Kodlar > Visual basic ile 3D nesneleri çizmek

Visual basic ile 3D nesneleri çizmek


Nesneler çevrelerine çizilecek çizgilerle 3D hale getirilebilir

Sub 3DKontrol(frm As Form, Ctl As Control)

' Sub kontroller etrafına çizgiler çizerek onların 3d görünmelerini saglar
' koyugri, üst - yatay
frm.Line (Ctl.Left, Ctl.Top - 15)-(Ctl.Left + _
Ctl.Width, Ctl.Top - 15), &H808080, BF
' koyugri, sol - dik
frm.Line (Ctl.Left - 15, Ctl.Top)-(Ctl.Left - 15, _
Ctl.Top + Ctl.Height), &H808080, BF
' beyaz, sağ - dik
frm.Line (Ctl.Left + Ctl.Width, Ctl.Top)- _
(Ctl.Left + Ctl.Width, Ctl.Top + Ctl.Height), &HFFFFFF, BF
' beyaz, alt - yatay
frm.Line (Ctl.Left, Ctl.Top + Ctl.Height)- _
(Ctl.Left + Ctl.Width, Ctl.Top + Ctl.Height), &HFFFFFF, BF

End Sub

Sub 3DForm(frm As Form)

' Sub Formlar etrafına çizgiler çizerek onların 3d görünmelerini saglar

' beyaz, üst - yatay
frm.Line (0, 0)-(frm.ScaleWidth, 0), &HFFFFFF, BF
' beyaz, üst - dikey
frm.Line (0, 0)-(0, frm.ScaleHeight), &HFFFFFF, BF
' koyugri, sağ - dikey
frm.Line (frm.ScaleWidth - 15, 0)-(frm.ScaleWidth - 15, _
frm.Height), &H808080, BF
' koyugri, alt - yatay
frm.Line (0, frm.ScaleHeight - 15)-(frm.ScaleWidth, _
frm.ScaleHeight - 15), &H808080, BF

End Sub

'Formun üzerine 1 label ve 1 textbox ekle, formun Form_Load yordamına aşağıdaki kodu yaz

Private Sub Form_Load()

'form'un AutoRedraw propertisini True yap

Me.AutoRedraw = True
3DForm Me
3DKontrol Me, Label1
3DKontrol Me, Text1

End Sub

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: