ACCESS FEED: [belajar-access] Re: Efek Sorot

Selasa, 01 Mei 2012

[belajar-access] Re: Efek Sorot

mas , bisa kirimkan saya contoh databasenya gak ? biar meyakinkan..
tolong ya mas.. :)
Help me..!

--- In belajar-access@yahoogroups.com, "Sofyan Efendi" <sofyanefendi@...> wrote:
>
> 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 :)
> >
>