Ç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