Mantaps Mas Opi, trims ya..Hanya Tuhan yang membalas kebaikan Mas.
regards,
Tio
| Sofyan Efendi <sofyanefendi@gmail.com> Sent by: belajar-access@yahoogroups.com 05/02/2012 09:40 AM | To: <belajar-access@yahoogroups.com> cc: Subject: Re: [belajar-access] Re: Efek Sorot [1 Attachment] |
[Attachment(s) from Sofyan Efendi included below]
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@yahoo.com>
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