- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Bu kısım kodlarla buton oluşturma
Dim buton As New Button 'bir buton tanımladık
buton.Width = 200 'boyutlarını belirledik
buton.Height = 30
buton.Location = New Point(20, 20) 'yerini belirledik
buton.Text = "Kodlarla Oluşturulan Buton" 'yazısını belirledik
Me.Controls.Add(buton) 'Forma ekledik. Bunu yazmazsanız butonunuzu göremezsiniz
'şimdi butonun click olayı esnasında nereye gideceğini belirticez
AddHandler buton.Click, AddressOf mesaj
End Sub
'bu kısmı kopyalayıp kod penceresine yapıştırın
Private Sub mesaj(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("merhaba")
End Sub
Bu kadar.
'Bu kısım kodlarla buton oluşturma
Dim buton As New Button 'bir buton tanımladık
buton.Width = 200 'boyutlarını belirledik
buton.Height = 30
buton.Location = New Point(20, 20) 'yerini belirledik
buton.Text = "Kodlarla Oluşturulan Buton" 'yazısını belirledik
Me.Controls.Add(buton) 'Forma ekledik. Bunu yazmazsanız butonunuzu göremezsiniz
'şimdi butonun click olayı esnasında nereye gideceğini belirticez
AddHandler buton.Click, AddressOf mesaj
End Sub
'bu kısmı kopyalayıp kod penceresine yapıştırın
Private Sub mesaj(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("merhaba")
End Sub
Bu kadar.