Mr. Kid.
Saya sudah coba arahan Mr. Kid. tapi untuk arahan yang pertama masih gagal.
Informasi yang tampil adalah "... user defined types ana Declare statement not
allowed..."
Sedangkan utuk saran yang kedua berhasil saya buat, namun itu hanya bisa
dilakukan pada Combobox sedangkan yang saya inginkan adalah dalam Listbox.
Mohon arahan lg dr Mr. Kid seperti yang saya maksud dalam email saya yang
pertama.
Terimakasih.Haris
Pada Rabu, 27 Mei 2015 18:15, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Kalau akan pakai mousewheel, silakan lihat-lihat file yang ada disini.
Wassalam,
Kid
2015-05-27 20:05 GMT+10:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
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
#yiv2212577433 #yiv2212577433 -- #yiv2212577433ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2212577433
#yiv2212577433ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2212577433
#yiv2212577433ygrp-mkp #yiv2212577433hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv2212577433 #yiv2212577433ygrp-mkp #yiv2212577433ads
{margin-bottom:10px;}#yiv2212577433 #yiv2212577433ygrp-mkp .yiv2212577433ad
{padding:0 0;}#yiv2212577433 #yiv2212577433ygrp-mkp .yiv2212577433ad p
{margin:0;}#yiv2212577433 #yiv2212577433ygrp-mkp .yiv2212577433ad a
{color:#0000ff;text-decoration:none;}#yiv2212577433 #yiv2212577433ygrp-sponsor
#yiv2212577433ygrp-lc {font-family:Arial;}#yiv2212577433
#yiv2212577433ygrp-sponsor #yiv2212577433ygrp-lc #yiv2212577433hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2212577433
#yiv2212577433ygrp-sponsor #yiv2212577433ygrp-lc .yiv2212577433ad
{margin-bottom:10px;padding:0 0;}#yiv2212577433 #yiv2212577433actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2212577433
#yiv2212577433activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2212577433
#yiv2212577433activity span {font-weight:700;}#yiv2212577433
#yiv2212577433activity span:first-child
{text-transform:uppercase;}#yiv2212577433 #yiv2212577433activity span a
{color:#5085b6;text-decoration:none;}#yiv2212577433 #yiv2212577433activity span
span {color:#ff7900;}#yiv2212577433 #yiv2212577433activity span
.yiv2212577433underline {text-decoration:underline;}#yiv2212577433
.yiv2212577433attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv2212577433 .yiv2212577433attach div a
{text-decoration:none;}#yiv2212577433 .yiv2212577433attach img
{border:none;padding-right:5px;}#yiv2212577433 .yiv2212577433attach label
{display:block;margin-bottom:5px;}#yiv2212577433 .yiv2212577433attach label a
{text-decoration:none;}#yiv2212577433 blockquote {margin:0 0 0
4px;}#yiv2212577433 .yiv2212577433bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2212577433
.yiv2212577433bold a {text-decoration:none;}#yiv2212577433 dd.yiv2212577433last
p a {font-family:Verdana;font-weight:700;}#yiv2212577433 dd.yiv2212577433last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2212577433
dd.yiv2212577433last p span.yiv2212577433yshortcuts
{margin-right:0;}#yiv2212577433 div.yiv2212577433attach-table div div a
{text-decoration:none;}#yiv2212577433 div.yiv2212577433attach-table
{width:400px;}#yiv2212577433 div.yiv2212577433file-title a, #yiv2212577433
div.yiv2212577433file-title a:active, #yiv2212577433
div.yiv2212577433file-title a:hover, #yiv2212577433 div.yiv2212577433file-title
a:visited {text-decoration:none;}#yiv2212577433 div.yiv2212577433photo-title a,
#yiv2212577433 div.yiv2212577433photo-title a:active, #yiv2212577433
div.yiv2212577433photo-title a:hover, #yiv2212577433
div.yiv2212577433photo-title a:visited {text-decoration:none;}#yiv2212577433
div#yiv2212577433ygrp-mlmsg #yiv2212577433ygrp-msg p a
span.yiv2212577433yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2212577433
.yiv2212577433green {color:#628c2a;}#yiv2212577433 .yiv2212577433MsoNormal
{margin:0 0 0 0;}#yiv2212577433 o {font-size:0;}#yiv2212577433
#yiv2212577433photos div {float:left;width:72px;}#yiv2212577433
#yiv2212577433photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv2212577433
#yiv2212577433photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2212577433
#yiv2212577433reco-category {font-size:77%;}#yiv2212577433
#yiv2212577433reco-desc {font-size:77%;}#yiv2212577433 .yiv2212577433replbq
{margin:4px;}#yiv2212577433 #yiv2212577433ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv2212577433 #yiv2212577433ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2212577433
#yiv2212577433ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2212577433
#yiv2212577433ygrp-mlmsg select, #yiv2212577433 input, #yiv2212577433 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv2212577433
#yiv2212577433ygrp-mlmsg pre, #yiv2212577433 code {font:115%
monospace;}#yiv2212577433 #yiv2212577433ygrp-mlmsg *
{line-height:1.22em;}#yiv2212577433 #yiv2212577433ygrp-mlmsg #yiv2212577433logo
{padding-bottom:10px;}#yiv2212577433 #yiv2212577433ygrp-msg p a
{font-family:Verdana;}#yiv2212577433 #yiv2212577433ygrp-msg
p#yiv2212577433attach-count span {color:#1E66AE;font-weight:700;}#yiv2212577433
#yiv2212577433ygrp-reco #yiv2212577433reco-head
{color:#ff7900;font-weight:700;}#yiv2212577433 #yiv2212577433ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv2212577433 #yiv2212577433ygrp-sponsor
#yiv2212577433ov li a {font-size:130%;text-decoration:none;}#yiv2212577433
#yiv2212577433ygrp-sponsor #yiv2212577433ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv2212577433
#yiv2212577433ygrp-sponsor #yiv2212577433ov ul {margin:0;padding:0 0 0
8px;}#yiv2212577433 #yiv2212577433ygrp-text
{font-family:Georgia;}#yiv2212577433 #yiv2212577433ygrp-text p {margin:0 0 1em
0;}#yiv2212577433 #yiv2212577433ygrp-text tt {font-size:120%;}#yiv2212577433
#yiv2212577433ygrp-vital ul li:last-child {border-right:none
!important;}#yiv2212577433
