Visual Basib text leri karşılaştıma sorunu - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html) +--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html) +--- Konu Başlığı: Visual Basib text leri karşılaştıma sorunu (/konu-visual-basib-text-leri-karsilastima-sorunu.html)

Visual Basib text leri karşılaştıma sorunu - mbteknoloji - 07/12/2011 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) Cvp: Visual Basib text leri karşılaştıma sorunu - mcmaho - 10/12/2011 harf harf yapmak istiyorsan for döngüsüyle yapman gerekir. bütük harfleri tek tek... Cvp: Visual Basib text leri karşılaştıma sorunu - mcmaho - 16/12/2011 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) Cvp: Visual Basib text leri karşılaştıma sorunu - mbteknoloji - 20/12/2011 kardeş teşekkür ediyorum ellerine sağlık yardımcı olduğun için çok teşekkür ederim Cvp: Visual Basib text leri karşılaştıma sorunu - mcmaho - 20/12/2011 rica ederim. biz burda yardımlaşma üzerine çalışıyoruz. eğitim öğretim de cabası.