Text Flip [TuT]

[SouR'D]

Ok Many people has been asking for this source so i decided to share.

Ok so Lets Begin.

1.First of you Will Need Two Text Boxes.

2. Under Public Class Form1 paste this code

Code:

Dim X As String = "¿/˙'\‾¡zʎxʍʌnʇsɹbdouɯlʞɾıɥƃɟǝpɔqɐ", _
    V As String = "?\.,/_!zyxwvutsrqponmlkjihgfedcba"

3. Now Double Click On Textbox1 and enter this code

Code:

Dim str As String, Newstr As String = Nothing
        str = TextBox1.Text
        For Each StrText As String In str
            Select Case True
                Case StrText = "b"
                    StrText = "p"
                Case StrText = "p"
                    StrText = "b"
                Case StrText = "q"
                    StrText = "d"
                Case StrText = "d"
                    StrText = "q"
                Case StrText = "u"
                    StrText = "n"
                Case True
                    For I = 0 To X.Length - 1
                        StrText = StrText.Replace(V.ElementAt(I), _
                        X.ElementAt(I))
                    Next
            End Select
            Newstr &= StrText
        Next
        TextBox2.Text = Newstr
        TextBox2.Text = StrReverse(TextBox2.Text)

* Note: YOu do not Need any buttons for this Only Textboxes (Unless you would like to Put this In your Project you can do anything You want with the Source)
* Make Sure You give Credits To me If you do use this.
* If you so happen Not to Get The source I posted Above you can just copy and paste this Into or as I should say Onto your Project.

Code:

'Give Credits To SouR'D If you use this'
    'emillionforum.com use SouR'D As Referrer


    Public Class Form1
    Dim X As String = "¿/˙'\‾¡zʎxʍʌnʇsɹbdouɯlʞɾıɥƃɟǝpɔqɐ", _
    V As String = "?\.,/_!zyxwvutsrqponmlkjihgfedcba"

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    Dim str As String, Newstr As String = Nothing
    str = TextBox1.Text
    For Each StrText As String In str
    Select Case True
    Case StrText = "b"
    StrText = "p"
    Case StrText = "p"
    StrText = "b"
    Case StrText = "q"
    StrText = "d"
    Case StrText = "d"
    StrText = "q"
    Case StrText = "u"
    StrText = "n"
    Case True
    For I = 0 To X.Length - 1
    StrText = StrText.Replace(V.ElementAt(I), _
    X.ElementAt(I))
    Next
    End Select
    Newstr &= StrText
    Next
    TextBox2.Text = Newstr
    TextBox2.Text = StrReverse(TextBox2.Text)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    End Class

[UGP Josh]

nice:) ima go try it in a bit, ill get back to you on this:)