Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vbʵÏַ½ðɽ´Ê°ÔµÄÆÁĻȡ´Ê¹¦ÄÜ

½ñÌìÏëÒª×öÀàËÆ½ðɽ´Ê°ÔÆÁĻȡ´ÊµÄ¹¦ÄÜ£¬ÔÚÍøÉÏÕÒÁËһЩ×ÊÁÏ£¬·¢ÏÖ¶¼ºÜ¸´ÔÓ¡£¼ÈÈ»½ðɽ´Ê°ÔÒѾ­Êµ
ÏÖÁË£¬½èÓÃÖ®:
½ðɽ´Ê°ÔÖÐ2005ÖдøÁËÒ»¸öXdictGrb.dll£¬ÆäʵÊÇÒ»¸öCOM×é¼þ£¬²¢ÇÒʵÏÖÁËÒ»¸öÈ¡´ÊµÄ²å¼þ¿ò¼Ü¡£
ÆäÖеÄÓÐÒÔÏÂÄÚÈÝ£º
1 ½Ó¿Ú
1.1 GrabProxy È¡´Ê´úÀí¶ÔÏó
Function AdviseGrab(XDictGrabSink As IXDictGrabSink) As Long
¹ã²¥Ò»¸öXDictGrabSink£¨Èç¹ûҪʵÏÖÈ¡´Ê¹¦ÄÜ£¬ÄãÐèÒª×Ô¼ºÀ´ÊµÏÖÕâ¸ö½Ó¿Ú£¬¾ßÌåµÄ·½·¨ºóÃæ»áÓнéÉÜ¡££¨Visual BasicµÄʾÀý£¬Ê¹ÓÃÆäËûÓïÑÔÀàËÆ£©£© ½Ó¿Ú£¬ÔÚÐèҪȡ´ÊµÄʱºò»áµ÷ÓÃXDictGrabSinkµÄQueryWord·½·¨£¬Äã¿ÉÒÔÔÚÕâÀïʵÏÖÄãÐèÒªµÄ¹¦ÄÜ¡£
Property GrabEnabled As Boolean
ÊÇ·ñÈ¡´ÊµÄÊôÐÔ
Property GrabMode As XDictGrabModeEnum
É趨ȡ´ÊµÄÊôÐÔ£¬XDictGrabFlagEnumµÄ¶¨ÒåºóÃæ»á½²µ½¡£
Property GrabFlag As XDictGrabFlagEnum
É趨ȡ´Ê½¡£¬±ÈÈçÊÇ·ñÒª½áºÏCtrl»òÕßShift.
Property GrabSystemCP As Long
Õâ¸öÊôÐÔÔÝʱ²»Ì«Çå³þ¡£
Sub GrabWord(lCursorX As Long, lCursorY As Long)
È¡x,y×ø±êµÄ´Ê£¬¹À¼ÆÊÇÆÁÄ»×ø±ê¡£
Sub UnadviseGrab(lCookie As Long)
È¡Ïû¶ÔXDictGrabSink½Ó¿ÚµÄ¹ã²¥¡£
Property XDictGrabPlugins As IPluginsCollection
·µ»ØÒ»¸öIPluginsCollection¼¯ºÏ¡£
1.2  IPluginsCollection ²å¼þ¼¯ºÏ¶ÔÏó
ÆäÖÐʵÏÖÁËÒ»¸ö²å¼þµÄ¿ò¼Ü£¬µ«ÊÇÈç¹ûÖ»ÊÇҪʵÏÖÆÁĻȡ´Ê¹¦ÄÜ£¬Ò²¿ÉÒÔÔÝʱ²»Ê¹Óòå¼þ¹¦ÄÜ¡£
1.3  IXDictGrabPlugin ²å¼þ½Ó¿Ú
1.4  IXDictGrabROT½Ó¿Ú Ãû×Ö²»Ì«Ã÷°×ÊÇʲôÒâ˼£¬ÓÃÀ´×¢²áºÍ·´×¢²á²å¼þ¡£
1.5  IXDictGrabSink ×Ô¼ºÒªÊµÏֵĽӿڣ¬²Î¼ûºóÃæµÄÀý×Ó¡£
Function QueryWord(WordString As String, lCursorX As Long, lCursorY As Long, SentenceString As String, lLoc As Long, lStart As Long) As Long
¿ÉÒÔÔÚÕâ¸ö·½·¨ÖÐʵÏÖÄã×Ô¼ºÒª×öµÄ¹¦ÄÜ£¬WordString²ÎÊýÓ¦¸ÃÊÇÊó±êËùÔÚ´¦µÄµ¥´Ê£¬lCursorXÊÇÊó±êµ±Ç°X×ø±ê£¬lCursorYÊÇÊó±êµ±Ç°Y×ø±ê£¬SentenceString ÊÇÊó±êËùÔÚ´¦Õû¸ö¾ä×Ó£¬lLocÊÇÊó±êËùÔÚ´¦µÄ×ÖÔÚÕû¸ö¾ä×ÓÖеÄλÖã¬Ï±ê´Ó0¿ªÊ¼¡£lStartÔÝʱ²»Ì«Çå³þ¡£
2 ³£Á¿¶¨Òå
2.1 XDictGrabFlagEnum
Const XDictGrabDisableButton = 4
²»È¡°´Å¥ÉϵÄÎÄ×Ö
Const XDictGrabDisableCaption = 8
²»È¡±êÌâÀ¸µÄÎÄ×Ö
Const XDictGrabDisableMenu = 2
²»È¡²Ëµ¥µÄÎÄ×Ö
Const XDictGrabOnlyEnglish = 1
ֻȡӢÎÄ
ÒÔÉϼ¸¸ö³£Á


Ïà¹ØÎĵµ£º

vb Á¬½ÓÊý¾ÝÀý×Ó

   '¹¤³Ì-->ÒýÓà Ìí¼Ó 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ʵÏÖÊý×Öµ½ÖÐÎĽð¶îµÄת»»º¯Êý

Private Function NMoneyToSMoney ( NMoney As Variant )   As String
      If IsNumeric ( NMoney )     =   False Then
            NMoneyToSMoney   =   "²»ÊÇÊý×ÖÀ ......

½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò


½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò
ÐèÒªVBAPIº¯Êý£º
FindWindow←ѰÕÒ´°¿ÚÁбíÖеÚÒ»¸ö·ûºÏÖ¸¶¨Ìõ¼þµÄ¶¥¼¶´°¿Ú
GetWindowThreadProcessId←»ñÈ¡ÓëÖ¸¶¨´°¿Ú¹ØÁªÔÚÒ»ÆðµÄÒ»¸ö½ø³ÌºÍÏ̱߳êʶ·û
--------------------------------------------------------------------------------------------------------------- ......

VB ʹÓÃCÓïÑÔEscapeµÄ·½·¨

ÔÚCÓïÑÔÖУ¬escapeµÄ·ûºÅºÜºÃÓã¬
±ÈÈç
 "ÖйúÒ»¶¨Ç¿"
Õâ¸ö×Ö´®¿ÉÒÔд³É£º
"\x4E2D\x56FD\x4E00\x5B9A\x5F3A"
ÓÃ×ÖÔª±àÂë±àд³ÌÐò£¬ÔÚÆäËû²»Í¬ÓïÑÔµÄwindowsÔË×÷ʱ£¬±È½Ï²»»áÓÐÎÊÌâ¡£
£¨ÎÒ¾¡Á¿²»ÏëÔÚ³ÌÐòÖÐдÈëÖÐÎÄ£©
µ«ÊÇvbÈç¹ûÈ«²¿ÒªÓÃ×ÖÔª±àÂëдµÄ»°£¬¾Í»áºÜÂé·³¶øÇÒÒ»¸öÒ»¸ö¶¼ÒªÊÖд³É£º
ChrW(&H4E2D) ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ