Anasayfa > Kodlar > VB.NET ile yazıyı çarpraz yazdırmak

VB.NET ile yazıyı çarpraz yazdırmak


Formumuza 1 adet buton 2 adet textbox ekliyorux.Textbox2'nin multline özelliğini etkin hale getiriyoruz ve kodlarımızı yazıyoruz

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim yazi() As Char = TextBox1.Text.ToCharArray
Dim i As Integer
Dim a As Integer
Dim bosluk As String
TextBox2.Text = ""
For i = 0 To yazi.GetUpperBound(0)
For a = 0 To i * 1
bosluk &= " "
Next
TextBox2.Text &= bosluk + yazi(i) & vbCrLf
bosluk = ""
Next
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: