Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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
ֻȡӢÎÄ
ÒÔÉϼ¸¸ö³£Á


Ïà¹ØÎĵµ£º

ASP VB.NET ¿Í»§¶ËÉÏ´«Îļþµ½·þÎñÆ÷¶Ë

  Dim strPath As String = Server.MapPath("~\Îļþ¼Ð")
        'Åжϱ£´æÎļþ·¾¶ÊÇ·ñ´æÔÚ ²»´æÔÚÔò´´½¨
        If Not Directory.Exists(strPath) Then
            Directory ......

¹ØÓÚvb±àдÃâɱÀ¦°óÆ÷´úÂë

Dim FirstFile As String
Dim SecondFile As String
Dim FinalFile As String
Dim first() As Byte
Dim second() As Byte
Dim file1size As Long, file2size As Long
Private Sub Command3_Click()
SecondFile = Text2.Text
FirstFile = Text1.Text
FinalFile = Text3.Text
Open FirstFile For Binary Access Rea ......

VB 5·1µÚÈýÌì

1¡¢´óµÀÖÁ¼ò
 
Ã×ÀÏʦÏȳÊÏÖÁËÒ»¸öº¯ÊýµÄͼÏñ£¬È»ºóÎÊÎÊ´ó¼ÒÏëµ½ÁËʲô¡£
¿´µ½ÕâÕÅͼ£¬ÎÒÏÈ·¢ÏÖÕâÊÇÒ»¸öÖÜÆÚº¯Êý£¬ÔÙÍùÉîÁ˾͸оõ×Ô¼ºÓ¦¸Ã²»»áÁË£¬¼ÄÏ£ÍûÓÚÊéÐŵļ¸¸öͬѧ£¬¸Ð¾õÓ¦¸ÃÊǸßÊýÀïµÄ¶«Î÷¡£µ«ÊÂʵ֤Ã÷ÊdzõÖеÄ֪ʶ£º
ËûÊÇÒÔÏÂÈý¸öº¯ÊýµÄ¸´ºÏº¯Êý£º
y=sin(x)+sin(2x)+sin(3x)
 
 
 
& ......

VB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó

±¾ÎÄÒý×Ô¡£¸Ðлԭ´´£¡http://useway.blog.51cto.com/736087/176913
VBÎÞËù²»ÄÜÖ®Èý£ºVB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://useway.blog.51cto.com
 
    VBÒ»Ö±±»ÈÏΪÊÇÒ»¸ö¿ÉÒÔͨ¹ý¼òµ¥µÄ·½·¨£¬Íê³ÉWindows½çÃæÓ¦ÓóÌÐòµÄÒ»¸öÓïÑÔ¡£¶ÔWindowsϵͳ·½ÃæµÄ±à³ÌËƺõÊ× ......

VB ²éÕÒÓÎÏ·´°¿Ú¾ä±úµÄ·½·¨


VB ²éÕÒÓÎÏ·´°¿Ú¾ä±úµÄ·½·¨
ÐÅÏ¢À´Ô´£ººÚ¿Í´úÂë ±à¼­£ºroot ä¯ÀÀ´ÎÊý£º191 ¼ÓÈëʱ¼ä£º2010-3-20 1:40:47 ÆÀÂÛ(0)
[ÎÊÌâÒ»,²»ÄÜ»ñµÃ´°¿Ú¾ä±ú]
Ò»°ãÑ°ÕÒ´°¿Ú¾ä±ú¶¼ÊÇÖ±½ÓFindWindow°É,ÕâÑùÊDz»ÐеÄ,QQÈý¹úÔÚÕâЩº¯ÊýÉÏ×öÁËһЩ´¦Àí.ÎÒÀ´¸ø´ó¼Ò˵¸öÍòÄܵķ½·¨°É,
¶ÔÓÚGetWindowText·½·¨ÓÎÏ·¾Í¹Ü²»µ½ÁË,¿ÉÒÔÅäºÏʹÓÃGetW ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ