|
¡¡ºÇ¶á¡¢¸µ¤Î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)¤Ç´Ø¿ô¤ò»È¤¦¡£ ¡¡²ò·è¤·¤Þ¤·¤¿¡£¤è¤«¤Ã¤¿¤Í
|
ITµ»½Ñ´ØÏ¢
[ ¥ê¥¹¥È | ¾ÜºÙ ]
Á´1¥Ú¡¼¥¸
[1]
|
Microsoft Visual Basic 6.0 Åý¹ç³«È¯´Ä¶ (IDE) /VBA ¤Ç¡¢¥Þ¥¦¥¹ ¥Û¥¤¡¼¥ë¤ò»ÈÍѤ·¤Æ¥¹¥¯¥í¡¼¥ë¤Ç¤¤Þ¤»¤ó¡£º¤¤ê¤Þ¤¹¤è¡£ÂçÊѤ´¶ìÏ«¤Ç¥¹¥¯¥í¡¼¥ë¥Ð¡¼¤ò¥³¥ó¥È¥í¡¼¥ë¤·¤«»ÅÊý¤¬¤Ê¤¤¡£ |
Á´1¥Ú¡¼¥¸
[1]


