Heyz,
Vandaag ga ik julle uitleggen hoe je een text upsider down maakt.
Ik leg alleen het basic gedeelte uit!

Stap 1:
Voeg 2 labels, en 2 textboxen
Label1 naam = Text to Upside Down
Label2 naam = Upsided downed Text
Textbox1 nog niks meeden
textbox2 druk erop en zet read only aan.

Stap2:
Zet ze zo neer
Text to upside down(Label1)) - Textbox1
UpsidedDowned Text (Label2) - Textbox2



Stap 3:
Code's!
Dubbeklik op het form,
Zet onder

Public Class Form1

form1load enz

Dim X As String = "¿/?'\?¡z?x??n?s?bdou?l??i????p?q?", _
    V As String = "?\.,/_!zyxwvutsrqponmlkjihgfedcba"

 
        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)
 

nice tutsssss!

Quote: BoerHans
nice tutsssss!

wil ook een tut maken aleen weet neit waarover....

Geef je ook credits aan de gene van wie je deze tut hebt geleeched?
Nee.


EDIT:

Het is ook nog eens fout man,

Je gaat toch niet:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
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
End Class
End Sub

messletters.nl

Quote: BoerHans
wil ook een tut maken aleen weet neit waarover....

Quote: Vindictive
Geef je ook credits aan de gene van wie je deze tut hebt geleeched?
Nee.


EDIT:

Het is ook nog eens fout man,

Je gaat toch niet:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
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
End Class
End Sub

Dit is zo fout man,

Haal de Private Sub eraf End Sub en End Class.

Wat hier boven staat, zo komt het eruit te zien op jou manier

"Ik leg alleen het basic gedeelte uit!"
Je legt niets uit.

Quote: Kantoor
"Ik leg alleen het basic gedeelte uit!"
Je legt niets uit.

Quote: Kantoor
"Ik leg alleen het basic gedeelte uit!"
Je legt niets uit.