Skip to main content

AccessTr.neT


Visual Basib text leri karşılaştıma sorunu

Visual Basib text leri karşılaştıma sorunu

Çözüldü #1
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)
Son Düzenleme: 08/12/2011, 09:57, Düzenleyen: mbteknoloji.
Cevapla
Çözüldü #2
harf harf yapmak istiyorsan for döngüsüyle yapman gerekir. bütük harfleri tek tek...
Cevapla
Çözüldü #3
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
Çözüldü #4
kardeş teşekkür ediyorum ellerine sağlık yardımcı olduğun için çok teşekkür ederim
Cevapla
Çözüldü #5
rica ederim. biz burda yardımlaşma üzerine çalışıyoruz. eğitim öğretim de cabası. Img-grin
<<< 10-HAGİ-10 >>>
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task