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

VB CstrºÍstr/lableºÍtestÎÊÌâ

1¡¢¹ØÓÚ¼ª´óÊÓƵ£º1-3¼¯½²VB³ÌÐòÉè¼ÆµÄ¸ÅÊö4-30¼¯½²VB»ù´¡ÖªÊ¶£¬Èç¿Ø¼þµÄʹÓÃ31-64¼¯½²ActiveX¿Ø¼þ¡¢Êý¾Ý¿âµÈµÄ¸ß¼¶±à³Ì²¿·Ö¡£
¿´µÄ¹ý³ÌÖÐ×¢Òâ¿ì½Ý¼üµÄʹÓúͽØͼ¹¤¾ßµÄÔËÓ㬿´ÊÓƵʱ½«Öصã×÷³ö±ê×¢¡£
2¡¢ÓÉCSTR¡¢Cstr£¨£©¡¢string¡¢Instr£¨£©ºÍstr£¨£©£¨´ËΪÉî¶ÈÀ©Õ¹£©ËùÏëµ½µÄ¹ØÓÚ×ܽáµÄ·½·¨¡£
     CSTRÔÚVB³ÌÐòÉè¼ÆÖÐÊDz»´æÔڵģ¬¼´Ê¹ÇÃÈëCSTRºó£¬VBÒ²»á×Ô¶¯Ä¬ÈÏΪCstr¡£
     string º¯Êý string£¨2£¬sport£©µÄ·µ»ØÖµÊÇ“ss”
     Instr£¨£©£ºInstr£¨3£¬“studystudy”£¬“tu”£©
¹ØÓÚCstrºÍstr£ºÁ½ÖÖ×î´óµÄÇø±ðÔÚÓÚ£º
CstrÔÚ½«ÕýÊýת»»ÎªÊý×Ö×Ö·û´®Ê±£¬²»ÔÚÆäÇ°¼ÓÇ°µ¼¿Õ¸ñÀ´°µÊ¾ÆäÕýºÅ£»
¶øStrÔÚ½«ÕýÊýת»»ÎªÊý×Ö×Ö·û´®Ê±,·µ»ØµÄ×Ö·û´®°üº¬Ò»Ç°µ¼¿Õ¸ñ°µÊ¾ÓÐÒ»ÕýºÅ¡£
¾ÙÀýÈçÏ£º
     Dim i As Single
     Dim cstr1 As String
     Dim str1 As String
     i = 10.3
     cstr1 = CStr(i)
     str1 = Str(i)
     Print Len(cstr1), Len(str1) 'Êä³ö:4   5
     i = -10.3
     cstr1 = CStr(i)
     str1 = Str(i)
     Print Len(cstr1), Len(str1) 'Êä³ö:5   5
¼òµ¥µÄ½²£º
     Cstr(10.3)="10.3" Str(10.3)=" 10.3"
     Cstr(-10.3)="-10.3" Str(-10.3)="-10.3"
¸Ä´íÖУ¬Òªµ±ÐÄ£¬Èç¹û²ÉÓÃStr½«ÕýÊýת»»ÎªÊý×Ö×Ö·û´®£¬ÄÇô¶Ô¸Ã×Ö·û´®ÔÚ½øÐÐ
Öðλ´¦Àíʱ£¬ÆäÑ­»·´ÎÊý½«¶àÁËÒ»´Î¡£
ÁíÍ⣺
°´ÕÕMSDN½éÉÜ£¬Í¨³£Cstrºó²ÎÊýÀàÐͱȽϹ㷺£¬¼´£º¿ÉÒÔ½«Boolean£¬Date£¬Empty,Êýֵת»¯Îª×Ö·û´®¡£
¶østrºó²ÎÊýͨ³£Ó¦¸ÃΪÊýÖµ¡£
µ«ÊǸù¾Ýʵ¼Ê²âÊÔ£¬Ò²²»¾¡È»¡£
Çë¿´ÏÂÀý£º
     Private Sub Command1_Click()
         Dim t As Boolean
         Print Str(t)     'Êä³ö False(Ç°ÃæÓпոñ£©
         Print CStr(t)    'Êä³öFa


Ïà¹ØÎĵµ£º

VBÏÂEXECLµÄ²Ù×÷·½·¨

È«Ãæ¿ØÖÆ Excel
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelID.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelID.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelID.WorkBooks.Add;
4) ´ò¿ªÒÑ´æÔÚµ ......

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×ܽá

×òÌìÏÂÎçÎÒºÍСÅÖ±»Ã×ÀÏʦ´«»½µ½ÊÐҽԺȥ£¬Ã×ÀÏʦÏëÌýÌýËûÖÜÁùÉϵĿζÔÎÒµÄÓ°ÏìÓжà´ó£¬ÎһشðµÄ»ù±¾ÄÚÈݺ͡¶10Äê VB 1¡·ÀïÃæµÄÄÚÈݲ¶à£¬µ«Ã×ÀÏʦ¸Ð¾õºÜ¿Õ¶´£¬¸Ð¾õÎÒÔÚ·º·º¶ø̸£¬ÆäʵÎÒÒ²Óиоõ¡£
ΪÁ˽«Ã×ÀÏʦ˵µÄ×᷽ܽ·¨Ó¦ÓÃÓÚʵ¼ù£¬ÎÒÕâÁ½ÌìÇôúÂë·¢ÏÖMsgBox£¬InputBox£¬PrintµÄÓ÷¨²î²»¶à£¬È»ºó¾Í½«Æä×ܽáÈçÏ£º
......

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

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