Maksud judul diatas ialah kita akan mencoba menghaspus beberapa TextBox yang ada dalam suatu form sekaligus.

  • Buat Projek baru
  • Desain tampilan seperti ini:
Desain Tampilan
  • Lalu ketikkan kode berikut pada Button Hapus Semua:

    Dim a As Control
    For Each a In Me.Controls
        If TypeOf a Is TextBox Then
              a.Text = Nothing
        End If
    Next
    
  • Coba jalankan dan isi semu TextBox dan tekan tombol Hapus.
Hapus Semua

 
Top