یه سوال ساده درباره تکست باکس

[fazelm]

باسلام
چگونه می توان خط اول یه تکست باکس که مولتی لاین هست و حدود 100 خط هست رو حذف کرد ؟؟

نکته : فقط خط اول

با تشکر

[fazelm]

خیلییییییییییییییییی ضروریه

لطفا کمک کنید

[ACorvinus]

سلام.

اگه روش دیگه ای بهتر از این بود امیدوارم بچه ها بگن منم یاد بگیرم.



If String.IsNullOrEmpty(TextBox.Text) = False AndAlso TextBox.Multiline = True Then
Dim Str() As String = TextBox.Text.Split(vbCrLf)
If TextBox.Text.Length > Str(0).Length + 1 Then
TextBox.Text = TextBox.Text.Remove(0, Str(0).Length + 1)
Else
TextBox.Text = TextBox.Text.Remove(0, Str(0).Length)
End If
End If



موفق باشی.

[ACorvinus]

ببخشید.

برای اینکه کد بالارو امتحان کنی کد رو در Click یه Button بنویس و اجراش کن.

[ACorvinus]

سلام برادر.

آقا این کدی که الان میخوام بگم، هزینه اش از کد بالا خیلی کمتره، بهتره از این استفاده کنین:


If String.IsNullOrEmpty(TextBox1.Text) = False AndAlso TextBox1.Multiline = True Then
If TextBox1.GetFirstCharIndexFromLine(1) <> -1 Then
TextBox1.Text = TextBox1.Text.Remove(0, TextBox1.GetFirstCharIndexFromLine(1))
Else
TextBox1.Text = TextBox1.Text.Remove(0)
End If
End If

و کد پایین از بالایی هم بهتره:


If TextBox1.Lines.Length >= 1 Then
If TextBox1.GetFirstCharIndexFromLine(1) <> -1 Then
TextBox1.Text = TextBox1.Text.Remove(0, TextBox1.GetFirstCharIndexFromLine(1))
Else
TextBox1.Text = TextBox1.Text.Remove(0)
End If
End If


بازم اگه کدی بود که کم هزینه تر از این کد باشه لطفا بچه ها بهش اشاره کنن.
موفق باشی.