Selasa, 24 Agustus 2010

Membuat Tombol Dari Bagian Gambar Dengan Visual Basic 6.0

Tombol yang berwarna warni dan di isi dengan background berupa gambar pastilah sudah sering kita lihat, tapi pada trik kali ini kita akan membuat sebuah tombol yang kita ambil dari bagian sebuah gambar

Berikut ini ulasannya :

Bukalah project baru Standard.Exe, setelah form tampil, aturlah properti Picture nya, disini saya telah menyiapkan sebuah gambar, kalo anda memiliki gambar yang lain, silahkan untuk menggunankannya, jika tidak silahkan copy gambar dibawah ini :


Setelah di set properti Picture nya, beginilah tampilan sementara dari project kita


Lalu tambahkan 1 buah PictureBox, dengan settingan properti sbb :
Appearance : 0 - Flat
BorderStyle : 0 - None

lalu tempatkan picturebox tersebut tepat diatas area gambar yang ingin kita jadikan sebagai tombol, yaitu area gambar tombol Enter, klik menu View -> Code dan masukkan kode berikut ini :

Private XLeft, XTop

Private Function MakeButtons(Frm As Form)
Frm.Show
Frm.AutoRedraw = True
Frm.ScaleMode = 4
For Each Control In Frm.Controls
If InStr(Control.Name, "Pic") <> 0 Then
ctrlname = Control.Name
Frm(ctrlname).AutoRedraw = True
Frm(ctrlname).ScaleMode = 4
If Frm(ctrlname).Picture = LoadPicture() Then
Frm(ctrlname).PaintPicture Frm.Picture, 0, 0, , , _
Frm(ctrlname).Left, Frm(ctrlname).Top
End If

If (InStr(Frm(ctrlname).Tag, ",")) <> 0 Then
txt$ = Left(Frm(ctrlname).Tag, _
(InStr(Frm(ctrlname).Tag, ",")) - 1)
Locate$ = Right(Frm(ctrlname).Tag, _
Len(Frm(ctrlname).Tag) - Len(txt) - 1)
Else
txt$ = Frm(ctrlname).Tag: Locate$ = "C"
End If
Call PicPrint(Frm(ctrlname), txt$, Locate$)
End If
Next
End Function

Private Function PicPrint(PicName As PictureBox, txt As String, Locate As String)

PicName.Font.Bold = True
HalfWidth = PicName.TextWidth(txt$) / 2
HalfHeight = PicName.TextHeight(txt$) / 2
PicName.CurrentX = _
PicName.ScaleWidth / 2 - HalfWidth
PicName.CurrentY = _
PicName.ScaleHeight / 2 - HalfHeight
PicName.Print txt$
End Function

Private Sub Form_Load()
Call MakeButtons(Me)
End Sub

Private Function PictureMouseDown(Frm As Form, Ctrl As Control)
XLeft = Ctrl.Left: XTop = Ctrl.Top
Ctrl.Left = Ctrl.Left + 0.2: Ctrl.Top = Ctrl.Top + 0.05
End Function

Private Function PictureMouseUp(Frm As Form, Ctrl As Control)
Ctrl.Left = XLeft: Ctrl.Top = XTop
End Function

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
Call PictureMouseDown(Me, Picture1)
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
Call PictureMouseUp(Me, Picture1)
End Sub

Tekan F5 untuk menjalankan project, coba klik gambar tombol enter, efek yang terjadi adalah bukan saja kita bisa memicu event seperti yang biasa kita lakukan pada sebuah commandbutton tetapi tampilan dari gambar tombol enter itu sendiri seolah-olah masuk kedalam pada saat kita klik, memberikan efek seolah-olah area gambar tersebut adalah sebuah tombol atau commanbutton

Jika anda kesulitan dalam mengikuti tutorial ini silahkan klik disini untuk mendownload projectnya.

Selamat mencoba.

Be My Friend On Facebook

1 komentar:

  1. klo dibuat di matlab gmn ya??
    gui matlab monoton,hampir mirip jg dgn gui dasar di vb..
    mohon pencerahan..terima kasih..

    BalasHapus