HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Bir metin içinde aradığınız bir kelimeyi bulmaya ve o kelimeyi işaretlemeye yarayan örnek bir kod:
'Forma Bul adında bir buton ve Metin adında bir textbox yerleştirin
Option Explicit
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer
Private Sub Bul_Click()
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(Metin.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, Metin.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
Metin.SetFocus
Metin.SelStart = KelimeninYeri - 1
Metin.SelLength = Len(ArananKelime)
'Aranan kelimeyi seçtireceğiz..
End If
End Sub
Bu kadar
işinize yarar inşallah..
'Forma Bul adında bir buton ve Metin adında bir textbox yerleştirin
Option Explicit
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer
Private Sub Bul_Click()
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(Metin.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, Metin.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
Metin.SetFocus
Metin.SelStart = KelimeninYeri - 1
Metin.SelLength = Len(ArananKelime)
'Aranan kelimeyi seçtireceğiz..
End If
End Sub
Bu kadar
işinize yarar inşallah..
Arkadaşlar yeni servermz açlmştır
dost mt2 tr tipi
editsiz emek server
-1 lvl başlangıc 105 s0n
-bk dusurmeli
-1 metinden 4-5 bk çıkar
-45 lvl + metnlerden 1 ruh tası
-tr tipi files
-efsun oranları:
hp:3000
hp üretimi:25
sermeleme yavaslatma:8
şeytan ölümsüz:20
zeka çeiklik güç:15
kritik delici yarı:15
kılıç çiftel bıçak:15
rüzgar şimşek büyü:15
-- silah donusumleri
muho==>sirius
hortlak==>kutsal
silah donusumlerine
-ilk donusum 1 eskrm 2kutsama
--zırh donusumleri
siyah çelik==>mavi çelik
kara büyü==>aura taş
gibidir.
-ilk donusum 3 pul 4 pençe ister
ZEVKLİ BİR OYUN HERKESİ BEKLERİZ
Baskent, ANKARA'da.
facebook fan sayfamız:
oyunumuzun videosu :
dost mt2 tr tipi
editsiz emek server
-1 lvl başlangıc 105 s0n
-bk dusurmeli
-1 metinden 4-5 bk çıkar
-45 lvl + metnlerden 1 ruh tası
-tr tipi files
-efsun oranları:
hp:3000
hp üretimi:25
sermeleme yavaslatma:8
şeytan ölümsüz:20
zeka çeiklik güç:15
kritik delici yarı:15
kılıç çiftel bıçak:15
rüzgar şimşek büyü:15
-- silah donusumleri
muho==>sirius
hortlak==>kutsal
silah donusumlerine
-ilk donusum 1 eskrm 2kutsama
--zırh donusumleri
siyah çelik==>mavi çelik
kara büyü==>aura taş
gibidir.
-ilk donusum 3 pul 4 pençe ister
ZEVKLİ BİR OYUN HERKESİ BEKLERİZ
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
Baskent, ANKARA'da.
facebook fan sayfamız:
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
oyunumuzun videosu :
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
..
