برعکس کردن متن داخل لیبل

[طاها 480]

سلام دوستان. چطوری میشه متن داخل لیبل رو برعکس کرد؟ مثلا "سلام" بشه "مالس"

[m007moh 181]

سلام

بفرما داداش

Dim st As String="salam"
	Dim ax As String
	For i=st.Length-1 To 0 Step-1
	ax=ax&(st.SubString2(i,i+1))
	Next
	Msgbox(ax,"")

[mehran3d 75]

فک کنم باید از حلفه for down to استفاده کرد
از down to استفاده نکردم اما همچین چیزی میشه:

Dim s as string=lbl.text 'reshteye shoma
Lbl.text=""
For i=s.size-1 down to 0
Lbl.text=lbl.text&s(i)
End for

شرمنده با گوشی نوشتم اما حدودی باید اینکارو کنی

[mazanneh 17]

سلام دوستان. چطوری میشه متن داخل لیبل رو برعکس کرد؟ مثلا "سلام" بشه "مالس"

	Dim values() As String
	values=Regex.Split(" ",Label1.Text)
	Label1.Text=""
	For i=0 To values.Length-1
		Dim s As String
			For j=0 To values(i).Length-1
				Dim n As Int
				n=values(i).Length-1-j
				If j=0 Then
					s=values(i).SubString(values(i).Length-1)
				Else
					s=s&values(i).SubString2(n,n+1)
				End If
			Next
		Label1.Text=Label1.Text&" "&s
	Next