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

VB Formatº¯Êý

Format[$] ( expr [ , fmt ] )
format ·µ»Ø±äÌåÐÍ
format$ Ç¿ÖÆ·µ»ØÎªÎı¾
--------------------------------
Êý×ÖÀàÐ͵ĸñʽ»¯
--------------------------------
    ¹Ì¶¨¸ñʽ²ÎÊý£º
    General Number ÆÕͨÊý×Ö£¬Èç¿ÉÒÔÓÃÀ´È¥µôǧλ·Ö¸ôºÅ
    format$("100,123.12","General Number") ·µ»ØÖµ 100123.12
   
    Currency »õ±ÒÀàÐÍ£¬¿ÉÌí¼Óǧλ·Ö¸ôºÅºÍ»õ±Ò·ûºÅ
    format$("100123.12","Currency") ·µ»ØÖµ £¤100,123.12
   
    Fixed ¸ñʽΪ´øÁ½Î»Ð¡ÊýµÄÊý×Ö
    format$("100123","Fixed") ·µ»ØÖµ 100123.00
   
    Standard ±ê×¼£¬¼´´øÇ§Î»·Ö¸ôºÅºÍÁ½Î»Ð¡Êý
    format$("100123","Standard") ·µ»ØÖµ 100,123.00
   
    Percent °Ù·ÖÊý
    format$("100123","Percent") ·µ»ØÖµ 10012300.00%
   
    Scientific ¿ÆÑ§¼ÇÊý·¨
    format$("100123","Scientific") ·µ»ØÖµ 1.00E+05
   
    Yes/No µ±ÖµÎª0ʱ·µ»Ø NO,·ñÔò·µ»Ø YES
    format$("100123","Yes/No") ·µ»ØÖµ Yes
   
    True/False µ±ÖµÎª0ʱ·µ»Ø False,·ñÔò·µ»Ø True
    format$("100123","True/False") ·µ»ØÖµ True
   
    On/Off µ±ÖµÎª0ʱ·µ»Ø Off,·ñÔò·µ»Ø On
    format$("100123","Yes/No") ·µ»ØÖµ On
    ×Ô¶¨Òå¸ñʽ²ÎÊý
   
    "" ²»½øÐиñʽ»¯ ·µ»ØÖµ Ô­Öµ
   
    0 ռλ¸ñʽ»¯£¬²»×ã²¹0
    format$("100123","0000000") ·µ»ØÖµ 0100123
   
    # ռλ¸ñʽ»¯£¬²»×ãʱ²»²¹0
    format$("100123


Ïà¹ØÎĵµ£º

VBʵÏÖÎļþÉÏ´«µ½FTP·þÎñÆ÷

ftp.txtÎļþÄÚÈÝΪ£º
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VBÄÚÈÝΪ£º
Private Sub Command1_Click()
    Shell "cmd.exe /c ipconfig >ip.jpg"
    Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......

VBÖлñµÃºº×ÖµÄÊ×ÒôÂë(°üº¬¶þ¼¶×Ö¿â)

Option Explicit
'==================================================
' º¯Êý: ReturnSM
'
' ¹¦ÄÜ: ·µ»Ø×Ö·û´®ÖÐû¸ö×Ö·ûµÄÆ´ÒôÉùĸµÚÒ»¸ö×Öĸ
'
' ×¢Òâ: ¸Ãº¯ÊýÖ»ÄÜ´¦Àí3755¸ö³£Óúº×Ö(B0 - D7)
' Èô³¬³öº¯ÊýµÄ·¶Î§½«·µ»Ø³£Êý ERR_RESULT$
'
' Èë¿Ú: Str ´ý´¦ÀíµÄ×Ö·û´®
'
Public Function ReturnSM$(ByVal S ......

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±ê×¼£¨Ò»£©£ºÓû§½çÃæµÄÉè¼Æ

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

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢¡°±ê×¼¡±DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨1£©

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢“±ê×¼”DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨1£©
×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
 
        ¶¯Ì¬Á´½Ó¿â¾­³£±»ÈÏΪÊÇVC»òÕßDephiµÄרÀû£¬DLLÎļþ¿ÉÒÔ½«Äã±àдµÄº¯Êý¶¯Ì¬µÄ·¢²¼£¬²¢¿ÉÒÔ±»ÆäËû³ÌÐòºÜ·½±ãµÄµ÷Óá£
    &n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ