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

VB°ÙÀý×ܽá(1)

×òÌìÍíÉÏ£¬Ã×ÀÏʦ°ÑÎҽе½°ì¹«ÊÒ¡£ÎÊÎÒѧÁËÒ»ÖܸоõÈçºÎ£¬ÎÒµ±Ê±ºÜº¹ÑÕ¡£Ã×ÀÏʦÉíÌå²»ºÃ£¬µçÄÔ°æ°àô¶àѧÉú£¬Ëû¿ÉÒÔÈÃ×Ô¼ºÇáËÉÒ»µã¶ù£¬µ«ËûûÓС£×÷Ϊ¼¸Ê®¸öѧÉúµÄÃâ·ÑÀÏʦ£¬×öΪÈ˸¸ÈË·ò£¬ÀÏʦÉÐÇÒÖªµÀÎÒѧÁËÒ»ÖܳɹûÔõÑùÄØ£¬µ«ÎÒ×Ô¼ºÈ´Ã»ÓÐÏë¹ý£¬ºÜ²ÑÀ¢¡£·¸ÈκδíÎóµÚÒ»´Î¿ÉÒÔÔ­Á£¬µ«¾ø²»Ó¦¸ÃÈÃËü³öÏÖµÚ¶þ´Î£¬Ñ§ÁËÒ»ÖÜ£¬ÎÒ´ÓûÏë¹ýѧµÃÔõÑù£¬Ö»ÊÇһζµØ×ö°ÙÀý£¬Ã»Ôõô˼¿¼¡£ÕâÓÖÈÃÎÒº¹ÑÕ¡£
¾­¹ýÃ×ÀÏʦָµã£¬Ðè¸Ä½øµÄÓÐÈý·½Ã棺
1.Óöµ½Ó¢ÎÄËõд£¬¾¿¸ù½áµ×£¬ÕâÑùÈÃ×Ô¼º¼ÇµÃÉî¿Ì£¬ÒÔºó²»ÈÝÒ×·¸´í¡£Àý£ºCstr :³ä·ÖÀí½âC¡¢strµÄÒâ˼¡£C£ºconverseת»» str£ºstring
2¡¢Ñ§Ï°Íê¿Ø¼þºó£¬ÕÒÕÒËûÃǵÄÏàͬµãÓ벻ͬµã¡£ËûÃǶ¼ÓÐʼþ¡¢ÊôÐÔ¡¢·½·¨µÈ£¬¶¼ÊÇÃæÏò¶ÔÏóµÄ¾²Ì¬ÊôÐԺͶ¯Ì¬ÊôÐÔ£ºÓұ߱êÌâ¿òÀïµÄÈ«²¿ÊǾ²Ì¬ÊôÐÔ£¬ËûÃÇÒ²¿ÉÒÔ¶¯Ì¬µ÷Ó㬵«¶¯Ì¬ÊôÐÔÈ´Ö»ÄÜÔÚ´úÂëÖе÷Óá£
3¡¢¾­³£Ë¼¿¼Óë×ܽᡣ¸Õ¿ªÊ¼¸Ð¾õºÜǣǿ¸½»á£¬ÒÔºó¿ÉÒÔ±äΪϰ¹ß£¬ÒÔºóÓÖ¿ÉÒÔ·¢Õ¹ÎªÒ»ÖÖ˼Ïë¡£ÉøÍ¸µ½×Ô¼º×öÿһ¼þÊÂÇéÖ®ÖС£µÚÒ»´ÎÓöµ½ÕâÖÖÊÂÇ飬ҲÐí¶¯¶¯ÄÔ×Ó˼¿¼¶àÓÃÁËÎå·ÖÖÓ£¬µ«ÒÔºóÓöµ½Í¬ÑùµÄÊ»áºÜ¶à´Î£¬ÕâʱÄã»á·¢ÏÖЧÂÊ´ó´óµÄÌá¸ßÁË£¬“Ä¥µ¶²»Îó¿³²ñ¹¤”·À»ðÊÇÀË·Ñʱ¼ä£¬µ«Èç¹û²»·À×Ô¼ºµÄÈÕ×ÓÒ²²»»áºÃÊܵģ¬ÒÔºóÕûÌì¾Íæ×žȻðÁË£¬ÄÇʱ»¹²»ÄÜÇëÏû·À¶Ó°ïæÁË¡£
flashÖÐÑϸñµÄÐÎʽtxt1.Text=Cstr(Val(txt2.Text)+Val(txt3.Text))µ½VBÖпƼòÂÔ³Étxt1.Text=Val(txt2.Text)+Val(txt3.Text),VB±ÈflashµÄ¼æÈÝÐÔ½ÏÇ¿£¬µ«ÔÚVBÖбØÐëÑϸñ°´±ê×¼¸ñʽÀ´£¬Õâ¶ùÊÇ×¨ÒµËØÖʵÄÌåÏÖ¡£VBÊÇÃæÏò¶ÔÏóµÄ»ã±àÓïÑÔ£¬¶ÔÏó¿ÉÒÔʹ´°Ìå¡¢¿Ø¼þÒ²¿ÉÒÔÊÇÊý¾Ý¿â£¬ËûÃǶ¼¾ßÓÐÊôÐÔ¡¢Ê¼þ¡¢·½·¨µÈ¡£
¹ØÓÚMSDN£ºÈκÎVBÖеÄÎÊÌâ»ù±¾¶¼¿ÉÒÔÕÒµ½´ð°¸¡£ÔÚË÷ÒýÖÐÊäÈë¹Ø¼ü×Ö£¬½øÐвéÕÒ¡£×ÅÖØ¿´Ò»¸öÊÇ·µ»ØÖµ£¬Ò»¸öÊÇ˵Ã÷£¬Ò»¸öÊÇÀý×Ó£¬Àý×ÓºÜÖØÒª£¬»¹ÓÐÔÙ¿´¿´ÓõÄʱºòÒª°üº¬Ê²Ã´Í·Îļþ¾ÍÐÐÁË¡£
ÎÒ½¨Òé¾­³£Ó㬶ÔÒÔºóµÄ¿ÉÊÓ»¯±à³ÌºÜÓкô¦£¬ÒòΪºÜ¶àº¯Êý¶¼µÃ²éÕÒMSDN.
δÍê´ýÐø


Ïà¹ØÎĵµ£º

΢ÐÍORM——ÓÃVBºÍC#±àдµÄ¶¯Ì¬ÀàÐÍORM

      ½üÀ´ORM±äµÃÔ½À´Ô½ÆÕ±é£¬Õâ¶¼¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔ­Òò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌØ¶¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆÆµÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......

VB ³¤ÕûÐͺÍ×Ö½ÚÊý×éµÄת»»ÎÊÌâ (LongByte)

VB ³¤ÕûÐͺÍ×Ö½ÚÊý×éµÄת»»ÎÊÌâ (Long<>Byte)
Posted by JiaJia 17 March,2009 (0)Comment
Óõ½µÄAPIÉùÃ÷£º
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Long2Byte
Dim TempLng As Long
Dim TempBytes(0 To 3) As Byte ......

VB¼ì²éºÏ·¨IPµØÖ·

Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
    On Error GoTo Handler
    Dim varAddress As Variant, n As Long, lCount As Long
    varAddress = Split(strIPAddress, ".", , vbTextCompare)
    If IsArray(varAd ......

vb±ê×¼£¨ËÄ£©£º´íÎó´¦Àí

·´íÎóÀàÐÍ
    ·±à³ÌÔ±µÄ´íÎ󣨱ÈÈç·Öĸ²»ÄÜÊÇ0£¬²ÎÊý¸öÊý»òÊý¾ÝÀàÐͲ»¶ÔÓ¦£©
    ·»·¾³·½ÃæµÄ´íÎ󣨱ÈÈçÎļþÌ«´ó£¬´ÅÅ̷Ų»Ï£©
    ·Ê±¼äÉϵĴíÎ󣨱ÈÈçÊÓͼ¸øÉÐδÍê³É¼ÓÔØµÄ´°ÌåÉèÖý¹µã£©
·´´½¨´íÎó´¦Àí³ÌÐò
    ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ