Visual Basib text leri karşılaştıma sorunu
Tarih
07/12/2011 14:57
Konu Sahibi
mbteknoloji
Yorumlar
4
Okunma
1885
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.... Ö....
196
09/12/2011
34
Muğla
Ofis 2003
20/09/2016,22:03
Çö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.... Ö....
196
09/12/2011
34
Muğla
Ofis 2003
20/09/2016,22:03
Çö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.... Ö....
196
09/12/2011
34
Muğla
Ofis 2003
20/09/2016,22:03
Çö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


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Visual Basic 6.0 canmeet 3 490 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 4.223 03/05/2014, 13:37 alpeki99
Çözüldü vb acsess update sorunu kokotuna 8 2.334 17/04/2014, 12:39 kokotuna
Çözüldü text nesnesinin içini bozmadan yazı ekleme ceforce 8 2.494 12/03/2014, 23:46 umutakkaya
Çözüldü VB6 ListView'e Accessten Veri Alma Sorunu alican60 4 2.365 12/03/2014, 11:05 ogulcan92


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya