连接字符串使用VB6(Concatenate strings with vb6)

2019-10-16 18:10发布

我试图在VB6来连接。 操作员+ =不支持,我要像做下面的代码。 我想更多的字符串添加到一个文本框的程序工作下来这段代码。 谁能指教一下改+ =什么? 我知道和可以添加一个字符串到另一个时使用,但我在这里工作的例子,似乎并不合适。

谢谢。

    If (strHomeNo <> "") Then
        txtPhoneNums = "Home: " + strHomeNo
    End If
    If (strMobileNo <> "") Then
        txtPhoneNums += "Mobile: " + strMobileNo
    End If
    If (strWorkNo <> "") Then
        txtPhoneNums += "Work: " + strWorkNo
    End If
    If (txtPhoneNums <> "") Then
        txtPhoneNums.ForeColor = vbBlack
        txtPhoneNums.FontBold = False
    End If
Else
     txtPhoneNums.Text = "NO CONTACT DETAILS"
     txtPhoneNums.ForeColor = vbRed
     txtPhoneNums.FontBold = True

Answer 1:

将 :

txtPhoneNums = txtPhoneNums & "Work: " & strWorkNo

不行?



Answer 2:

在VB6,您连接与琴弦&像你说的运营商。 我不记得有是一个速记&= (它已经有一段时间),所以你需要:

txtPhoneNums = txtPhoneNums & "Mobile: " & strMobileNo

不要以为有更好的办法。



Answer 3:

@大卫&@布兰特的答案是正确的。 但是,如果你发现自己做了很多级联的,那么你可以建立一个类来使事情变得更容易。 喜欢的东西:txtPhoneNums.Add( “移动”,strMobileNo)。 我用一个建立我的SQL语句。



文章来源: Concatenate strings with vb6