Anasayfa > Kodlar > Visual Basic 6 ile Word’deki bul ve değiştir

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


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: