Kelime içinde harf Bulma Vb.Net

Kelime içinde harf Bulma Vb.Net

Daha fazla bilgi için : www.gorselprogramlama.com

Form1 görüntüsü

Form2 görüntüsü

 

Form1’ye yazılacak kodlar :

 

[code language=”vbnet”]

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

[/code]

Form2’ye yazılacak kodlar :

 

[code language=”vbnet”]

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  ‘Daha fazla bilgi için : www.gorselprogramlama.com

[/code]

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

 

Daha fazla bilgi için : www.gorselprogramlama.com