Question

我试图在vb6中连接。不支持operator + =，我想做类似下面的代码。我希望在程序解析此代码时向文本框添加更多字符串。任何人都可以建议改变什么+ =？我知道＆amp;在将一个字符串添加到另一个字符串时可以使用它，但是我在这里工作的示例，这似乎不合适。

感谢。

    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

@ David's＆amp; @布兰特的答案是正确的。但是，如果您发现自己进行了大量的连接，那么您可以构建一个类来使您更轻松。类似于：txtPhoneNums.Add（“Mobile：”，strMobileNo）。我用一个来构建我的SQL语句。

Answer 4

VB6使用&连接字符串

用vb6连接字符串

4 个答案: