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

VBÖÐÀûÓÃCopyMemoryʹÓÃÖ¸Õë


VBÖÐÀûÓÃCopyMemoryʹÓÃÖ¸Õë
¡¡¡¡Ò»¡¢Ö¸ÕëÊÇʲô£¿
¡¡¡¡²»ÐèҪȥÕÒʲô±ê×¼µÄ¶¨Ò壬Ëü¾ÍÊÇÒ»¸ö32λÕûÊý£¬ÔÚCÓïÑÔºÍÔÚVBÀï¶¼¿ÉÒÔÓÃLongÀàÐÍÀ´±íʾ¡£ÔÚ32λWindowsƽ̨ÏÂËüºÍÆÕͨµÄ32볤ÕûÐÍÊýûÓÐʲô²»Í¬£¬Ö»²»¹ýËüµÄÖµÊÇÒ»¸öÄÚ´æµØÖ·£¬ÕýÊÇÒòΪÕâ¸öÕûÊýÏóÕëÒ»ÑùÖ¸ÏòÒ»¸öÄÚ´æµØÖ·£¬ËùÒÔ¾ÍÓÐÁËÖ¸ÕëµÄ¸ÅÄî¡£
¡¡¡¡ÓÐͳ¼Æ±íÃ÷£¬ºÜ´óÒ»²¿·Ö³ÌÐòȱÏݺÍÄÚ´æµÄ´íÎó·ÃÎÊÓйء£ÕýÊÇÒòΪָÕëÖ±½ÓºÍÄÚ´æ´ò½»µÀ£¬ËùÒÔÖ¸ÕëÒ»Ö±ÒÔÀ´±»¿´³ÉÒ»¸öΣÏյĶ«Î÷¡£ÒÔÖÁÓÚ²»ÉÙÓïÑÔ£¬ÈçÖøÃûµÄJAVA£¬¶¼²»Ìṩ¶ÔÖ¸Õë²Ù×÷µÄÖ§³Ö£¬ËùÓеÄÄÚ´æ·ÃÎÊ·½ÃæµÄ´¦Àí¶¼ÓɱàÒëÆ÷À´Íê³É¡£¶øÏóCºÍC++£¬Ö¸ÕëµÄʹÓÃÔòÊÇ»ù±¾¹¦£¬Ö¸Õë¸øÁ˳ÌÐòÔ±¼«´óµÄ×ÔÓÉÈ¥ËæÐÄËùÓûµØ´¦ÀíÄÚ´æ·ÃÎÊ£¬ºÜ¶à·Ç³£ÇÉÃîµÄ¶«Î÷¶¼ÒªÒÀ¿¿Ö¸Õë¼¼ÊõÀ´Íê³É¡£
¡¡¡¡¹ØÓÚһß߼¶µÄ³ÌÐòÉè¼ÆÓïÑÔÊDz»ÊÇÓ¦¸ÃÈ¡ÏûÖ¸Õë²Ù×÷£¬¹ØÓÚûÓÐÖ¸Õë²Ù×÷Ëã²»ËãÒ»ÃÅÓïÑÔµÄÓŵ㣬ÎÒÔÚÕâÀï²»ÌÖÂÛ£¬ÒòΪ»¥ÁªÍøÉϹØÓÚÕâ·½ÃæµÄûÓнá¹ûµÄÌÖÂÛ£¬ÒѾ­Ôì³ÉÁËÕ¼Óü¸¸öGBµÄ×ÊÔ´¡£ÎÞÂÛ×îÖÕÄãÊDz»ÊÇҪ϶¨¾öÐÄÐÞϰָÕë¼¼Êõ¡¶¿û»¨±¦µä¡·£¬Á˽âÕâÃŹ¦·ò×ÜÊÇÓÐÒæ´¦µÄ¡£
¡¡¡¡×¢Ò⣺ÔÚVBÀ¹Ù·½ÊDz»¹ÄÀøÊ¹ÓÃʲôָÕëµÄ£¬±¾ÎÄËù½²µÄÈκζ«Î÷Äã¶¼±ðÖ¸ÍûÈ¡µÃ¹Ù·½µÄ¼¼ÊõÖ§³Ö£¬Ò»Çж¼Òª¿¿ÎÒÃÇ×Ô¼ºµÄŬÁ¦£¬Ò»Çж¼¸ü´Ì¼¤£¡
¡¡¡¡ÈÃÎÒÃÇ¿ªÊ¼ÉñÆæµÄVBÖ¸Õë̽ÏÕ°É£¡
¡¡¡¡¶þ¡¢À´¿´¿´Ö¸ÕëÄÜ×öʲô£¿ÓÐʲôÓã¿
¡¡¡¡ÏÈÀ´¿´Á½¸ö³ÌÐò£¬³ÌÐòµÄ¹¦Äܶ¼Êǽ»»»Á½¸ö×Ö´®£º
¡¡¡¡¡¾³ÌÐòÒ»¡¿£º
'±ê×¼µÄ×ö·¨SwapStr
Sub SwapStr(sA As String, sB As String)
¡¡Dim sTmp As String
¡¡sTmp = sA: sA = sB: sB = sTmp
End Sub
¡¡¡¡¡¾³ÌÐò¶þ¡¿£º
'ÓÃÖ¸ÕëµÄ×ö·¨SwapPtr
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (Destination As Any, Source As Any, ByVal Length As Long)
Sub SwapPtr(sA As String, sB As String)
¡¡Dim lTmp As Long
¡¡CopyMemory lTmp, ByVal VarPtr(sA), 4
¡¡CopyMemory ByVal VarPtr(sA), ByVal VarPtr(sB), 4
¡¡CopyMemory ByVal VarPtr(sB), lTmp, 4
End Sub
¡¡¡¡ÄãÊDz»ÊÇÒÔΪµÚÒ»¸ö³ÌÐòÒª¿ì£¬ÒòΪËü¿´×żòµ¥¶øÇÒ²»Óõ÷ÓÃAPI£¨µ÷ÓÃAPIÐèÒª¶îÍâµÄ´¦Àí£¬VBÎĵµÃ÷È·Ö¸³ö´óÁ¿µ÷ÓÃAPI½«½µµÍ³ÌÐòÐÔÄÜ£©¡£µ«ÊÂʵÉÏ£¬ÔÚVB¼¯³É»·¾³ÖÐÔËÐУ¬³ÌÐò¶þÒª±È³ÌÐòÒ»¿ìËÄ·ÖÖ®Ò»£»¶ø±àÒë³É±¾»ú´úÂë»òp-code£¬³ÌÐò¶þ»ù±¾ÉÏÒª±È³ÌÐòÒ»¿ìÒ»±¶¡£ÏÂÃæÊÇÁ½¸öº¯ÊýÔÚ±àÒë³É±¾»ú´úÂëºó£¬ÔËÐв»Í¬´ÎÊýËù»¨Ê±¼äµÄ±È½Ï£


Ïà¹ØÎĵµ£º

ÓÃvbʵÏÖ¼ÆËã»ú¹¦ÄÜ


±¨¸æÊé
Ãû³Æ
ʵÑé10-1 ʵÏÖ¼ÆËãÆ÷µÄ¹¦ÄÜ
ÐÕÃû
 
Ö¸µ¼½Ìʦ
 
ѧºÅ
 
ÈÕÆÚ
 
ÈÎÎñÇåµ¥
ÔÚ±¾Á·Ï°ÖУ¬Ä㽫ʹ»æÖƵļÆËãÆ÷Íê³É¼òµ¥µÄËÄÔòÔËËã¡£
1)        Æô¶¯Visual Studio 2005¡£
2)        н¨Ò»¸öVB WindowsÓ ......

VB¹ýÂËÖÐÎÄ×Ö·û´®Ô´Âë

Ìí¼Ó
Á½¸öTEXT(multiline=true)
Ò»¸ö°´Å¥
Private Function isChinese(ByVal asciiv) As Boolean
a = AscW(asciiv)
If Len(Hex$(a)) > 2 Then
isChinese = True
Else
isChinese = False
End If
End Function
Private Sub Command1_Click()
text2.text="" 'ÏÈÇå¿Õtext2
For i = 1 To Len(Text1.Text)
DoEve ......

VBдµÃÒ»¸ö¼Çʱ¾

½ñÌìÓñà³ÌÓïÑÔVisual Basic£¨VB£©Ð´³ö×Ô¼ºµÄ¼Çʱ¾£¡¼ÇµÃ×Ô´ÓÉϴεÄÒ»¸öVB´òÔì¼òµ¥¼ÆËãÆ÷ºó¾ÍÔÙҲûÓÐдһЩС³ÌÐòÁË£¡½ñÌìÄØ£¬Ð´Ò»¸ö¼òµ¥µÄ¼Çʱ¾³ÌÐò°É£¡
       ¹¤¾ß£ºÒ»Ì¨¼ÆËã»ú£¨µçÄÔ£©¡££¨ÅäÖò»×öʲôҪÇó£¬ÏÖÔڵĻúÆ÷Ó¦¸ÃûÓÐÅäÖúܵ͵İɣ¡Ö»ÒªÄÜÔËÐÐVisual Basic 6.0¾ÍÐУ¡£©
  &nbs ......

VCʵÏÖÀàËÆVBÖеÄLinkLabel¹¦ÄÜ

VCʵÏÖÀàËÆVBÖеÄLinkLabel¹¦ÄÜ
 
 //VBÀïÃæÓиöLinkLabel£¬VBÖеÄLabelÔÚVCÖÐʽCStatic£¬µ«ÊÇVCÖÐCStaticûÓÐÀàËÆLinkLabelµÄ¹¦ÄÜ¡£¿ÉÒÔ×Ô¼º
//Ìí¼ÓÒ»µã´úÂëÀ´ÊµÏÖ£º
//²»ÖªµÀΪʲôIDC_HANDDÒ»¶¨Òª×Ô¼º¶¨ÒåÒ»ÏÂ
#define IDC_HAND MAKEINTRESOURCE(32649)
//´¦ÀíÊó±êÒÆ¶¯
void CAppNonameDlg::OnMouseMov ......

VB sytem32\ieframe.dllÕÒ²»µ½µÄ½â¾ö·½°¸

c:\windows\sytem32\ieframe.dll\1ÕÒ²»µ½,´íÎó½â¾ö·½°¸.
Õâ¸öieframe.dllÊÇvbÖÐWebBrowser µ÷ÓõĿؼþ£¬µ±ÄãÓÃvbÔٴδò¿ªÄãµÄ¹¤³ÌÖ®ºó£¬¾Í¿ÉÒÔ·¢ÏÖÒÔǰµÄWebBrowser ¿Ø¼þûÓÐÁË¡£¶øÇÒÔٴμÓÔØÒ²ÊDz»ÄܵÄÁË£¬Õâʱ¾ÍÐèÒªÓõ½ÏÂÃæµÄ·½·¨À´´¦Àí£º
°ÑÒÔÏÂÄÚÈÝ×ö³ÉÒ»¸ö×¢²á±íÎļþfixieframe.reg£¬µ¼Èë×¢²á±í¼´¿É£º
Windows Re ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ