Son Dakika Haberlerini Takip Edebileceğiniz FrmTR Haber Yayında.
Forum TR
Go Back   Forum TR > Programlama Dilleri Yazılım Teknolojileri ve Algoritmalar > Programlama > visual basic
FrmTR'ye Reklam Vermek İçin: [email protected]

Tarihi yaz burcunu ögren?

Programlama Kategorisinde ve visual basic Forumunda Bulunan Tarihi yaz burcunu ögren? Konusunu Görüntülemektesiniz => Kod: Sub 3DKontrol(frm As Form, Ctl As Control) ' Sub kontroller etrafına çizgiler çizerek onların 3d görünmelerini saglar ' koyugri, ...

Cevapla
 
Konu Araçları
Eski 08-09-07, 20:48   #1

Varsayılan Tarihi yaz burcunu ögren?


Kod:
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 
  Alıntı Yaparak Cevapla
Eski 02-11-07, 20:41   #2

Varsayılan C: Tarihi yaz burcunu ögren?


teşekkürlerr
  Alıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı



5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Reklam Mailimiz. Gizlilik Politikası


Reklamı Kapat

Reklamı Kapat