Örneğimizde combobox içerisine değer ekleme ve silme olaylarını yapacağım.

Combobox içerisine değer eklemek için :

ComboBox1.Items.Add(değer)

Public Class

Form1  

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

MsgBox(ComboBox1.SelectedItem) 

End Sub 

Combobox içerisinden değer silmek için :

ComboBox1.Items.Remove(değer)

Combobox içerisindeki tüm değerleri silmek için  ise:

ComboBox1.Items.Clear()

metodları kullanılır.

Örneğimiz için form üzerine cmdekle, cmdsil, cmdTumunuSil, cmdYavasEkle, cmdYavasSil adlı 5 adet buton, bir adet combobox, tmrekle ve tmrsil adlı 2 adet timer ekliyoruz. Kodumuz aşağıdaki gibi olacak:

Private Sub cmdekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdekle.Click  

Dim i As Byte 

For i = 0 To 100  

If i Mod 2 = 0 Then

ComboBox1.Items.Add(i) 

End If 

Next i

ComboBox1.SelectedIndex = 0 

End Sub 

Private Sub cmdsil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsil.Click

ComboBox1.Items.Remove(ComboBox1.SelectedItem) 

End Sub 

Private Sub cmdTumunuSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTumunuSil.Click

ComboBox1.Items.Clear()

ComboBox1.Text =""

End Sub 

Private Sub cmdYavasEkle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdYavasEkle.Click

tmrekle.Enabled =True

tmrsil.Enabled =False 

End Sub 

Private Sub cmdYavasSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdYavasSil.Click

tmrsil.Enabled =True

tmrekle.Enabled =False 

End Sub 

Private Sub tmrekle_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrekle.Tick  

Static i As Byte

i = i + 1

ComboBox1.Items.Add(i) 

If i = 100 Then

tmrekle.Enabled =False 

End If 

End Sub 

Private Sub tmrsil_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrsil.Tick  

Static i As Byte

i = i + 1

ComboBox1.Items.Remove(i) 

If i = 100 Then

tmrsil.Enabled =False 

End If

End Sub

End Class 

Proje dosyamızın linki :

http://www.volkanaktas.com/PrgDosya/vbnet/combobox_olaylari.rar

Bir WPF Uygulaması oluşturabilmek için Proje tipi olarak Visual Basic /Windows/WPF Application proje şablonunu seçiyoruz.

Örneğimiz için form üzerine toolbox’dan bir buton nesnesi ekliyoruz. Eklediğimiz butonun ismini “cmdyenipencere”, üzerindeki yazıyı da “Yeni pencere” olarak değiştiriyoruz. Bu işlemi kod yazmadan değiştirmek için properties penceresinden name ve text özelliklerini kullanabileceğimiz gibi XAML kod penceresinden kod yazarak da değiştirebiliriz. Butonumuzun XAML kodu şu şekilde:

<Button Height="23" Margin="88,0,115,62" Name="cmdyenipencere" VerticalAlignment="Bottom">Yeni Pencere</Button>

VB.NET kodu da şu şekilde olacak:

Class Window1

    Private Sub cmdyenipencere_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles cmdyenipencere.Click

        Dim pencere As New Window

        pencere.Width = 300

        pencere.Height = 200

        pencere.Title = "Yeni Pencere"

        pencere.Show()

    End Sub

End Class

Project menüsünden Add Window diyerek yeni pencere eklemek de mümkündür. Ana penceremiz içerisine bir buton ekleyerek şu kodu yazalım:

Class Window1

    Private Sub cmdyenipencere_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles cmdyenipencere.Click

        Dim yenipencere As New Window2

        yenipencere.Show()

    End Sub

End Class

Form üzerine aşağıdaki resimde görülen kontrolleri ekleyelim:

Bu kontroller 2 adet picturebox, bir adet command button, bir adet HScrollBar nesnesi, bir adet LineShape nesnesi ve iki adet de timer nesnesidir.

Ancak LineShape nesnesi normalde toolbox içerisinde mevcut olmadığından kullanamazsınız. Bunu kullanabilmek için Visual Basic Power Packs paketini yüklemeniz gerekiyor. Bunu

http://www.microsoft.com/downloads/details.aspx?FamilyId=371368A8-7FDC-441F-8E7D-FE78D96D4063&displaylang=en

adresinden indirebilirsiniz.

Kodumuz aşağıdaki gibi olacak:

Public

Dim f, g As Int32

Private Sub cmdbasla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbasla.Click

PictureBox1.Top = 29

PictureBox1.Left = 12

PictureBox2.Top = 135

PictureBox2.Left = 12

Timer1.Enabled = True

Timer2.Enabled = True

Timer1.Interval = HScrollBar1.Value

Timer2.Interval = HScrollBar1.Value

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Randomize()

g = Rnd(10) * 10

PictureBox1.Left = PictureBox1.Left + g

If PictureBox1.Left >= 800 Then

Timer1.Enabled = False

Timer2.Enabled = False

MsgBox("kazanan sar araba")

Exit Sub

End If

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Randomize()

f = Rnd(10) * 10

PictureBox2.Left = PictureBox2.Left + f

If PictureBox2.Left >= 800 Then

Timer1.Enabled = False

Timer2.Enabled = False

MsgBox("kazanan mavi araba")

Exit Sub

End If

End Sub

Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll

Timer1.Interval = HScrollBar1.Value * 10

Timer2.Interval = HScrollBar1.Value * 10

End Sub

End Class

Proje dosyasının linki:

http://www.volkanaktas.com/PrgDosya/vbnet/rastgeleyarisoyunu.rar

Bugünlerde biraz blogumu ihmal ettim maalesef. Bu arada uzun süren bir kitap projem vardı. "VB.NET ve Ofis Uygulamaları" adlı bu kitabımı yazmayı nihayet bitirdim. Şimdi ise bunu bastırabilme uğraşısı içerisindeyim.

Öncelikle yazlılım kulubündeki öğrencilerimizle yaptığımız kodları ekleyerek başlayalım işe:

Örneğimiz form kapatılmaya çalışıldığında bir mesaj penceresi döngüsü içerisinde çıkışı engellemektedir. Kapanma olayı için form closing olayı, çıkışı iptal etmek için ise e.cancel=true, mesaj döngüsünden çıkıp forma geri dönüş için ise exit sub fonksiyonu kullanılır.

Kodumuz aşağıdaki gibi olacak:

Public Class Form1  

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 

 Dim i As Byte 

Dim mesaj

For i = 1 To 5  

If i = 1 Then 

mesaj = MsgBox("Çıkmak istediğinize Emin misiniz?" , MsgBoxStyle.YesNo)

If mesaj = vbNo Then

MsgBox("Aferin. İşte Böyle yola gel" )  

e.Cancel =True

Exit Sub 

 End If

 ElseIf i = 2 Then

mesaj = MsgBox("Gerçekten Çıkmak istiyor musunuz?" , MsgBoxStyle.YesNo)  

If mesaj = vbNo Then 

MsgBox("Aferin. İşte Böyle yola gel" )  

e.Cancel =True

Exit Sub 

End If

 ElseIf i = 3 Then

MsgBox("Emin misiniz?", MsgBoxStyle.YesNo)    

If mesaj = vbNo Then 

MsgBox("Aferin. İşte Böyle yola gel" )

e.Cancel =True

Exit Sub 

End If 

ElseIf i = 4 Then

MsgBox("Hımm. Düşünmem lazım", MsgBoxStyle.YesNo)

 If mesaj = vbNo Then

MsgBox("Aferin. İşte Böyle yola gel")

e.Cancel =True

Exit Sub 

End If 

ElseIf i = 5 Then

MsgBox("Müsait bir zamanımda düşünürüm", MsgBoxStyle.YesNo)

If mesaj = vbNo Then

MsgBox(

Exit Sub 

End If

i = 0 

End If 

Next 

If e.CloseReason = CloseReason.WindowsShutDown Then