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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

mbteknoloji

Üye
 34
 1
 5
 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)



Kullanici Avatari

mcmaho

Aktif Üye
Mu.... Öz....
 20
 198
 09/12/2011
34
 Muğla
 
 Ofis 2003
 06/12/2018,22:24
Çözüldü 
harf harf yapmak istiyorsan for döngüsüyle yapman gerekir. bütük harfleri tek tek...



Kullanici Avatari

mcmaho

Aktif Üye
Mu.... Öz....
 20
 198
 09/12/2011
34
 Muğla
 
 Ofis 2003
 06/12/2018,22:24
Çö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 >>>

Kullanici Avatari

mbteknoloji

Üye
 34
 1
 5
 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



Kullanici Avatari

mcmaho

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


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


Konuyu Okuyanlar: 1 Ziyaretçi

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

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.