Olay Oluşturmak - Örnek Algoritma

Visual Basic'te yeni bir Olay oluşturmak da eğlencelidir. Örneğin Form1'e yeni bir Olay ekleyelim.

    'Design'de Giriş adlı TextBox eklenecek.
    Public Event RakamGirildi(ByVal Rakam As Byte)
    'Artık Form1'in RakamGirildi adlı yeni bir Olay'ı var.

    Private Sub Giriş_TextChanged(sender As Object, e As EventArgs) Handles Giriş.TextChanged
        'Giriş metni sadece rakamsa RakamGirildi olayını oluşturuyoruz.
        If Giriş.Text Like "[0-9]" Then RaiseEvent RakamGirildi(Giriş.Text)
        'Elbette aynı şekilde başka TextBox'larda da bu olay oluşturulabilir.
    End Sub

    Private Sub Form1_RakamGirildi(Rakam As Byte) Handles Me.RakamGirildi
        'İşte Olayın  prosedürü
        'Olay oluştuğunda yapılacaklar....
        'Örneğin bir mesaj kutusu göstermek.
        MsgBox(CStr(Rakam) & " tercih edildi")
    End Sub

Visual Basic.Net 2013 ile uyumludur.

Elbette Olay özellikle yeni bir Araç'a eklenirken gerçekten kullanışlı oluyor. Biraz daha karmaşık bir Olay yaratma yöntemi SudokuÇözer'de var. Burada Bölüm adlı Araç'a yazılmıştır.