Form1 görüntüsü
Form2 görüntüsü
Form1′ye yazılacak kodlar :
Public Class Form1 'Daha fazla bilgi için : www.gorselprogramlama.com Public kelime As String Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click Form2.Show() kelime = TextBox1.Text End Sub End Class
Form2′ye yazılacak kodlar :
Public Class Form2
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim donen As Integer
donen = Form1.kelime.IndexOf(TextBox1.Text)
If (donen <> -1) Then
ListBox1.Items.Add(Form1.kelime(donen))
Else
MessageBox.Show("Girdiğini harf kelime için yok")
End If
End Sub
End Class
İlk gelen formda textbox’a kelime giriyoruz.Form2 aç tıklıyoruz.
İkinci ekrana gelen formda textbox’a harf ekleyip Tamam diyoruz.textbox’a yazdığımız harf girdiğimiz kelime içinde varsa harfi listbox’a ekliyor yoksa mesaj kutusunda girdiğiniz harf kelime içinde yok yazıyor.
