[mihaispr]

Hi everyone and thanks for reading my little question!

I have a windows forms application with a button on it.

When I press it it appears me a input box I type RAC and I want that it displays me in a message box (with MsgBox) the reverse of the string in this case: CAR.


Here's the code tried in my button:


In the input box I type RAC and want it to display me when I press ok button the reverse of that string CAR.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		' declaratii variabile

		Dim textOriginal As String
		Dim textFinal As String

		'StrReverse - inverseaza un sir de caractere

		textOriginal = InputBox("RAC")
		If (Len(textOriginal) = 0) Then
			textFinal = StrReverse(textOriginal)
			MsgBox("Inversul este" & textFinal)
		End If

[mihaispr]

Solve it now!

Sorry for my post!

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		' declaratii variabile

		Dim textOriginal As String
		Dim textFinal As String

		'StrReverse - inverseaza un sir de caractere

		textOriginal = InputBox("Acesta e un input box")
		If (Len(textOriginal) <> 0) Then
			textFinal = StrReverse(textOriginal)
			'TextBox1.Text = textFinal
			MsgBox("Inversul este" & textFinal)
		End If

[AmuletOfNight]

			dim indText(len(TextOriginal))
			for x as integer = len(TextOriginal) to 1 step -1
				   indText(x) = mid(TextOriginal, x, 1)
			next
			for x as integer = 1 to len(TextOriginal)
				   textFinal = textFinal + indText(x)
			next
			MsgBox(textFinal)
	 

That should do it, sorry its not in spanish.
Also, the code may produce some small errors- make sure you dim TextOriginal and TextFinal.

This post has been edited by AmuletOfNight: 13 December 2009 - 08:54 AM