Kullanıcının text1e yazmış olduğu yazılardan istediği kelimeyi bulması için
Kod:
[FONT=Verdana]option explicit
dim aranan poz as integer
private sub commandBul_click()
ara1
end sub
sub ara (baslangıc as integer)
dim poz as isnteger, aranacak as string
aranacak=textaranacak.text
poz= ınstr(baslangic,textmetin.text,aranacak)
if poz>0 then
arananpoz=poz
textmetin.selstart 'seçime başlarken kullanılır
textmetin.sellength= len (aranacak) 'secim uzunlugudur
textmetin.setfocus ' imleci sabitlemek içindir
else
msgbox ("aranan kelime bulunamadı")
end if
end sub [/FONT]
