Слишком много аргументов для `LTrim`

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 

EDIT: Вместо (если смотреть на ваш комментарий в другой ответ), если вы хотите извлечь последние 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 

Answer 2

Ну, как говорится, у вас больше аргументов, чем ожидалось.

Меняем

LTrim(fortrim, 3) 

в

LTrim(fortrim) 

Вы также могли бы сократить этот код на что-то вроде

TextBox2.Text = LTrim(TextBox1.Text)