Eski 08-09-07, 20:48 #1
McKiLiC McKiLiC çevrimdışı
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 CevaplaAlıntı Yaparak Cevapla
Eski 02-11-07, 20:41 #2
emel123 emel123 çevrimdışı
Varsayılan C: Tarihi yaz burcunu ögren?


teşekkürlerr
  Alıntı Yaparak CevaplaAlı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ı



Tüm saatler GMT +2. Şuan saat: 07:53
(Türkiye için GMT +2 seçilmelidir.)

 
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ı. Tatil
Copyright © 2015