Wa'alaikumussalam wr wb
Berdasar pergerakan mouse disini diartikan adalah bergerak naik dan turun
ya... supaya ndak ruwet.
(kalau pakai wheelmouse, bisa rada ruwet nyusun hook dan unhook mouse nya.)
Jadi, kalau mouse bergerak di listbox, maka dilakukan klik supaya user ndak
repot klik lagi.
Batasannya : kalau daftarnya panjang hingga tampil scrollbar nya, maka bisa
tampak buruk
Pakainya activex listbox control ya...
Begini :
1. buat sebuah general module
2. copas deklarasi fungsi API berikut : (letakkan di baris pertama area
penulisan kode [di bawah Option Explicit kalau ada])
Public Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long,
ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal
dwExtraInfo As Long)
> fungsi ini diletakkan di sebuah general module dan di set scope-nya
public agar bisa dipakai banyak object
3. buat event mouse move milik si listbox (entah itu yang di userform atau
dalam worksheet)
4. isi dengan perintah berikut :
doevents
mouse_event &h2,0,0,0,0 'proses tekan mouse kiri (&h2)
mouse_event &h4,0,0,0,0 'proses release mouse kiri (&h4)
Dicoba dulu ya, supaya tahu batasan dari cara ini...
Wassalamu'alaikum wr wb
Kid
2015-05-27 18:34 GMT+10:00 Haris Rifai haris.ri...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Master Excel.
>
> Assalamu'alaikum wr wb.
>
> Langsung saja nih Master.
> Saya telah membuat Listbox dalam sebuah Userform, tapi data dalam listbox
> hanya disorot pointer/kursor saat data tersebut saya klik.
>
> Mohon arahan dari Master sekalian, setup/perintah apa yang mesti saya
> tambahkan agar pointer dapat bergerak menyorot data dalam listbox dengan
> mengikuti pergerakan mouse.
>
> Berikut saya lampirkan file ntuk memperjelas yang saya inginkan.
>
> Wassalam.
> Haris
>
>
>
