رفتن به مطلب
  • 0

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


طاها

سوال

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام

بفرما داداش

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,"")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

فک کنم باید از حلفه 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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

	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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...