Şekil 1
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim str As String = "Merhaba Dünya. Bahadır Şahin"
Dim sonuc As String
Dim i, j As Integer
For i = 1 To str.Length Step 1
'InStr metodu ile string içerisinde girdiğimiz karakteri aratıyoruz.
'1. karakterden itibaren arama yapılıyor.
'sonuc = InStr(1, str, "a")
sonuc = InStr(i, str, "a")
ListBox1.Items.Add(sonuc)
Next
'Listbox ta tekrarlanan satırları siliyoruz.
ListBox1.Refresh()
Dim indeks As Integer
Dim sayi As Integer = ListBox1.Items.Count
If sayi > 1 Then
Dim sonitem As String = ListBox1.Items(sayi - 1)
For indeks = sayi - 2 To 0 Step -1
If ListBox1.Items(indeks) = sonitem Then
ListBox1.Items.RemoveAt(indeks)
Else
sonitem = ListBox1.Items(indeks)
End If
Next
End If
End Sub
End Class
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN
0 comments:
Yorum Gönder