2013-08-17 18 views
0

我的程序中出現錯誤。「LTrim」的參數過多

太多參數到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 

幫助表示讚賞。我無法找到解決方法。

回答

3

我真的建議你刪除舊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和財產string.Length

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 
+0

嗨,先生史蒂夫, 感謝您的回覆,閱讀您所說的功能。 – iGNRev

1

那麼,正如它說的,你有更多的參數比預期。

因此改變

LTrim(fortrim, 3) 

LTrim(fortrim) 

您還可以縮短這個代碼爲類似

TextBox2.Text = LTrim(TextBox1.Text) 
+0

嗨Sir astande r, 感謝您的回覆, 錯誤不會出現,當我刪除「3」,但即時通訊試圖獲得我的文本框上的字符串的最後3個字符text1.text – iGNRev

+0

謝謝您的答覆先生..瞭解意義的錯誤。 – iGNRev

+0

@iGNRev - 如果你想獲取字符串的最後三個字符,那麼你不需要任何'Trim'功能 - 那些功能 - 刪除空白。你會想看看'String.Substring()' – Tim