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. ...