VB For Örnekleri V-VI
ÖRNEK 5:
Aşağıdaki Form’da başlangıç ve bitiş değerleri girilir. Aşağı Doğru Say düğmesine tıklandığında bitiş değerinden başlangıç değerine doğru, birer azalarak, sayılar 000 yazan Label’da 1 saniye gecikme ile gösterilir. Aşağı Doğru Say düğmesine tıklandığında başlangıç değerinden bitiş değerine doğru, birer artarak, sayılar 000 yazan Label’da 1 saniye gecikme ile gösterilir. Çıkış düğmesine tıklandığında form kapatılır.
Public Class Form1
Private Sub cikis_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cikis.Click
Me.Close() ‘ Form penceresini kapatır
End Sub
Private Sub asagi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles asagi.Click
Dim a, b, i As Integer
a = baslangic.Text
b = bitis.Text
For i = b To a Step -1
say.Refresh() ‘ say Label’ini tazeler
System.Threading.Thread.Sleep(1000) ‘ 1 sn lik gecikme saplar
say.Text = i ‘ i değerini her döngü adımında say Label’inda gösterir.
Next
End Sub
Private Sub yukari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yukari.Click
Dim a, b, i As Integer
a = baslangic.Text
b = bitis.Text
For i = a To b Step 1
say.Refresh()
System.Threading.Thread.Sleep(1000)
say.Text = i
Next
End Sub
End Class
__________________________________
ÖRNEK 6:
Ekle düğmesine tıklandığında girilen metinden, girilen sayı kadar, alttaki listbox’a ekler.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 1 To Val(TextBox2.Text)
ListBox1.Items.Add(TextBox1.Text)
Next
End Sub
End Class
__________________________________
ÖRNEK 7:
Renk aktarımı : Formda sağ tarafta bulunan seçeneklerden seçili olan nesne, yine alt tarafta bulunan renklerden seçili olan renge boyanır. Renkleri Sıfırla düğmesi, bütün nesnelerin renklerinin ilk görünümdeki renklere dönmesini sağlar.
Public Class Form1
Private Sub mavi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mavi.Click
If baslik.Checked = True Then
Label1.ForeColor = Color.Turquoise
ElseIf metin.Checked = True Then
TextBox1.BackColor = Color.Turquoise
ElseIf buton.Checked = True Then
Button1.BackColor = Color.Turquoise
Else : Me.BackColor = Color.Turquoise
End If
End Sub
Private Sub mor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mor.Click
If baslik.Checked = True Then
Label1.ForeColor = Color.MediumPurple
ElseIf metin.Checked = True Then
TextBox1.BackColor = Color.MediumPurple
ElseIf buton.Checked = True Then
Button1.BackColor = Color.MediumPurple
Else : Me.BackColor = Color.MediumPurple
End If
End Sub
Private Sub pembe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pembe.Click
If baslik.Checked = True Then
Label1.ForeColor = Color.HotPink
ElseIf metin.Checked = True Then
TextBox1.BackColor = Color.HotPink
ElseIf buton.Checked = True Then
Button1.BackColor = Color.HotPink
Else : Me.BackColor = Color.HotPink
End If
End Sub
Private Sub gri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gri.Click
If baslik.Checked = True Then
Label1.ForeColor = Color.DimGray
ElseIf metin.Checked = True Then
TextBox1.BackColor = Color.DimGray
ElseIf buton.Checked = True Then
Button1.BackColor = Color.DimGray
Else : Me.BackColor = Color.DimGray
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.ForeColor = Color.Black
TextBox1.BackColor = Color.White
Button1.BackColor = Color.WhiteSmoke
Me.BackColor = Color.WhiteSmoke
End Sub
End Class
