Biasanya kita saat ingin membuat Aplikasi membutuhkan tombol untuk di Isikan perintah, Kita tinggal mengambil Control Button pada ToolBox.
Bagaimana jika kita gunakan Script/Code untuk membuatnya..,Di bawah ini adalah Script untuk membuat Tombol
Asset : Tak perlu control apa-apa..,Karna kita yang akan membuat control.nya
Letakan Code 1 di bawah "Public Class Form1"
Code 1 : Inherits System.Windows.Forms.Form 'susunan yang di ambil
Dim TOMBOLKU As Button = New Button 'membuat tombol baru
Letakan Code 2 di Form Load
Code 2 : With TOMBOLKU
.BackColor = Color.Blue 'warna badan tombol
.ForeColor = Color.White 'warna Text tombol
.FlatStyle = FlatStyle.Standard'bentuk tampilan tombol
.Location = New Point(10, 5) 'posisi letak tombol pada Form
.Size = New Size(100, 50) 'Ukuran tombol
.Text = "MY BUTTON" 'Isi text pada tombol
End With
AddHandler TOMBOLKU.Click, AddressOf btnClicked 'fungsi yang diberikan pada tombol
Me.Controls.Add(TOMBOLKU) 'menambahkan tombol yang di buat ke badan Form
Letakan Code 3 diluar form Load
Code 3 : Private Sub btnClicked(ByVal source As Object, ByVal e As EventArgs)
MsgBox("Ini Tombol Saya") 'pesan yang keluar saat tombol di click
End Sub
Bagaimana jika kita gunakan Script/Code untuk membuatnya..,Di bawah ini adalah Script untuk membuat Tombol
Asset : Tak perlu control apa-apa..,Karna kita yang akan membuat control.nya
Letakan Code 1 di bawah "Public Class Form1"
Code 1 : Inherits System.Windows.Forms.Form 'susunan yang di ambil
Dim TOMBOLKU As Button = New Button 'membuat tombol baru
Letakan Code 2 di Form Load
Code 2 : With TOMBOLKU
.BackColor = Color.Blue 'warna badan tombol
.ForeColor = Color.White 'warna Text tombol
.FlatStyle = FlatStyle.Standard'bentuk tampilan tombol
.Location = New Point(10, 5) 'posisi letak tombol pada Form
.Size = New Size(100, 50) 'Ukuran tombol
.Text = "MY BUTTON" 'Isi text pada tombol
End With
AddHandler TOMBOLKU.Click, AddressOf btnClicked 'fungsi yang diberikan pada tombol
Me.Controls.Add(TOMBOLKU) 'menambahkan tombol yang di buat ke badan Form
Letakan Code 3 diluar form Load
Code 3 : Private Sub btnClicked(ByVal source As Object, ByVal e As EventArgs)
MsgBox("Ini Tombol Saya") 'pesan yang keluar saat tombol di click
End Sub
0 komentar:
Posting Komentar
Setelah melihat - lihat, Alangkah baiknya memberikan komentar mengenai Blog ini.
Kritik dan Saran teman-teman semua, Saya anggap sebagai masukan buat saya... terima kasih telah berkunjung