Visual Basic 6 ile Word’deki bul ve değiştir
Kullanıcının text1e yazmış olduğu yazılardan istediği kelimeyi bulması için. |
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
Kategoriler:Kodlar
hazır, ile, kod, kodu, nasıl, Programlama, sorunu, vb, vb.net, vb6, visual basic, visual basic 6, Visual Basic.Net, Word'deki bul ve değiştir
değiştir nerde
BeğenBeğen