Membuat Aplikasi Set All Text Button Label di VB.Net

advertisement

Sebelum anda membuat  Aplikasi Set All Text Button Label di VB.Net anda harus sudah memahami dasar Visual Basic atau Visual Studio. Disini saya menggunakan Visual Studio 2010.

- Silahkan buat design seperti di atas.

- Taruh script di bawah ini untuk tombol "SET TEXT BUTTON DAN LABEL"

For Each ctr In Me.Controls 

If TypeOf ctr Is TextBox Then

ctr.Text = txtbox.Text  

End If 

If TypeOf ctr Is Button Then  

ctr.Text = txtbox.Text

End If  

If TypeOf ctr Is Label Then 

ctr.Text = txtbox.Text  

End If

Maksud dari  script diatas adalah :

For Each untuk memberi kontrol form yang sedang dibuka.

Jika typenya TextBox maka kontrol textnya TextBox menjadi "Chacita"

Jika typenya Button maka kontrol textnya Button menjadi "Chacita"

Jika typenya Label maka kontrol textnya Label menjadi "Chacita"

- Taruh script berikut di Button Keluar :

me.Close()

Selesai. Berikut tugas dari pelajaran Pemrograman Terstruktur.

advertisement