Başlangıç > 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


Reklamlar
  1. 07/05/2017, 22:21

    değiştir nerde

    Beğen

  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: