Üye Girişi Yapınız     


    E-Posta
    

    Şifreniz
    



Şifremi Unuttum


Ana Sayfa Site Hakkında İletişim Ziyaretçi Defteri Döküman İndir Makale Ekle Haber Ekle

     Vb.Net ile çalışma zamanı(run time) nesne oluşturmak
     admin     28.03.2013     10:21:42

Visaul studio’da windows uygulaması yaparken tasarım zamanında form üzerine toolbox nesnelerini yerleştiririz, konumlandırır ve özelliklerini properties pencresinden değiştiririz. Peki çalışma zamanında yeni bir kontrol oluşturmak, konumlandırmak ve özellik atamak istersek nasıl yaparız? İşte sorunuzun cevabı! 



Öncelikle 766X573 bir form ekleyin. Form varsa boyutunu değiştirin. 

Formun üzerine çift tıklayın.. (Kod penceresinde Form1_Load olayı kod bloğu oluşacaktır.)

Bu uygulamada yatayda 15 ve dikeyde 16 adet olmak üzere 16 renkte buton oluşturalacaktır. Butonlar üzerinde "Ayhan" yazmaktadır. Çalışma zamanı form görüntüsü şu şekilde olmaktadır.

Program Kodları : 

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ya = 0
        dikey = 0
        ’renk = Color.Black
        For k = 0 To 15
            For i = 1 To 15
                Dim but As New Button ’Yeni buton nesnesi oluştur
                deger = QBColor(k) ’QBColor renk fonksiyonudur. 0-15 arası 16 renk oluşturur.
                but.BackColor = ColorTranslator.FromOle(deger) ’Butonun zemin rengi
                but.Height = 30 ’Yüksekliği
                but.Width = 50 ’ Genişliği
                but.Text = "Ayhan" ’Üzerindeki yazı
                but.ForeColor = Color.White ’Üzerindeki yazının rengi
                konumX = ya ’Yatay konumu
                ya = ya + 50 ’Aynı satırda bir sonraki buton 50px sağda
                konumY = dikey ’Dikey konumu
                but.Location = New Point(konumX, konumY) ’Konum değerlerine göre konumlandır
                Me.Controls.Add(but) ’Kontrol’ü form1’e ekle
            Next
            dikey = dikey + 30 ’Satır bitince dikey konum değerini 30 px arttır.
            ya = 0 ’Yatay konumu sıfırla
        Next
    End Sub

Facebook'ta Paylaş    
Diğer VB.Net İçerikleri       Tüm Yazılar        Ana Sayfa


  =>Soru Sorun veya Yorum Yazın...

İsim Giriniz :
  

  =>Yapılan Yorumlar...