İlk önce 2 text kutusu ve 1 Command butonuna ihtiyacımız var.
Ben formumun grafik kısmında textleri ve butonları bu şekilde düzenledim.
Ardından Command1 butonuna aşağıdaki kodları yazdım.
Private Sub Command1_Click()Text2.Text = Text1.TextEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""End Sub
Not: Text1.Text="" ve Text2.Text="" kodları kutuların içerisinde yazan Text1 ve Text2 yazılarını silip boş kutu olarak göstermesi içindi.
Kolay gelsin.
Ben formumun grafik kısmında textleri ve butonları bu şekilde düzenledim.
Ardından Command1 butonuna aşağıdaki kodları yazdım.
Private Sub Command1_Click()Text2.Text = Text1.TextEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""End Sub
Not: Text1.Text="" ve Text2.Text="" kodları kutuların içerisinde yazan Text1 ve Text2 yazılarını silip boş kutu olarak göstermesi içindi.
Kolay gelsin.