ความคิดเห็นที่ 1         If Label4.Text.Length = 0 Then Exit Sub         Dim idx As Integer = Label4.Text.LastIndexOf(vbCrLf, Label4.Text.Length - 2) + 2         If idx = 1 Then             Label4.Text = ""         Else             Label4.Text = Label4.Text.Remove(idx)         End If จากคุณ : caznov - [ 27 ธ.ค. 50 21:39:59 ] Confirmed by : nemo1112

ความคิดเห็นที่ 2 If Label1.Text <> "" Then Dim sfile() As String = Label1.Text.Split(vbCrLf) Label1.Text = "" Dim ss As Integer = Label1.Text.Length Dim arr As New ArrayList For Each s As String In sfile If s.Trim().Length <> 0 Then arr.Add(s) End If Next arr.RemoveAt(arr.Count - 1) For Each s As String In arr Label1.Text &= s.Trim() & vbCrLf Next End If จากคุณ : chalee23@hotmail.com - [ 28 ธ.ค. 50 00:12:57 A:192.168.0.16 X:124.120.51.178 ]

ความคิดเห็นที่ 3 ขอบคุณมากครับ ได้ลองทำตามแล้ว work! ครับ ขอบคุณมากๆ จากคุณ : nemo1112 - [ 2 ม.ค. 51 03:36:48 ]