VB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó
±¾ÎÄÒý×Ô¡£¸ÐлԴ´£¡http://useway.blog.51cto.com/736087/176913
VBÎÞËù²»ÄÜÖ®Èý£ºVB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://useway.blog.51cto.com
VBÒ»Ö±±»ÈÏΪÊÇÒ»¸ö¿ÉÒÔͨ¹ý¼òµ¥µÄ·½·¨£¬Íê³ÉWindows½çÃæÓ¦ÓóÌÐòµÄÒ»¸öÓïÑÔ¡£¶ÔWindowsϵͳ·½ÃæµÄ±à³ÌËƺõÊ×ÏÈÏëµ½µÄ¾ø¶Ô²»ÊÇVB£¬¶ø´ó²¿·Ö³ÌÐòÔ±Ïëµ½µÄÒ»¶¨ÊÇVC¡£ÎÒÃǽñÌì¾Í½éÉÜÒ»ÖÖÓÃVB½Ø»ñWindowsÈ«¾ÖÏûÏ¢µÄ·½·¨¡£
Ò»¡¢WindowsÈ«¾ÖÏûÏ¢½éÉÜ
ÎÒ²»Ï²»¶Ó÷dz£»ÞɬµÄÓïÑÔÀ´½éÉÜÒ»¸ö¼òµ¥µÄÊÂÎÒò´Ë£¬ÎÒÏëÔÚ±¾ÆªÎÄÕÂÖоÍÓÃͨË×µÄÓïÑÔÀ´½âÊÍÕâ¸ö¸ÅÄî°É¡£
ʲôÊÇWindowsÈ«¾ÖÏûÏ¢ÄØ£¿
ÀýÈ磺Êó±êÔÚ×Ô¶¨ÒåµÄ´°¿ÚÖÐÒƶ¯µÄλÖã¬ÎÒÃÇ¿ÉÒÔͨ¹ýÕâ¸öFormÖеÄÏà¹Ø·½·¨»ñÈ¡£¬È»¶ø£¬Èç¹ûÊó±ê²¢Ã»ÓÐÔÚ×Ô¼ºµÄFormÖÐÒƶ¯ÓÖ¸ÃÔõô»ñµÃÆäλÖÃÄØ£¿
ÔÙÀýÈ磺¼üÅ̵ÄÇû÷¶¯×÷£¬ÔÚ±ðµÄµØ·½Çû÷¼üÅÌ£¬²¢Ã»ÓÐÔÚ×Ô¼ºµÄFormÖÐÇû÷¼üÅÌ£¬Ôõô²ÅÄÜ»ñµÃ°´¼üµÄ¾ßÌå¼üÖµÄØ£¿
¶Ôµ¥Æ¬»úÓÐÁ˽âµÄÅóÓѶ¼ÖªµÀ£¬Êó±êºÍ¼üÅ̵IJÙ×÷¶¼ÊÇÀûÓõÄÊÇ“Öжϔ´¥·¢Ê¼þÀ´Íê³ÉµÄ£¬ÄÇôµ±ÏµÍ³“ÖжϔµÄʱºò£¬¾Í»á·¢³öÏûÏ¢¸ø²Ù×÷ϵͳ£¬¶øÕâЩÏûÏ¢¾ÍÊÇWindowsÈ«¾ÖÏûÏ¢¡£
¶þ¡¢¹³×Ó¼ò½é
¹³×ÓÊÇͨ¹ýÓ¢ÎÄHook·Òë¹ýÀ´µÄ£¬ËùνµÄ¹³×Ó¾ÍÊÇÔÚWindowsÈ«¾ÖÏûÏ¢´«µÝµ½²Ù×÷ϵͳ֮ǰ½øÐнػñ£¬¾¹ý´¦ÀíºóÔÙ´«µÝ¸ø²Ù×÷ϵͳ»òÕßÆäËû¹³×ӵijÌÐò¡£
ÏëÏë¿´£¬¹³×ÓÌýÆðÀ´Ïñʲô³ÌÐò£¿
¶Ôû´í£¬ºÚ¿Í³ÌÐò£¬Ä¾Âí³ÌÐò£¬¶¼ÊÇͨ¹ý¹³×ӵķ½·¨»ñÈ¡Êó±ê¼üÅ̵ÄÏàÓ¦²Ù×÷ÐÅÏ¢£¬»¹»ñÈ¡ÃÜÂë»òÆäËûÓÐÓÃÐÅÏ¢µÄ¡£
µ«ÊÇ£¬¹³×ÓÆä±¾Éí²¢²»ÊDz¡¶¾£¬¶øÊÇÌṩ¸øÎÒÃdzÌÐòÔ±Ò»ÖÖ»ñÈ¡²Ù×÷ϵͳ¶¯×÷µÄÒ»¸ö·½·¨£¬Õâ¸ö·½·¨ÓÐʱºò·Ç³£ÓÐÓ㬿ÉÒԷdz£·½±ãµÄ¿ª·¢Õë¶Ô²Ù×÷ϵͳµÄÓÅÖʳÌÐò¡£
Èý¡¢ÏûÏ¢ÖÖÀà
1¡¢WH_CALLWNDPROCºÍWH_CALLWNDPROCRET
ÕâÁ½ÖÖÏûÏ¢ÊÇ·¢Ë͵½´°¿Ú¹ý³ÌµÄÏûÏ¢£¬ÏµÍ³ÔÚÏûÏ¢·¢Ë͵½½ÓÊÕ´°¿Ú¹ý³Ì֮ǰµ÷ÓÃWH_CALLWNDPROC£¬²¢ÇÒÔÚ´°¿Ú¹ý³Ì´¦ÀíÍêÏûÏ¢Ö®ºóµ÷ÓÃWH_CALLWNDPRO ¡£
2¡¢WH_CBT
ËüÊǼ¤
Ïà¹ØÎĵµ£º
SQLDMOÔÚVBÖеÄÓ¦ÓÃ
http://blog.csdn.net/cncco/archive/2010/03/09/5362111.aspx
SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 20 ......
Õ⼸ÌìÒ»Ö±ÔÚ×öÒ»¸öСµÄ¹¤³Ì,×öÒ»¸öÎı¾ÔĶÁÆ÷,ÏÖÔÚ×öµÄÒѾÓÐÈý·ÖÖ®¶þÁË,´ÓÖÐѧϰµ½Á˺ܶà,¶ÔÎÒÃÇÒÔǰѧϰµÄ³É¹ûÓÐÁ˸üÉî¿ÌµÄÀí½â.
VBÊÇÒ»ÃÅÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼Æ,ÎҾʹÓÃæÐÔ¶ÔÏóµÄ½Ç¶È¶ÔËû×öÒ»´Î×ܽá
°ÑVBÖÐËùÓеÄÊý¾Ý,±äÁ¿,¿Ø¼þ¶¼¿´×öÒ»¸ö¶ÔÏó
ÎÒÃÇËùÓеIJÙ×÷¶¼ÊǶԶÔÏóµÄ²Ù×÷,ÈöÔÏóÈ¥Ö´ÐÐijһ¸ö¹¦ÄÜ
´ó¼ÒÏÈ¿´Ò»¸öÀý× ......
'¹¤³Ì-->ÒýÓà Ìí¼Ó Microsoft activex data objects 2.5 library
'¹¤³Ì-->²¿¼þ Ìí¼Ó Microsoft flexgrid control 6.0
Dim Cnn As New ADODB.Connection
Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access ......
ÉÏÎç:
VB×ܽ᣺
ÏÂͼÊÇÓÃmindmanagerÖÆ×÷µÄVB×ܽámdb£º
³£ÓÿؼþµÄ·ÖÀࣺ
ÊôÐԺ͹ý³Ì£º
·½·¨ºÍ¹ý³Ì
ʼþ¹ý³Ì¡¢Function¹ý³ÌºÍ¹ý³Ì£º
VB×ܽá´óͼ£º
·ÖÆçÈçÏ£º
Êý¾Ý°üÀ¨£ºÊý¾ÝÀàÐÍ¡¢±äÁ¿¡¢³£Á¿¡¢ÔËËã·û¡¢±í´ïʽµÈ¼¸²¿·Ö£¬¶øÁ÷³Ì¿ØÖÆÓï¾äÓ¦²»Ó¦¸Ã¼ÓÈëÆäÖС£
ÎҸоõ²»Ó¦¸Ã£¬ÓÓ±ù¿éÄ£×Ó&rdquo ......
Private Function Utf8ToUni(B() As Byte) As String
'²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode
Dim BU As Long
On Error Resume Next
BU = -1: BU = UBound(B)
If BU = -1 Then Exit Function
On Error GoTo 0
&n ......