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
ֻȡӢÎÄ
ÒÔÉϼ¸¸ö³£Á
Ïà¹ØÎĵµ£º
Try
Dim Path As String = Server.MapPath("~/Download/") 'Îļþ·¾¶
Path = Path & "file.txt" 'ÎļþµÄÃû³Æ
......
1¡¢´óµÀÖÁ¼ò
Ã×ÀÏʦÏȳÊÏÖÁËÒ»¸öº¯ÊýµÄͼÏñ£¬È»ºóÎÊÎÊ´ó¼ÒÏëµ½ÁËʲô¡£
¿´µ½ÕâÕÅͼ£¬ÎÒÏÈ·¢ÏÖÕâÊÇÒ»¸öÖÜÆÚº¯Êý£¬ÔÙÍùÉîÁ˾͸оõ×Ô¼ºÓ¦¸Ã²»»áÁË£¬¼ÄÏ£ÍûÓÚÊéÐŵöͬѧ£¬¸Ð¾õÓ¦¸ÃÊǸßÊýÀïµÄ¶«Î÷¡£µ«ÊÂʵ֤Ã÷ÊdzõÖеÄ֪ʶ£º
ËûÊÇÒÔÏÂÈý¸öº¯ÊýµÄ¸´ºÏº¯Êý£º
y=sin(x)+sin(2x)+sin(3x)
& ......
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 ......
ת×Ô£ºhttp://tieba.baidu.com/f?kz=139765011
ÿ¸öº¯Êý¶¼¿ÉÒÔÇ¿ÖÆ½«Ò»¸ö±í´ïʽת»»³ÉijÖÖÌØ¶¨Êý¾ÝÀàÐÍ¡£
Óï·¨
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression) ......
Õ⼸ÌìÔÚÉè¼ÆÔĶÁÆäÖÐÓõ½Á˺ܶàºÃµÄ¼¼Êõ,,ÈÃÎÒÃÇÔÚÉè¼ÆÈí¼þµÄʱºò·½±ã,,¿ì½Ý,,ÃÀ¹Û.Ò²ÊÇÎÒÃǾ³£Óõ½µÄһЩ¿Ø¼þ.
ËùÒÔÔÚÕâÀïÎÒ»áÂ½Ðø°ÑËû·ÖÏí³öÀ´.
ÕâÀïÊÇÔÚ´°ÌåÖиı䴰ÌåµÄ´óС.´°ÌåÄÚ²¿ËùÒԿؼþµÄ´óСͬ±ÈÀýµÄ¸Ä±äµÄÒ»¸ö³ÌÐò
ÕâЩÊÇÔÚ±ê׼ģ¿éÖÐ
'¶¨Òå FormOldWidth, FormOldHeight Ϊȫ¾Ö±äÁ¿£¬ÕâÑùÆäËûÄ£¿é²ÅÄÜ ......