189 8069 5689
vb中可以使用+连接字符串，
贡山网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作，到程序开发，运营维护。创新互联建站公司2013年成立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。
也可以使用连接字符串，
建议使用连接字符串，以区别数学运算符+。
有许多字符串操作技巧可以帮助你优化代码，以获得更好的性能。StringBuilder允许你执行重复的字符串操作，取得比手工操作更佳的性能。在本文中，我说明在VB.NET中利用StringBuilder的情况。应用StringBuilder的优点StringBuilder是一个可修改字符的缓冲器。当你不直接进行字符串操作而应用StringBuilder时，与每次重复生成一个含有修正的新字符串相比，这样可以获得更佳的性能。你不能总是希望性能得到提高，因为StringBuilder有少量的过度操作，会将指定字符串的内容复制到StringBuilder中，然后将由StringBuilder得到的结果值复制回字符串对象中。在进行二个或更多字符串操作时，我建议使用StringBuilder。(如果只有一项改变，将值复制进StringBuilder再拷贝出来并不会改善性能。)StringBuilder方法Append:允许你在缓冲器末端增加一个字符串。注意，在应用StringBuilder对象时不能使用操作符。
Insert:允许你在StringBuilder对象中增加一个字符串。(就像String.Insert一样。)
Remove:允许你从StringBuilder对象中删除一个字符串。(就像String.Remove一样。)
Replace:允许你替代StringBuilder对象的一部分。(就像String.Replace一样。)
实例在列表A的样本代码中，我建立一个字符串变量strOriginal来保存原始文本的值。我还定义StringBuilder对象BuilderStr，我将利用它对存储在srtOriginal中的文本进行字符串操作。定义BuilderStr时，我将它设定到strOriginal的值中。之后，我操作BuilderStr，给它添加一些文本(“is”,
”very”,”
important”)，然后再利用Replace方法去掉”very”这个单词。(注意，在这个例子中，你使用Remove方法而非Replace方法。)最后，我用BuilderStr.ToString的值更新strOriginal，并在信息框中显示所得到的字符串。
Public Sub AutoComplete(ByVal cmb As ComboBox, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If cmb.DataSource Is Nothing Then
Return
End If
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
Return
End If
Dim strFindStr As String = ""
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Back) Then
If (cmb.SelectionStart = cmb.Text.Length) Then
If cmb.Text.Length 0 Then
strFindStr = cmb.Text.Substring(0, cmb.Text.Length - 1)
End If
Else
If cmb.SelectionStart 0 Then
strFindStr = cmb.Text.Substring(0, cmb.SelectionStart - 1)
End If
End If
e.Handled = False
Else
If (cmb.SelectionLength = 0) Then
strFindStr = cmb.Text + e.KeyChar
Else
If (cmb.SelectionStart = cmb.Text.Length) Then
strFindStr = e.KeyChar
Else
If cmb.SelectionStart 0 Then
strFindStr = cmb.Text.Substring(0, cmb.SelectionStart - 1) + e.KeyChar
Else
strFindStr = e.KeyChar
End If
End If
End If
End If
Dim intIdx As Integer = -1
Dim dv As DataView
If TypeOf (cmb.DataSource) Is DataTable Then
dv = CType(cmb.DataSource, DataTable).DefaultView
If strFindStr "" Then
dv.RowFilter = cmb.DisplayMember " Like '%" strFindStr "%'"
Else
dv.RowFilter = ""
End If
cmb.DataSource = dv
cmb.SelectedIndex = -1
cmb.Text = strFindStr
Else
dv = CType(cmb.DataSource, DataView)
If strFindStr "" Then
dv.RowFilter = cmb.DisplayMember " Like '%" strFindStr "%'"
Else
dv.RowFilter = ""
End If
cmb.DataSource = dv
cmb.SelectedIndex = -1
cmb.Text = strFindStr
End If
cmb.SelectionStart = strFindStr.Length
e.Handled = True
End Sub
Private Sub comboBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles comboBox1.KeyPress
AutoComplete(sender, e)
End Sub
没有这种函数，自己做一个函数，效率不会低，因为都是简单运算：
Function FillString(ByVal a As String, ByVal b As String, ByVal c As Integer) As String
If a.Length c Then
Return a + StrDup(c - a.Length, b)
Else
Return Mid(a, 1, c)
End If
End Function
有甚多办法，我说个最简单的
dim xstr as string = "abcde"
Xstr = "(" xstr ")"
Private Function xxx(ByVal str As String)
str = Replace(str, vbTab, "")'替换tab
str = Replace(str, " ", "")'替换空格
str = Replace(str, " ", "")'替换全角空格，如果不好用，可能是百度转换过了，你自己打一个全角空格作为第二个参数
xxx = str
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = xxx(TextBox1.Text)
End Sub
---------------------------------
replace(要进行替换的字符串，查找的字符串，被替换成的字符串)
例：
replace("abcd","bc","123")
过程：
将"abcd"中的"bc"，全部替换成"123"
结果："a123d"