SaidJan
پنج شنبه 11 اردیبهشت 1393, 19:31 عصر
سلام
میخوام داخل visual basic چندتا کلمه داخل یک RichTexbtBox رو Sort کنم(هرکلمه در یک خط هست) و توی مسج باکس نشون بدم. خودم این رو نوشتم ولی میدونم یه جاییش اشتباهه و کار نمیکنه.
طرز قرار دادن textBox رو توی array هم انجام دادم. راه ساده تر چی هست؟
ممنون میشم کمک کنید
Dim sll As List(Of String)
If CheckBox1.Checked Then
Clipboard.SetText(TextBox1.Text)
RichTextBox1.AppendText(Clipboard.GetText() + vbNewLine)
Dim i, temp As Integer
Dim pss As Integer
Dim exx As Boolean
sll.Add(TextBox1.Text)
pss = 1
exx = True
sll.Sort()
While (pss < sll.Count And exx = True)
exx = False
For i = 0 To sll.Count - pss
If sll[i] > sll[i+1] Then
temp = sll.
sll[i]=sll[i+a]
sll[i+1]=temp
exx = True
pss = pss + 1
End If
Next
End While
میخوام داخل visual basic چندتا کلمه داخل یک RichTexbtBox رو Sort کنم(هرکلمه در یک خط هست) و توی مسج باکس نشون بدم. خودم این رو نوشتم ولی میدونم یه جاییش اشتباهه و کار نمیکنه.
طرز قرار دادن textBox رو توی array هم انجام دادم. راه ساده تر چی هست؟
ممنون میشم کمک کنید
Dim sll As List(Of String)
If CheckBox1.Checked Then
Clipboard.SetText(TextBox1.Text)
RichTextBox1.AppendText(Clipboard.GetText() + vbNewLine)
Dim i, temp As Integer
Dim pss As Integer
Dim exx As Boolean
sll.Add(TextBox1.Text)
pss = 1
exx = True
sll.Sort()
While (pss < sll.Count And exx = True)
exx = False
For i = 0 To sll.Count - pss
If sll[i] > sll[i+1] Then
temp = sll.
sll[i]=sll[i+a]
sll[i+1]=temp
exx = True
pss = pss + 1
End If
Next
End While