Merhaba arkadaşlar simdi sizlere kolay bir program sunucam kodlama ve anlatım bana aittir ve sorunsuz çalışıyor.
Programın amacı yazdığınız metinde istediğiniz kelimeyi arayıp bulması
ilk önce bir form oluşturuyoruz daha sonra formumuzun üst kısmına 1 adet Textbox ekliyoruz.
Eklediğimiz Textbox büyük olursa iyi olur çünkü metnimizi buraya yazıcaz.Daha sonra biraz boşluk bıraktıktan sonra altına bir adet daha Textbox ekliyoruz,sağ ya da sol tarafına VScrollbar ekliyoruz ve 2.Textbox'ın altına da bir adet command1 butonu ekliyoruz.
Text1'in adı:Metninizi Buraya Yazın
Text2'nin adı:Aranacak Kelime
command1'in adı:Kelime Ara
olarak değiştirin ve form kısmına şu kodları ekleyin
Not:kodlama bana aittir işinize yaradıysa bir teşekkür etmeyi çok görmeyin...
Programın amacı yazdığınız metinde istediğiniz kelimeyi arayıp bulması
ilk önce bir form oluşturuyoruz daha sonra formumuzun üst kısmına 1 adet Textbox ekliyoruz.
Eklediğimiz Textbox büyük olursa iyi olur çünkü metnimizi buraya yazıcaz.Daha sonra biraz boşluk bıraktıktan sonra altına bir adet daha Textbox ekliyoruz,sağ ya da sol tarafına VScrollbar ekliyoruz ve 2.Textbox'ın altına da bir adet command1 butonu ekliyoruz.
Text1'in adı:Metninizi Buraya Yazın
Text2'nin adı:Aranacak Kelime
command1'in adı:Kelime Ara
olarak değiştirin ve form kısmına şu kodları ekleyin
PHP:
Option Explicit
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer
Private Sub Command1_Click()
On Error GoTo hata
ArananKelime = Text2 'text2 içindeki kelimeyi arayacağız
AramayaBasla = Text1.SelStart + Text1.SelLength 'arama yapılacak metin uzunluğunda arama yapacağız
If AramayaBasla = 0 Or AramayaBasla = Len(Text1.Text) Then AramayaBasla = 1 'aranan kelime bulunmazsa başa döneceğiz
KelimeninYeri = InStr(AramayaBasla, Text1.Text, ArananKelime, vbTextCompare)
Text1.SetFocus 'kelime bulunduğunda işaretliyoruz
Text1.SelStart = KelimeninYeri - 1
Text1.SelLength = Len(ArananKelime)
Exit Sub
hata: 'arama metni sonuna geldiğimizde baştan bir daha başlıyoruz
Text1.SelStart = 1
End SubNot:kodlama bana aittir işinize yaradıysa bir teşekkür etmeyi çok görmeyin...
Son düzenleme:
