Tags-Etiketler
Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...
[ ters ] /
Makaleler-Article(s)
ters ile ilgili toplam 1 makale bulundu ! (A total of 1 article(s) about ters was(were) found in all of articles!)
| Article |
|---|
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.
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 |
|
Sitede yayınlanan makaleleri
Blog sitemizden de takip edebilirsiniz.
Sitemizdeki makaleleri RSS olarak takip edebilirsiniz.