TextBox a Girilen Yazıyı Tersten Yazdırma

Formunuza 1 adet Label, Textbox ve Button ekleyin. Textbox a girilecek text i tersten yazdıracağız. Aşağıdaki şekili inceleyiniz.

Şekil 1

Public Class Form1
    Dim degistir As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim TerstenYazdirma As String
        Dim Say As Integer

baslangic:
        degistir = degistir + 1
        If Len(TextBox1.Text) = 0 Then
            MsgBox("Lütfen Yazı Giriniz...")
            degistir = 0
            Exit Sub
        End If

        Select Case degistir
            Case 1
                For Say = 0 To Len(TextBox1.Text) - 1
                    TerstenYazdirma = TerstenYazdirma + Mid(TextBox1.Text, Len(TextBox1.Text) - Say, 1)

                Next
                Label1.Text = TerstenYazdirma
                Button1.Text = "Normal Yazdır"

            Case 2
                Label1.Text = TextBox1.Text

                Button1.Text = "Tersten Yazdır"

            Case Is > 2
                degistir = 0
                GoTo baslangic

        End Select

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Ters-Düz Yazdırma"
        Me.MaximizeBox = False
        Me.Width = 180
        Me.Height = 144
        Me.Left = 300
        Me.Top = 180
        Label1.Text = "Girilen Yazıyı Tersten Yazdırma"
        Button1.Text = "Tersten Yazdır"
        Button1.Size = New System.Drawing.Size(150, 30)
        TextBox1.Size = New System.Drawing.Size(150, 30)
    End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır