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

vb 6.0 string ÔõôʵÏÖ +=²Ù×÷£¿

ÈçÌâ
·Ö²½
VB code:
Dim a
Dim b
a = a + 1
a = a + b
'»òÕß
'a = a + 1 + b



Ŷ,ÊÇstringÀàÐÍ,×ßÑÛÁË¡£¡£¡£


ºÃÏñûÓÐ+=ÕâÑùµÄ²Ù×÷·û°É£¬
Ö»ÄÜÊÇ
dim str1 as string , str2 as string
str1 = "**" str2 = "**"
str1 = str1 + str2

VB²»Ö§³ÖÕâ¸öÔËÐзû
Ö»ÄÜÕâÑù£ºstrOne=strOne +strTwo
»òÕߣºstrOne=strOne & strTwo
ÍÆ¼öºóÕߣ¬ÒòΪǰÕßÐèÒªÖØÔØ¡£

¾Ù¸öÀý×Ó:
VB code:
Private Sub Command3_Click()
Dim a As String, i As Long
Dim b(10) As String
b(0) = ""
b(1) = "hehe"
b(2) = ""
b(3) = "heihei"
b(4) = "lala"

For i = 0 To 10
a = a & IIf(a = "", IIf(b(i) = "", "", b(i)), IIf(b(i) = "", "", "," & b(i)))
Next
Debug.Print a
End Sub


ÔÙÎÊÒ»¸ö

    Set Fs_Start_Cmd_tcl = CreateObject("Scripting.FileSystemObject")
    Set F_Start_Cmd_tcl = Fs_Start_Cmd_tcl.OpenTextFile(F3, ForWriting, True, 0)

³ÌÐòÌáʾOpenTextFile ûÓиú¯Êý»ò¹ý³Ì£¬ÎªÊ²Ã´°¡£¿

c = a & b


Ïà¹ØÎÊ´ð£º

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃŰ¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

VB ÍøÒ³×Ô¶¯µÇ½

Option Explicit

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ