Bu programdaki amacımız veri kısmına yazdığımız bilgiyi kes ya da kopyala komutlarını kullanarak formun hemen altında yer alan radiobuttonlardan hangisi seçilirse onun altında yer alan TextBox'lara yapıştırmak.
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
TextBox1.Focus()
TextBox1.SelectAll()
TextBox1.Cut()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
If
RadioButton1.Checked = True Then
TextBox2.Text = ""
TextBox2.Paste()
End If
If
RadioButton2.Checked = True Then
TextBox3.Text = ""
TextBox3.Paste()
End If
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
TextBox1.Focus()
TextBox1.SelectAll()
TextBox1.Copy()
End Sub
End Class
Hiç yorum yok:
Yorum Gönder