cara membuat dinamik tombol (dinamic button) / cara membuat tombol dengan kode program visual basic 2010

Posted by


kali ini kita akan membahas visual basic lagi, kali ini kita akan membuat sebuah button / tombol dengan menggunakan program pada visual basic, jadi kita tidak harus menggambar tombol pada sebuah form.
ok langsung saja berikut adalah program untuk membuat sebuah dinamic button

masukan kode berikut di dalam class form
   Private controlCount As Integer = 0
    Private controlLocation As New Point(10, 50)

    Private Sub btnAddButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddButton.Click
        controlCount += 1

        ' hanya 5 tombol yang akan kita buat
        If controlCount <= 5 Then
            ' buat tombol
            Dim newButton As New Button
            ' setting nama, caption, dan letaknya.
            newButton.Name = "btn" + controlCount.ToString()
            newButton.Text = "btn" + controlCount.ToString()
            newButton.Location = New Point(controlLocation.X + 250, controlLocation.Y)
            controlLocation.Y += newButton.Height + 5
            ' tambahkan handler
            AddHandler newButton.Click, AddressOf myButtonHandler_Click
            AddHandler newButton.MouseHover, AddressOf myButtonHandler_MouseHover
            ' tambah pada form
            Controls.Add(newButton)
        Else
            ' hanya 5 tombol tambahan
            MsgBox("You've reached 5 controls. Clear controls to start again.", _
                MsgBoxStyle.OKOnly, Me.Text)
        End If
    End Sub
ketika kita menekan tombol yang saya beri nama btnAddButton, maka akan menambahkan 5 buah tombol tambahan , bisa saja kita membuat lebih, tapi dalam project saya hanya mencoba membuat 5 buah tombol.
begitulah caranya kalo masih bingung tinggalkan komentar ya, saya pasti balas. :)


FOLLOW and JOIN to Get Update!

Social Media Widget SM Widgets




kelaselektronika Updated at: 05:01

0 comments:

Post a Comment