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±äµÃÔ½À´Ô½ÆÕ±é£¬Õâ¶¼¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔÒò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌØ¶¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆÆµÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......
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 ......
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 ......
·´íÎóÀàÐÍ
·±à³ÌÔ±µÄ´íÎ󣨱ÈÈç·Öĸ²»ÄÜÊÇ0£¬²ÎÊý¸öÊý»òÊý¾ÝÀàÐͲ»¶ÔÓ¦£©
·»·¾³·½ÃæµÄ´íÎ󣨱ÈÈçÎļþÌ«´ó£¬´ÅÅ̷Ų»Ï£©
·Ê±¼äÉϵĴíÎ󣨱ÈÈçÊÓͼ¸øÉÐδÍê³É¼ÓÔØµÄ´°ÌåÉèÖý¹µã£©
·´´½¨´íÎó´¦Àí³ÌÐò
......