CUCEKO.NET ▌ 83/1 PK FARM SERVER ▌ FULL İTEM BAŞLANGIÇ ▌ OFFICIAL: 29.03.2024 / SAAT 22:000
Cuceko
Cuceko

Visual Basic 6 Metin İçerisinde Kelime Arattırma

  •         

            

            

            

            

  • HyperFilter | DoS Protection | DDoS Protection | DoS Mitigation | DDoS Mitigation | AntiDoS | AntiDDoS | Proxy Shielding
V Çevrimdışı

VaLe

Kayıtlı Üye
3 Mayıs 2012
243
1
18
28
Resim //







Formunuza 1 Adet Button Ekleyin;



Kod:
ArananKelime = InputBox("Metin içinde aradığınız kelimeyi giriniz:", bul, ArananKelime)

 'Aranacak kelimeyi soruyoruz..

 AramayaBasla = metin.SelStart + metin.SelLength

 'Aramayı metin içersinde işaretçinin bulunduğu karakterden başlatacağız..

 If AramayaBasla = 0 Or AramayaBasla = Len(Text1.Text) Then AramayaBasla = 1

 'Eğer işaretçi sonda veya başta ise aramayı bütün metin içerisinde yapacağız..

 KelimeninYeri = InStr(AramayaBasla, Text1.Text, ArananKelime, vbTextCompare)

 'instr ile kelimenin metin içerisinde başladığı yeri alacağız..

 If KelimeninYeri = 0 Then

 MsgBox "Metin içinde böyle bir kelime yok"

 Else

 Text1.SetFocus

Text1.SelStart = KelimeninYeri - 1

Text1.SelLength = Len(ArananKelime)

 'Aranan kelimeyi seçtireceğiz..

 End If
 
D Çevrimdışı

doremifa

Kayıtlı Üye
14 Şubat 2014
116
0
16
93
Cevap: Visual Basic 6 Metin İçerisinde Kelime Arattırma



teşekkürler