|
|
| |
|
 Download code
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzipto decompress it.
Virus note:All files are scanned once-a-day by Planet Source Code for viruses,but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1)Re-scan downloaded files using your personal virus checker before using it.
2)NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
3)Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com
|
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
Other 45 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
9/4/2002 4:23:30 PM:speedy5
simply amazing... i've been wanting for
something like this!
THANKS A
BUNCH!
5 stars!
|
9/4/2002 4:26:13 PM:
Thanks, this solves a problem I have
been plagued with for the last 6 months.
|
9/4/2002 4:29:38 PM:DAProgs
Small code that does great
things!
If I could give you 10* I
would.
This is great great great
code.
congrats.
|
9/4/2002 4:30:06 PM:Poltergeist
this is what i wanted for a long time
now
5 globes for me ;)
|
9/4/2002 4:55:45 PM:Clint LaFever
Never knew there was a mouse problem
myself. The wheel has always worked
for me on all the sytems I ever used VB
with a mouse with a wheel. Looks like
this was a big thing to others so
congratulations and thank you for
posting.
|
9/4/2002 5:24:53 PM:James Dougherty
Thank you! Finally! After programming
in C++ then going to VB im use to using
the wheel, but can't. This is all
5!
-James-
|
9/4/2002 7:10:56 PM:Gary Staunton
Fantastic Ulli, it's strange that the
IDE doesn't support the wheel without a
third part product. 5gs.
|
9/4/2002 10:03:58 PM:John Phillips
all i have to say is Love it love it
love it - 5 of those balls from me. it
drives me crazy that I can't use the
mouse wheel to scroll in VB - well not
anymore - Thank You!!!
|
9/4/2002 11:21:42 PM:speedy5
hey... it worked the first time, now it
doesn't! why not? it says the dll isn't
found but i did excatly what u said:
put it in the vb dir...
help
|
9/5/2002 2:00:28 AM:Emperor Frollard
I have had the problem on winxp but not
on win2k, maybe thats it...regardless,
now it scrolls :) oh yeah
|
9/5/2002 2:07:03 AM:Emperor Frollard
1 prob I have with it - I work with
panes of code maximized at 1600x1200,
then jumping a full screenful of code
at a time is a LOT!
Would it be
possible to make it scroll a number of
lines rather than fire the pgup/pgdwn
event (what it looks like it does)?
|
9/5/2002 2:45:24 AM:Gerhard
I found a bug for u, In win2k, While
you are scrolling, The num lock, caps
lock keys turn's off. ?????
Can u
perhaps put options for scrolling
speed...? However, Great Idea.
|
9/5/2002 3:50:31 AM:Ulli
If you feel that jumping a whole page
may be a bit much you are free to alter
the constants in the SendKeys-statement
to whatever you like, and recompile. If
it says access denied open the Addins
Manager and unload "Ulli's VB Mouse
Wheel"
|
9/5/2002 4:37:14 AM:Ulli
...or, instead of sending key strokes
to the active code pane, you could post
a WM_VSCROLL message
|
9/5/2002 5:40:51 AM:~ : . Jeff ''Capes'' . : ~
Thank you very very very much! You
didn't ask, but if you did I gave you
$30,00. Why? This is something I really
needed!
I only miss the option to
set the scroll speed. PageDown/Up is a
little fast. So one globe less, which
still gives you 9 !!! ...and there are
alony 5 ;]
thnx again
|
9/5/2002 6:30:42 AM:
thank you very much from thailand
|
9/5/2002 6:36:00 AM:Ulli
Jeff:
Why don't you fax me the money
:-)
|
9/5/2002 8:05:53 AM:Domnic Sickles
Very usefull for me. I have been using
other VS apps like Visual Interdev, and
it has the scrolling as well. Not
being able to scroll has bothered me
for a while...not any longer. Thank
you 5* (more if i could)
|
9/5/2002 8:25:53 AM:Clint LaFever
Just wanted to let those who are still
having problems know, that I have used
various wheel mice on various systems
(9x/NT/2K/ME/XP) and have always been
able to use the mouse wheel (in all
areas of the VB IDE. There have been
times after a clean install of a
machine that I couldn't but either
going out to get the latest driver
fixed it or I had to go to the Mouse
Properties and toggle on varioius
settings like "Use MS Office Compatible
Scroll Only" options found in some
mouse drivers. I guess I am only
saying this for those that are still
having problems because apparently
everybody loves this code so I am not
knocking it at all. Congrats to the
authror for posting something everybody
loves. Just wanted to add my 2cents
though.
|
9/5/2002 9:30:48 AM:
Ulli, you are incredible! This
corrected a problem I have had since
moving to Windows 2K and XP, I have
noticed that the numlock light does
flicker. Otherwise this is
spectacular!
By the way I like setting
my scroll speed to 1/3 instead of 2/3,
just my opinion.
|
9/5/2002 9:57:49 AM:Justin Mugford
I too have been needing something like
this, well done. Only change I made was
to make for small changes. ScrollTo =
.TopLine - (3 * Sgn(wParam)). Then it
will only make small changes, the three
being the number of lines you would
like to skip.
|
9/5/2002 10:02:53 AM:Justin Mugford
hehe should have tested it, seems on
XP, it VB crashes when exiting...
|
9/5/2002 10:05:50 AM:Ulli
Hehe Justin, tested on XP and doesn't
crash...
|
9/5/2002 10:54:16 AM:Ray Hildenbrand
Ya know, it absolutely drives me crazy
that the IDE doesn't support this.
Thanks a lot Ulli this is sweet
|
9/5/2002 12:07:26 PM:Behrooz Sangani
I suggest you apply to work for
Microsoft, just to improve VB IDE with
your Add-Ins :)
|
9/5/2002 12:36:43 PM:CodeJack
Great stuff - I've had some mice that
worked and others that didn't. I'm
sure its a driver issue, but at least
with this, all of them will work!
|
9/5/2002 12:44:48 PM:Ulli
Thank you all, folks, your suggestions
and criticisms helped to improve this
product.
|
9/5/2002 1:27:14 PM:Pablo Hoch
very nice, but crashes when i quit vb
(xp)
|
9/5/2002 1:30:59 PM:Roeland Kluit
It makes VB crash when there is no open
code window!
|
9/5/2002 2:20:39 PM:
For those that have VB crash without
code windows being open remove the
visible line checking in the Function
CodePaneProc and instead of using Const
ScrollFraction for the scroll increment
just hard code the number of UPs and
DOWNs in the sendkeys function like
this
SendKeys IIf(wParam < 0,
"{Down}{Down}{down}", "{up}{Up}{Up}"),
True 'luckily this sends key strokes to
the window with the focus
I have
also noticed this makes the Numlock
light flicker quicker making it almost
look always on. Just thought I would
help.
Larry
|
9/5/2002 5:23:31 PM:Psychiatrist(xasan)
i cant compile it.It asks for the dll
but i cant put it because it cant be
created/
|
9/5/2002 6:10:54 PM:Ulli
You can't compile because VB has the
DLL. Unregister or delete it or use the
Addins manager to unload it and try
again.
|
9/5/2002 6:10:59 PM:Stefan
Amazing code, works prefect! 5 globes
from me!!!
|
9/6/2002 1:05:32 AM:Justin Mugford
Ulli, I think I worked out the problem.
It was something to do with being on
the net or some Office thing, stuffing
me around.
|
9/6/2002 2:56:29 AM:joyprakash saikia
Ulli,
Its really Great innovative
work.
Excellent ground work and
Kudos! to expand your Knowledge base
|
9/6/2002 6:43:27 AM:
Another piece of excellent code from
Ulli. You're a 5 star programmer. So
here are 5 globes from me.
|
9/6/2002 8:42:47 AM:Vlad Vissoultchev
ulli: great work (once again) and a tip
from me:
check out the registry
under HKCU\Control Panel\Desktop for
the wheel support values esp.
WheelScrollLines and
SmoothScroll.
WheelScrollLines is a
REG_SZ that can be -1 when full-page
scrolling is set, 0 - no wheel
scrolling at all, > 0 - number of
lines to scroll at a
time.
SmoothScroll is a REG_DWORD, 0
- disabled, 1 - enabled (default when
missing)
there is also
HKCU\Software\Microsoft\Internet
Explorer\Main\SmoothScroll but this is
somewhat product specific.
if you
need to control these values find the
Tweak UI control panel
applet.
HTH,
</wqw>
|
9/6/2002 10:17:58 PM:Morpheous
Ulli,
Excellent, and I usually do not
vote this gets 5 from me!
Keep up the
good work!
|
9/8/2002 9:36:13 PM:Danne
Great utility, really useful!
|
9/10/2002 5:12:53 PM:
This update is EXCELLENT!!!! This is a
great utility, I like the options box
as well as how good the scroll actually
works, this is much better now, not
that it was ever less than
GREAT!
Larry
|
9/13/2002 7:49:37 AM:Vlad Vissoultchev
ulli,
can you do something for the
immediate window? SendMessage
WM_VSCROLL?
wheel support is
addictive :-)))
</wqw>
|
9/16/2002 10:50:46 AM:
Excellent! 5G
|
9/16/2002 2:01:41 PM:
Install the correct mouse driver and
you won't need this DLL. Most people
assume windows will detect which mouse
they are using (I did). Download the
mouse driver for your specific mouse
(eg, Microsoft Wheel-mouse or explorer)
and it'll fix the problem. It did for
me.
|
9/16/2002 11:30:24 PM:Elias Barbosa
Thanks, Ulli.
It worked like a charm
in my Windows XP computer.
You
rule!!
|
9/19/2002 8:12:18 AM:
OMG dude thanks!!!!
About everyday
when I use VB I always wish it would
scroll.
I think VB ......man think is
just awesome!! Thank again.
|
9/20/2002 1:22:58 PM:Sebastiano Pallaro
Thank a lot! Now I can scroll faster! 5
from me.
|
9/24/2002 1:38:09 PM:Onur BIYIK
thanks thanks thanks.
but i cant
stand it when IDE crashes.
|
9/30/2002 5:49:47 PM:ali s
wonderful! all i can say!
i'm using
this AddIns for about two weeks.work
fine. but it crashes when the page is
empty.(who wants to use wheel for empty
page! maybe I!)
|
10/31/2002 5:16:39 AM:bombdrop
Thid is great only propblem now is to
write enough code in a module to use
the mouse wheel!!!!
|
11/11/2002 12:53:56 PM:Aidman
This is what I been waiting a long...
Good at last someone hade the curage to
face the extrem challenge of writing
this small but yet so fantstic code.
When I first saw it I didn't wast a
second. It was pluged in before I know
it and now I am realised =) I would I
given you 7 globs if I could!
|
12/10/2002 2:18:01 PM:
Your a god send! It was my main
complaint about VB. NO WHEEL SUPPORT!
Are they nuts.
Well you've gone and
fixed that and that deserves 5 Globes
easy.
Nicely Done!
Looking forward
to your future submisions.
|
1/30/2003 6:13:22 PM:
In Spanish: "Cojonudo", great job!
|
4/14/2003 10:16:24 AM:Warp
In Afrikaans: "Heel befok", great job!
|
4/18/2003 2:47:37 PM:
By default you can't use a mouse wheel
in the VB6/VBA IDE unless you install
the drivers for your mouse that make it
work for programs that don't have built
in support for it. I use Intellipoint
drivers to get my Microsoft mouse wheel
to work in those programs... However,
I recently tried to write code for
Outlook rules and notice that
Intellipoint enable the mouse for this
VBA IDE (even though it works w/ the
VBA IDE for Excel/Word/WRQ Reflection,
VB6 and VInterdev). Does anyone know
if this DLL will work for the Outlook
2000 VBA IDE? If so, could somebody
send me a copy cause the link to
download it isn't working. TIA
|
4/18/2003 2:50:22 PM:
That last response was supposed to say
that intellipoint doesn't enable wheel
support for the Outlook 2000 VBA IDE.
If somebody could send a copy of the
code to danp[NOSPAM]129@hotmail.com I'd
greatly appreciate it.
|
5/1/2003 1:24:13 AM:Lautaro
Man, You did it. Good Job.
|
6/19/2003 3:12:31 PM:
Windows 2003 doesn't support the
Intellimouse drivers that used to fix
this problem, so thanks for writing
this code. I had to make a minor tweak
to get it to work in SDI mode. This
tweak is listed below. I apologize if
the formatting gets messed
up.
Public Sub
HookActiveCodePane()
Dim Caption$
If (VBInstance.DisplayModel =
vbext_dm_SDI) Then
If Not
(VBInstance.ActiveCodePane Is Nothing)
Then
Caption =
VBInstance.ActiveCodePane.Window.Caption
End If
hWndActiveCodePane =
FindWindowEx(GetDesktopWindow, 0,
"VbaWindow", Caption) 'find window of
class "VbaWindow" with known caption
Else
hWndActiveCodePane =
FindWindowEx(VBInstance.MainWindow.hWnd,
0, "MDIClient", vbNullString)
End
If
If hWndActiveCodePane Then
SetProp hWndActiveCodePane, PropName,
GetWindowLong(hWndActiveCodePane,
IDX_WINDOWPROC)
SetWindowLong
hWndActiveCodePane, IDX_WINDOWPROC,
AddressOf CodePaneProc
End If
End
Sub
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
