Pada beberapa website terdapat tombol,baik yang flat maupun yang tiga dimensi yang jika dilewati mouse akan berubah warna. Tombol tersebut disebut Hoverbutton .didalam pemrograman Visual Basic juga bisa membuat tombol tersebut.perhatikan langkah-langkahnya berikut ini:
1. Letakkan sebuah kontrol commandbutton pada formmubah caption menjadi in hover button jangan lupa juga untuk mengubah property style menjadi Graphical
2. kemudian ketik listing berikut ini
Public Sub sysControlHighLight(ctl as Control,X As single,Y As single,OriginalBackColor As Long,NewBackColor As Long)
Dim Hittest As long On Error resume Next nHitTest=ctl.hwnd if err.Number<>0 Then exit Sub with ctlIf (X<0)or(y<0)or(x>.widht)or (Y>.height)thenReleasecapture .Backcolor=OriginalBackcolor Else SetCapture.hwnd .BackColor=NewBackColor end if On error Goto 0 End Sub Private Sub Command1_MouseMove(button As Integer,Shift As Integer ,X As Single,Y As Single) SysControlHighLight Command1,X,Y,vbBlue,vbRed
end Sub
Jumat, 19 Desember 2008
Membuat Tombol HoverButton
PopUpMenu menutitle
Ingat, dengan menggunakan event mouse down, tombol mouse yang diklik bisa ditangkap dengan mengambil nilai tertentu dari parameter button. Untuk tombol kanan mouse, nilai parameter button adalah 2.
Contoh:
Buatlah sebuah form, tambahkan menu dan kontrol Picture Box ke dalamnya. Isi menu dan gambar terserah Anda. Jangan lupa untuk menonaktifkan check box visible pada menu editor untuk menutitle-nya. Pada kontrol picture box tambahkan kode seperti pada listing 1.
Listing 1. Event MouseDown pada Picture1 Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuFile End If End Sub |