3D nesneleri Çizelim

[DeadGhost]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

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

 

[OptiMistics]

Teşekkürler.

 

[kutlucan1]

Teşekkürler.

 

[JooM]

Teşekkür Ederim ​

 

[DeadGhost]

Birşey Değil