AccessTr.neT

Tam Versiyon: bul ve değiştir
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
slm,
visual basicte bul ve değiştir nasıl yapabilirim,
bir metinde kelimeyi arayop bulacak istenirsede değiştirilecek,
Vbnet kullandığım için Vbnet ile hazırlanmıştır.


Bu işlem için öncelikle projemize 1 form, 3 TextBox, 1 Button ve 3 adet Label ekliyoruz.

TextBox1=txtaranacak
TextBox2=txtaranan
TextBox3=txtyeni olarak adlandırıyoruz.
Label isimlerini istediğiniz gibi adlandırabilirsiniz.

Sonrasında ise Botton1'in Tıklandığında olayına aşağıdaki kodu yazıyoruz.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim accesstrnet, blackeagle As String
accesstrnet = Me.txtaranan.Text
blackeagle = Me.txtyeni.Text
txtaranacak.Text = txtaranacak.Text.Insert(txtaranacak.Text.IndexOf(txtaranan.Text), txtyeni.Text)
txtaranacak.Text = txtaranacak.Text.Remove(txtaranacak.Text.IndexOf(txtaranan.Text), txtaranan.Text.Length)
MsgBox("Aradığınız: " & accesstrnet & " kelimesi " & blackeagle & " ile değişti.", MsgBoxStyle.Exclamation, "TEBRİKLER")
End Sub
teşekkürler blackeagglee...
Rica ederim.Sorununuzun çözüldüğüne sevindim.