Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
07/12/2011 14:57
Konu Sahibi
mbteknoloji
Yorumlar
4
Okunma
2315
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

mbteknoloji

Üye
Kullanici Avatari
Üye
5
1
07/12/2011
0
Kayseri
Ofis 2007
05/06/2013,08:58
Çözüldü 
Aşağıda yapmak istediğim text1 içindeki bir ifadeyi text2 içine girerken yanlış yazılmışsa kelimenin farklı bir renk tonu ile gösterimini sağlamak yardımcı olursanız sevinirim....

Private Sub Text2_Change()
str1 = Mid(Text1, Len(Text2), 1)
str2 = Mid(Text2, Len(Text2), 1)

If str1 = str2 Then
Text2.ForeColor = &H0&
Else
Text2.ForeColor = &HFF&
End If
' burda text içinde cortrolü yaptırıyorum ama tamamını kontrol ediyor.
' aynısını RichTextBox ile yapmaya çalışıyorum fakat olmuyor harf harf hatta kelime kelime kontrol ettirmek istiyorum
End Sub


Ek Dosyalar
deneme.rar
[1.58 KB]


Cevapla

mcmaho

Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ö....
198
09/12/2011
34
Muğla
Ofis 2003
17/03/2017,22:33
Çözüldü 
harf harf yapmak istiyorsan for döngüsüyle yapman gerekir. bütük harfleri tek tek...


Cevapla

mcmaho

Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ö....
198
09/12/2011
34
Muğla
Ofis 2003
17/03/2017,22:33
Çözüldü 
Dim s1, s2 As Integer

Private Sub RichTextBox2_Change()
For s1 = 1 To Len(RichTextBox2.text)
For s2 = 1 To Len(RichTextBox2.text)
If Mid(RichTextBox1.text, s1, 1) = Mid(RichTextBox2.text, s2, 1) Then
RichTextBox2.BackColor = &H80000005
End If
If Mid(RichTextBox1.text, s1, 1) <> Mid(RichTextBox2.text, s2, 1) Then
RichTextBox2.BackColor = &HFF&
End If
Next
Next
End Sub

Private Sub Text2_Change()
For s1 = 1 To Len(Text2.text)
For s2 = 1 To Len(Text2.text)
If Mid(Text1.text, s1, 1) = Mid(Text2.text, s2, 1) Then
Text2.ForeColor = &H0&
End If
If Mid(Text1.text, s1, 1) <> Mid(Text2.text, s2, 1) Then
Text2.ForeColor = &HFF&
End If
Next
Next
End Sub


Ek Dosyalar
deneme.rar
[1.6 KB]


<<< 10-HAGİ-10 >>>
Cevapla

mbteknoloji

Üye
Kullanici Avatari
Üye
5
1
07/12/2011
0
Kayseri
Ofis 2007
05/06/2013,08:58
Çözüldü 
kardeş teşekkür ediyorum ellerine sağlık yardımcı olduğun için çok teşekkür ederim


Cevapla

mcmaho

Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ö....
198
09/12/2011
34
Muğla
Ofis 2003
17/03/2017,22:33
Çözüldü 
rica ederim. biz burda yardımlaşma üzerine çalışıyoruz. eğitim öğretim de cabası. Img-grin


<<< 10-HAGİ-10 >>>
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

[-]
Etiketler
karşılaştıma text visual sorunu leri basib


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Visual Basic 6'da Konumlandırma.. Uğur ŞİRİN 2 177 Dün, 12:51 M Asım
Çözüldü Visual Basic 6.0 canmeet 3 909 28/07/2016, 15:17 emir ustaoğlu
Çözüldü Access Tabloları arasında Bilgi Alışverişi (Dlook UP Fonksiyonu Visual Basicte Kullanılmıyormu ?) umutakkaya 14 5.117 03/05/2014, 13:37 alpeki99
Çözüldü vb acsess update sorunu kokotuna 8 3.032 17/04/2014, 12:39 kokotuna
Çözüldü text nesnesinin içini bozmadan yazı ekleme ceforce 8 3.026 12/03/2014, 23:46 umutakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.