Çalışma Anında Form, Button, Label Oluşturmak

İlk önce Form1 inize Button nesnesi ekleyin. Button1_Click() olayına aşağıdaki kodları yazacağız.

Şekil 1

Form1.vb

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Form2 As New Form

Dim Label1 As New Label

Dim Button1 As New Button

'Labelin özelliklerini tanımlıyoruz.

Label1.Text = "Bugün: " & DateString

Label1.Size = New Size(150, 50)

Label1.Location = New Point(80, 50)

'Buttonun özelliklerini tanımlıyoruz.

Button1.Text = "İptal"

Button1.Location = New Point(110, 100)

'Form2 nin özelliklerini tanımlıyoruz.

Form2.Text = "Bugünkü Tarih"

Form2.CancelButton = Button1

Form2.StartPosition = FormStartPosition.CenterParent

'Şimdi Label1 ve Button1 i Form2 ye ekleyeceğiz.

Form2.Controls.Add(Label1)

Form2.Controls.Add(Button1)

'Form2 yi ekrana getiriyoruz.

Form2.ShowDialog()

End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.