Question

我的程序出错了。

Public Function LTrim(str As String) As String的参数太多。

Dim fortrim As String
Dim trimed As String
fortrim = TextBox1.Text
trimed = LTrim(fortrim, 3)
'                       ^
'               error appears here
TextBox2.Text = trimed

帮助表示赞赏。我找不到解决方法。

Answer 1

我真的建议您删除旧的VB6函数并使用更高级的.NET等效函数。

string.TrimStart
string.TrimEnd
string.Trim

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox2.Text = TextBox1.Text.TrimStart(Nothing)
End Sub

编辑：相反，（在另一个答案中查看您的评论）如果您想从字符串中提取最后3个字符，则使用的方法是string.Substring和属性{ {3}}

 Dim original = TextBox1.Text
 Dim last3 = original
 ' be sure to have at least 3 chars before doing substring math
 If last3.Length > 3 Then
    last3 = original.Substring(original.Length - 3, 3)
 End If
 TextBox2.Text = last3

Answer 2

嗯，正如它所说，你有更多的论据而不是预期。

所以改变

LTrim(fortrim, 3)

到

LTrim(fortrim)

您还可以将此代码缩短为类似

TextBox2.Text = LTrim(TextBox1.Text)

“LTrim”的论据太多了

2 个答案: