Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » Butonlarla forma hükmedin
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

TİMER TRAFİK IŞIKLARI

Yazar: ibrahimcb
timer anlaşılması için ideal bir örnek


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 6638
Yayın Tar:25.03.2006
Yazar : mkayatech
Hit :2339

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Arkadaşlar command(buton) lar hemen hemen bütün programlarda var ama ne yazarsan onu işlerler. Kapatmasını istersen kapatır açmasını istersen açar. Şimdi bizde butonlarda form kullanımı hakkında bir program yapalım
form un üzerine 5 tane button ,2 tane label, koyun; Fakat bu nesneleri illa belli bir düzene koymanıza gerek yok.Çünkü düzenlemeyi programın içinde yapacağız
Kod:
Private Sub cmd1_Click()
Form1.Top = Form1.Top - 200 ' form un yukarıdan uzunluğunu azalt.
Label1.Caption = Form1.Top ' label1 In yazısı form1 In yukarıya olan uzaklığını yap
End Sub

Private Sub cmd2_Click()
Form1.Top = Form1.Top + 200
Label1.Caption = Form1.Top

End Sub

Private Sub cmd3_Click()
Form1.Left = Form1.Left - 200
Label2.Caption = Form1.Left

End Sub

Private Sub cmd4_Click()
Form1.Left = Form1.Left + 200
Label1.Caption = Form1.Left

End Sub

Private Sub cmd5_Click()
Form1.Left = 4000
Form1.Top = 2000
Label1.Caption = Form1.Top
Label2.Caption = Form1.Left
End Sub

Private Sub Form_Load()
'butonların yerleri
cmd1.Left = 1000
cmd1.Top = 500
cmd2.Left = 1000
cmd2.Top = 1500
cmd3.Left = 0
cmd3.Top = 1000
cmd4.Left = 2000
cmd4.Top = 1000
cmd5.Left = 4000
cmd5.Top = 500
'butonların boyutları
cmd1.Height = 500
cmd1.Width = 500
cmd2.Height = 500
cmd2.Width = 500
cmd3.Height = 500
cmd3.Width = 500
cmd4.Height = 500
cmd4.Width = 500
cmd5.Height = 500
cmd5.Width = 1000
'butonların adları
cmd1.Caption = "n"
cmd2.Caption = "u"
cmd3.Caption = "<"
cmd4.Caption = ">"
cmd5.Caption = "Reset"
'form un özellikleri
Form1.Top = 3000
Form1.Left = 4000
Form1.Height = 7000
Form1.Width = 7000
'labellerin özellikleri
Label1.BorderStyle = 1 ' bu özellikle labeller içeri gömük oluyo
Label2.BorderStyle = 1
Label1.Caption = Form1.Top
Label2.Caption = Form1.Left
Label1.Left = 5000
Label1.Top = 3000
Label2.Left = 5000
Label2.Top = 3500
End Sub




Yorumlar, eklemeler ve düşünceler
        bunlarLa U?raŞtın Ya HeLal sana :D

   Fatih_dp, 26.03.2006 21:59
   Tebrik ediyorum...
Fakat sabit elemanlar için neden bukadar kod yazayım ki...
Yani menünün genişlemesi veya daralması veya herhangi diğer sebeplerden dolayı form üzerinde değişiklik yapmak istemediğim sürece bu tür bir koda gerek yok ki...
Ama uğraşmışsın eline sağlık

   leedut, 28.03.2006 11:28
   Tebrik ediyorum...
Fakat sabit elemanlar için neden bukadar kod yazayım ki...
Yani menünün genişlemesi veya daralması veya herhangi diğer sebeplerden dolayı form üzerinde değişiklik yapmak istemediğim sürece bu tür bir koda gerek yok ki...
Ama uğraşmışsın eline sağlık

leedut, 28.03.2006 11:28

DAHA BİR KISA CODE VAR MI? :) Bilemedimde




   sernamec, 18.04.2007 14:23
   çok teşkkr edrm.bunun ne işe yaradığını ihtiyacı olmayan bilmez.satranç yapmak isterseniz eğer emin olun, nesne hareketi ilk problem olacaktır sizin için.kolay gelsin
berem

   berem, 28.12.2007 16:53
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin