0

プログラムでエラーが発生します。

への引数が多すぎます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

助けていただければ幸いです。回避策が見つかりません。

4

2 に答える 2

4

古い 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
于 2013-08-17T09:09:35.323 に答える
2

それが述べているように、予想よりも多くの議論があります。

だから変える

LTrim(fortrim, 3)

に

LTrim(fortrim)

このコードを次のように短縮することもできます

TextBox2.Text = LTrim(TextBox1.Text)
于 2013-08-17T09:06:41.337 に答える