View Full Version : یه سوال ساده درباره تکست باکس
fazelm
سه شنبه 06 بهمن 1388, 20:07 عصر
باسلام
چگونه می توان خط اول یه تکست باکس که مولتی لاین هست و حدود 100 خط هست رو حذف کرد ؟؟
نکته : فقط خط اول
با تشکر
fazelm
سه شنبه 06 بهمن 1388, 20:46 عصر
خیلییییییییییییییییی ضروریه
لطفا کمک کنید
ACorvinus
سه شنبه 06 بهمن 1388, 20:58 عصر
سلام.
اگه روش دیگه ای بهتر از این بود امیدوارم بچه ها بگن منم یاد بگیرم.
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
سه شنبه 06 بهمن 1388, 20:59 عصر
ببخشید.
برای اینکه کد بالارو امتحان کنی کد رو در Click یه Button بنویس و اجراش کن.
ACorvinus
سه شنبه 06 بهمن 1388, 21:14 عصر
سلام برادر.
آقا این کدی که الان میخوام بگم، هزینه اش از کد بالا خیلی کمتره، بهتره از این استفاده کنین:
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
بازم اگه کدی بود که کم هزینه تر از این کد باشه لطفا بچه ها بهش اشاره کنن.
موفق باشی.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.