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

Ò½Ôº Ã×ÀÏʦ VB×ܽá

×òÌìÏÂÎçÎÒºÍСÅÖ±»Ã×ÀÏʦ´«»½µ½ÊÐҽԺȥ£¬Ã×ÀÏʦÏëÌýÌýËûÖÜÁùÉϵĿζÔÎÒµÄÓ°ÏìÓжà´ó£¬ÎһشðµÄ»ù±¾ÄÚÈݺ͡¶10Äê VB 1¡·ÀïÃæµÄÄÚÈݲ¶à£¬µ«Ã×ÀÏʦ¸Ð¾õºÜ¿Õ¶´£¬¸Ð¾õÎÒÔÚ·º·º¶øÌ¸£¬ÆäʵÎÒÒ²Óиоõ¡£
ΪÁ˽«Ã×ÀÏʦ˵µÄ×᷽ܽ·¨Ó¦ÓÃÓÚʵ¼ù£¬ÎÒÕâÁ½ÌìÇôúÂë·¢ÏÖMsgBox£¬InputBox£¬PrintµÄÓ÷¨²î²»¶à£¬È»ºó¾Í½«Æä×ܽáÈçÏ£º
MsgBox(prompt[, buttons] [, title] [, helpfile, context])£¬ÆäÖÐPromptÊDZØÐèµÃ×Ö·û´®±í´ïʽ£¬×÷ΪÏÔʾÔÚ¶Ô»°¿òÖеÄÏûÏ¢¡£ButtonÊÇ¿ÉÑ¡µÄÊýÖµ±í´ïʽ£¬ÏÔʾָ¶¨°´Å¥µÄÊýÄ¿ºÍÐÎʽ£¬È±Ê¡ÖµÎª0¡£Title±êÌâÀ¸ÖеÄÏÔʾµÄ×Ö·û´®±í´ïʽ
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
promptͬÉÏ£¬titleͬÉÏ£¬defaultÏÔʾÔÚÎı¾¿òÖеÄ×Ö·û´®±í´ïʽ£¬ÈçÊ¡ÂÔ£¬ÔòÎı¾¿òΪ¿Õ¡£Xpos£¬Ypos¿ÉÑ¡µÄÊýÖµ±í´ïʽ£¬Ö¸¶¨¶Ô»°¿òµÄ×ó±ßÓëÆÁÄ»×ó±ßµÄˮƽ¾àÀ룬¶Ô»°¿òµÄÉϱßÓëÆÁÄ»ÉϱߵľàÀë¡£
object.Print [outputlist] ÔÚImmediate´°¿ÚÖÐÏÔʾÎı¾¡£objectÊDZØÐèµÄ¶ÔÏó±í´ïʽ£¬ÆäֵΪ“Ó¦ÓÃÓÚ”ÁбíÖеĶÔÏó¡£ outputlist¿ÉÑ¡µÄÒª´òÓ¡µÄ±í´ïʽ£¬ÈçÊ¡ÂÔ£¬Ôò´òÓ¡Ò»Ðпհ×ÐС£
ÈýÕßÎÒÖ»¿´µ½ÐÎʽºÍ¹¦ÄÜÉϵÄÏàËÆ£¬²¢Ã»ÓÐÉËûÃǵĸùÔ´¡£Ò²ÊÇÒòΪ×Ô¼º¿´µÄ»¹²»¹»ÉîÈë°É£¬²»ÄÜ´ïµ½Ã×ÀÏʦµÄЧ¹û¡£Ã×ÀÏʦÈÃÓÃÒ»¾ä»°¸ÅÀ¨ÎÒµÄÊÕ»ñ£¬ÎÒ˵£º“×¢Òâ×ܽᣬ×ܽá¾ÍÊÇÁªÏëºÍ¶Ô±È¡£”Ëû°ÑͷʧÍûµÄŤ¹ýÈ¥£¬Ëµ£º“ÓÀÔ¶²»ÒªËµ¾ÍÊÇ£¬ËµÒ»´Î´íÒ»´Î¡£µ±Ìýµ½±ðÈË˵¾ÍÊÇʱ£¬ÎÒ¾ÍÖªµÀÕâ¸öÈËÌ«¾ø¶ÔÁË¡£×ܽ᲻½öÓÐÁªÏëºÍ¶Ô±È£¬»¹ÓаüÀ¨µÈ¡£Ö»ÊÇÁªÏëºÍ¶Ô±ÈÎÒÃDZȽϳ£¼û¡£ÏÖÔڵĴóѧѧ¿Æ¶¼»®Öص㣬ÆäÊµÖØµãÊÇʲô£¬¾ÍÊÇÈËÃǾ­³£¼ûµ½ºÍÓõ½µÄ¶«Î÷£¬ÕâÑùÒ»»®¾Í°Ñ֪ʶ¶¼¹ÂÁ¢ÁË£¬Ñ§Ï°Ö®Öиù±¾Ã»ÓÐÊ²Ã´ÖØµã£¬ÎÒÃÇ¿´ÎÊÌâÒªÈ«Ãæ£¬²»Òª¹ÂÁ¢µØ¿´”˵ÅÖ×ÓʱÌáµ½ÁË¡¶Î÷Óμǡ·£¬ÖªÊ¶Êǿɴó¿ÉСµÄ£¬ÎÒÃÇÒª´ïµ½µÄ¾³½çÊÇÈÃ֪ʶ¿É´ó¿ÉС£¬¾Í³ÌÐòÉè¼Æ¶øÑÔСµ½¾Í“³ÌÐòÉè¼Æ”Ëĸö×Ö£¬´óµ½Ëµ¼¸ÌìҲ˵²»Íê¡£¸úËïÎò¿ÕµÄ½ð¹¿°ôËÆµÄ£¬´óС×ÔÈç¡£


Ïà¹ØÎĵµ£º

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (StringByte)

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ ǰÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо­³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽ ......

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±ê×¼£¨Æß£©£ºÄ£¿éºÍ¹ý³Ì

·´´½¨¾ßÓкÜÇ¿ÄÚ¾ÛÁ¦µÄÄ£¿é
·´´½¨¸ü¼ÓÈÝÒ×µ÷ÊÔºÍά»¤µÄ¹ý³Ì
·´´½¨¸ß¶ÈרÓõĹý³Ì
·´´½¨ËÉÉ¢Á¬½ÓµÄ¹ý³Ì
·¾¡Á¿Ê¹¹ý³Ì¾ßÓжÀÁ¢ÐÔ
·Ìá¸ß¹ý³ÌµÄÉÈÈëÐÔ
·½µµÍ¹ý³ÌµÄÉȳöÐÔ
·±à³ÌÔ­Ôò
   ·Îª¹ý³ÌºÍÄ£¿é¸³Óè±íÒåÐÔÇ¿µÄÃû×Ö
   &middo ......

vb±ê×¼£¨Ò»£©£ºÓû§½çÃæµÄÉè¼Æ

·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔ­Ôò
    ·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐÎªÌØÐÔ
         ·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ