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
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......