Öncelikle yeni bir proje oluşturalım. Projemize 1 TextBox ekleyelim ve 2 buton.
TextBox'un Multuline özelliği var sağ tarafta properties kısmında oraya tıklayalım. Onu True yapalım çünkü alt satırlarımızda olacak tek satırda kalmayacağız. Ve alttaki resimdeki gibi ayarlarım tasarımımızı
[ resmi görüntülemek için tıklayın ]
Tasarımımızı bu şekilde hazırladıktan sonra, formumuza çift tıklayıp şu kodu ekliyoruz.
Kod: Tümünü seç
Dim tforum As Integer
For tforum = 32 To 255
TextBox1.Text = TextBox1.Text + " " & tforum & ":" & Chr(tforum) & Space(3)
Next
sonra alt kısımda isim yeri var.
Form2.vb diye orayı Hakkinda.vb şeklinde yapalım. Eklendi sonra tekrar Form1'i seçiyoruz ve Hakkında butonuna çift tıklıyoruz. Şu kodları ekliyoruz.
Kod: Tümünü seç
Hakkinda.Show()
Şimdi çıkış butonuna gelelim. Çıkış butonuna çift tıklıyoruz. Ve şu kodları yazıyoruz.
Kod: Tümünü seç
Me.Close()
[ resmi görüntülemek için tıklayın ]