akhirna saya mengerti juga ^_^ ...
terima kasih buat master sopyan ...
jgn sungkan"" utk kasi tau saya ea mas..
mklum sy cma anak SMK yg ingin belajar access.. hehe..
sukses selalu mas sopyan.. ;)
keep working !!
--- In belajar-access@yahoogroups.com, Sofyan Efendi <sofyanefendi@...> wrote:
>
> Dear Mas Dharmana Wayan, contoh file silahkan download di attachment file.
> Saya gunakan untuk OPI Code Explorer. Insya Allah bermanfaat untuk kita yang
> sedang belajar Mouse Roll On Over.
>
> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> Sofyan Efendi
> http://imopi.wordpress.com/
> ----- Original Message -----
> From: "Dharmana" <wdharmana@...>
> To: <belajar-access@yahoogroups.com>
> Sent: Wednesday, May 02, 2012 8:17 AM
> Subject: [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 :)
> >> >
> >>
> >
> >
> >
> >
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
>
Tidak ada komentar:
Posting Komentar