Dear Mas Dharmana Wayan,
Kita bisa manfaatkan event On Mouse Move. Event MouseMove terjadi saat user menggerakkan pointer mouse. Saya pernah ada pengalaman membuatnya, yakni pada OPI Code Explorer. Codenya:
Private Sub lblCodeExplorer_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo nol
Call MouseMoveUpDown(1)
nol:
End Sub
Bahkan area mouse bisa diset pada variable X dan Y. Kemudian saya tambahkan function:
Private Function MouseMoveUpDown(ButtonID As Long)
On Error GoTo nol
Select Case ButtonID
Case 1
Me![btnCodeExplorer1].Visible = False
Me![btnCodeExplorer2].Visible = True
Case 2
Me![btnCodeDetail1].Visible = False
Me![btnCodeDetail2].Visible = True
Case 3
Me![btnUtility1].Visible = False
Me![btnUtility2].Visible = True
Case 4
Me![btnCodeLinks1].Visible = False
Me![btnCodeLinks2].Visible = True
Case 5
Me![btnPertolongan1].Visible = False
Me![btnPertolongan2].Visible = True
Case 6
Me![btnAbout1].Visible = False
Me![btnAbout2].Visible = True
End Select
nol:
End Function
Jadi intinya : Hide button image 1, tampilkan button image 2, dst .. sesuai dengan Button mana yang kena area kursor mouse.
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/
--- In belajar-access@yahoogroups.com, Dharmana Wayan <wdharmana@...> wrote:
>
> Mohon Pencerahannya master :)
> saya niatnya buat menu utama pada sebuah form
> trus pengen buat tombol yang kalo disorot mouse , berubah warna tapi bukan pake tombol bawaan access..
> bagaimana ya caranya...
> mohon pencerahannya :)
>
Tidak ada komentar:
Posting Komentar