ITµ»½Ñ´ØÏ¢

[ ¥ê¥¹¥È | ¾ÜºÙ ]

µ­»ö¸¡º÷
¸¡º÷

Á´1¥Ú¡¼¥¸

[1]

¡¡ºÇ¶á¡¢¸µ¤ÎVBA¤Ç³«È¯¤µ¤ì¤¿¥×¥í¥¸¥§¥¯¥È¤òvb.net¤Ë¥Ð¡¼¥¸¥ç¥ó¥¢¥Ã¥×¤¹¤ë¤³¤È¤Ë¤·¤Æ¡¢»öÁ°Ä´ºº¤ò¹Ô¤Ã¤Æ¤Þ¤¹¡£vb¤«¤évb.net(2005)¤Þ¤Ç°Ü¹Ô¤¹¤ë¤ä¤êÊý¤¬¤½¤ó¤Ê¤ËÆñ¤·¤¯¤Ê¤¤¤À¤È»×¤¤¤Þ¤¹¤¬¡£ÆÍÁ³¡¢¤¢¤ëÆñ´Ø¤Ë¤Ö¤Ä¤±¤Æ¡¢vb¤Ë¤ÏWin32Api¤òÍøÍѤ·¤Æ¤¤¤¿»þ¡¢¥³¡¼¥ë¥Ð¥Ã¥¯¤Î´Ø¿ô¤ò¤É¤Î¤è¤¦¤ËVB.net¤Ë°Ü¤·¤Þ¤¹¡£

¡¡vb¤Ë¤Ï¡¡Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long¡¡¤òÀë¸À¤·¤Æ¡¢¥×¥í¥°¥é¥à¤Ë¤Ï
SetWindowLong winCtrl.hWnd, GWL_WNDPROC, AddressOf WndProc¡¡¤ÇÍøÍѤµ¤ì¤¿¤¬¡¢vb.net¤ËľÀܰܤ¹¤³¤È¤¬¤Ç¤­¤Ê¤¤¡£¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤ä¡£

¡¡²ò·èºö¡§°Ê²¼¤ÎÄ̤ê
¡¡­¡¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤ÎÀë¸À
¡¡¡¡Public Delegate Function P_CALLBACK(ByVal hWnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
¡¡­¢Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long¡¡¤«¤é¡¡Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Int32, ByVal nIndex As Int32, ByVal dwNewLong As P_CALLBACK) As Int32¤ËÊѹ¹¤¹¤ë
¡¡­£¥×¥í¥°¥é¥à¤Ë¤ÏSetWindowLong(winCtrl.Handle, GWL_WNDPROC, AddressOf WndProc)¤Ç´Ø¿ô¤ò»È¤¦¡£

¡¡²ò·è¤·¤Þ¤·¤¿¡£¤è¤«¤Ã¤¿¤Í

Microsoft Visual Basic 6.0 Åý¹ç³«È¯´Ä¶­ (IDE) /VBA ¤Ç¡¢¥Þ¥¦¥¹ ¥Û¥¤¡¼¥ë¤ò»ÈÍѤ·¤Æ¥¹¥¯¥í¡¼¥ë¤Ç¤­¤Þ¤»¤ó¡£º¤¤ê¤Þ¤¹¤è¡£ÂçÊѤ´¶ìÏ«¤Ç¥¹¥¯¥í¡¼¥ë¥Ð¡¼¤ò¥³¥ó¥È¥í¡¼¥ë¤·¤«»ÅÊý¤¬¤Ê¤¤¡£
°Ê²¼¤ÎÄ̤ê¤Ë½¾¤Ã¤Æ¡¢²ò·è¤Ç¤­¤Þ¤¹(¥ß¥¯¥í¥½¥Õ¥È¤Î²ò·è¥½¥ê¥å¡¼¥·¥ç¥ó¡£¸¡¾Ú¤·¤Þ¤·¤¿)

¥¢¥É¥¤¥ó DLL ¤ª¤è¤Ó¤½¤Î¥¢¥É¥¤¥ó DLL ¤ÎºîÀ®¤Ë»ÈÍѤ·¤¿¥³¡¼¥É¤¬¼ý¤á¤é¤ì¤Æ¤¤¤ë VB6 Mouse Wheel.exe ¥Õ¥¡¥¤¥ë¤ò¥À¥¦¥ó¥í¡¼¥É¤·¤Þ¤¹¡£

1. VB6 Mouse Wheel.exe ¥Õ¥¡¥¤¥ë¤ò¥À¥¦¥ó¥í¡¼¥É¤·¤Þ¤¹¡£ °Ê²¼¤Î¥Õ¥¡¥¤¥ë¤Ï¡¢¡ÖMicrosoft ¥À¥¦¥ó¥í¡¼¥É ¥»¥ó¥¿¡¼¡×¤«¤é¥À¥¦¥ó¥í¡¼¥É¤Ç¤­¤Þ¤¹¡£
VB6MouseWheel.EXE ¥Ñ¥Ã¥±¡¼¥¸ (http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe)
2. ¥À¥¦¥ó¥í¡¼¥É¤·¤¿¥Õ¥¡¥¤¥ë¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¤·¤ÆÅ¸³«¤·¡¢¥Õ¥©¥ë¥À¤ËÊݸ¤·¤Þ¤¹¡£
3. [¥¹¥¿¡¼¥È] ¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤·¡¢[¥Õ¥¡¥¤¥ë̾¤ò»ØÄꤷ¤Æ¼Â¹Ô] ¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£regsvr32 <path>\VB6IDEMouseWheelAddin.dll ¤ÈÆþÎϤ·¡¢[OK] ¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£
4. Visual Basic 6.0 (VBA¥×¥í¥°¥é¥à´Ä¶­)¤òµ¯Æ°¤·¤Þ¤¹¡£
5. [¥¢¥É¥¤¥ó] ¥á¥Ë¥å¡¼¤ò¥¯¥ê¥Ã¥¯¤·¡¢[¥¢¥É¥¤¥ó ¥Þ¥Í¡¼¥¸¥ã] ¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£
6. [¥¢¥É¥¤¥ó ¥Þ¥Í¡¼¥¸¥ã] ¥Ü¥Ã¥¯¥¹¤Î°ìÍ÷¤Ç¡¢[MouseWheel Fix] ¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£
7. [¥í¡¼¥É/¥¢¥ó¥í¡¼¥É] ¥Á¥§¥Ã¥¯ ¥Ü¥Ã¥¯¥¹¤ò¥ª¥ó¤Ë¤·¡¢[µ¯Æ°»þ¤Ë¥í¡¼¥É] ¥Á¥§¥Ã¥¯ ¥Ü¥Ã¥¯¥¹¤ò¥ª¥ó¤Ë¤·¤Þ¤¹¡£
8. [OK] ¤ò¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¡£

°Ê¾å¤Ç´°À®¤·¤¿¤é¡¢³Ú¡¹¤Ë ¥Þ¥¦¥¹ ¥Û¥¤¡¼¥ë¤ò»È¤Ã¤Æ¡¢¥×¥í¥°¥é¥à¤ò¸«¤¨¤Þ¤¹¤è¡£

Á´1¥Ú¡¼¥¸

[1]


¤è¤·¤â¤È¥Ö¥í¥°¥é¥ó¥­¥ó¥°

¤â¤Ã¤È¸«¤ë

¤ß¤ó¤Ê¤Î¹¹¿·µ­»ö