VB 6.0ʹÓÃapi
ÕâÒ»¶Î´ó¼Ò±àд³ÌÐòºÜ¶àʱºò¶¼ÔÚʹÓÃAPI,Ëü¸øÎÒÃÇ´øÀ´ÁËÇ¿´óµÄ¹¦ÄÜ.ÈÃÎÒÃǷdz£¾ªÏ².
µ«ÊÇÎÒÃÇÔÚµ÷ÊÔ³ÌÐòµÄʱºòÓÐʱºò×ܻᱼÀ£.ÕâÑùºÜ²»·½±ã.
ÆäÖÐÓÐЩÊÇapiÈǵĻö
ʹÓÃapi×¢ÒâÊÂÏî:
Ê×ÏÈÎÒ˵˵ÎҵĹ۵ã.
1:ApiÊǺܶàϵͳҲÔÚÓÃ.ÎÒÃÇÔÚÉèÖòÎÊýʱÈç¹ûºÍϵͳµÄ²ÎÊýÓгåÍ».¾Í¿ÉÄÜÒýÆðÈí¼þ³ö´í
2.apiºÜ¶à¶¼ÊÇcÓïÑÔ±àдµÄ,cÖÐÕûÐÍÊý¶¼ÊÇ4¸ö×Ö½Ú.ÕâÑùvbÖж¨ÒåµÄ±äÁ¿¾Í¿ÉÄÜÓëapi³åÍ».
»¹ÓÐ:vb6.0ÔÚÓöµ½ÕûÐÍÊý¾Ýʱ¾¡Á¿Ê¹ÓÃLong±äÁ¿¡£ÒòΪLong±äÁ¿ÊÇ32λCPUµÄ±¾»úÊý¾ÝÀàÐÍ£¬ËùÒÔ´¦ÀíËٶȻáºÜ¿ì£¬ÓÈÆäÊÇÔÚÑ»·ÌåÖС£
------------------------------------------------------------
ʹÓÃInteger½øÐмÆËãÔÚijЩ¼«¶ËÊäÈëÏÂInteger±äÁ¿½á¹ûÒç³ö£¬ÓÖÒòΪʹÓÃÁËOn error resume next ¶øµ¼Ö³ö´íδÄÜÔÚ³ÌÐòÖÐÔËÐÐÖÐÌáʾ³ö´íÎó£¬ËùÒÔʹÓÃinteger ²»ÊÇÒ»¸öºÃÏ°¹ß
ÕâÀïÌṩһ¸öÁ´½Ó.¹ØÓÚʹÓÃapiµÄ×¢ÒâÊÂÏî
Ïà¹ØÎĵµ£º
×Ô¼ºÕûÁË4¸öÄ¿±êÓÃÓÚɨÃè¡£ÒÔºó¿ÉÄÜ¿ÉÒÔ×Ô¼ºÌí¼Óɾ³ý£¨Ð´µ½Õâ¶ùºöÈ»¾õµÃC++µÄvector²»ÄÜɾ³ýÔªËØ£¨·´ÕýC++ PrimerÀïĿǰûÕÒµ½£©ÈÃÈ˺ÜÓôÃÆ£©
Form1£¬Ðë¼ÓÒ»¸öTimer1
Dim CAngle As Integer 'Current Angle (Not Class Angle)
Private Sub Form_Load() '³õʼ»¯
CAngle = 0
Me.BackColor = vbBlack
......
ÕâÀïÊÇ ÀûÓÃreplace º¯Êý ÔÚvbÖÐʵÏÖ Ïû³ý¿ÕÐеÄÒ»¸ö³ÌÐò
ÕâÀïµÄÈÝÆ÷ÊÇrichtext
¿ÉÒÔÀ©³äµ½ÆäËûÈÝÆ÷ ºÍÆäËû×Ö·û ÓÃÓÚ±àд²éÕÒÌæ»»¹¦ÄÜ
'--------------------------------------------------------------------------------------------
' Ïû³ý¿ÕÐÐ , ÀûÓÃinstrº¯Êý, ËÑË÷Îı¾ÀïµÄvbcrlf(»Ø³µ + »»ÐÐ), Á½¸ö»Ø³µÌæ»» ......
VB´´½¨ACCESSÊý¾Ý¿âÈ«½â ¶¯Ì¬´´½¨Êý¾Ý¿â¡¢´´½¨±í£¬´´½¨¼Ç¼ ADO¡¢ADOX2009Äê04ÔÂ20ÈÕ ÐÇÆÚÒ» 10:17ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡Ô ......
VBÖÐ Replace º¯Êý
ÃèÊö
·µ»Ø×Ö·û´®£¬ÆäÖÐÖ¸¶¨ÊýÄ¿µÄij×Ó×Ö·û´®±»Ì滻ΪÁíÒ»¸ö×Ó×Ö·û´®¡£
Óï·¨
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý£º
²ÎÊý ÃèÊö
expression ±ØÑ¡¡£×Ö·û´®±í´ïʽ£¬°üº¬ÒªÌæ»»µÄ×Ó×Ö·û´®¡£
find ±ØÑ¡¡£±»ËÑË÷µÄ×Ó×Ö·û´®¡£
......
Õâ¶Îʱ¼äÔÚÒÆÖ²ÏîÄ¿µÄ¹ý³ÌÖУ¬Æð³õÎÒÏëÅжÏÒ»¸ö×Ö·û´®ÖÐÊÇ·ñ´æÔÚij×Ö·û£¨´®£©£¬Ö±½ÓµÄʹÓ÷½·¨ÊÇÓÃinstr£¨start£¬string1£¬string2£¬VB compare£©£¬µ«¾¹ý·ÖÎöÔÚVBÖпÉÒÔÖ»ÓÃһϷ½·¨À´Åжϣ¡
1.³£ÓõÄINStr·½·¨
Function InStr([Start], [String1], [String2], [Compare A ......