sayın aydiny ;
resim ile örneğini verdiğiniz uygulama web tabanlı
Html kodları ile yapılıyor. sunucu tarafında kodlar işlenirken arama kriterine uyan kelimeleri font rengini değiştirerek basıyor.tek bir alan içersinde textlerin diğerlerinden bağımsız olarak renklendirilmesi mümkün değil.
anca aklıma webdeki gibi yaparak çözüme ulaşmak için bir yöntem geliyor. arama sonuçlarını teker teker ayrı etiketlere yazmak ve arama kriteri ile uyuşuyor ise rengini değiştirmek.
aşağıda kodunu ve örneğini ekliyorum.
sürekli formda ayırma yapamıyor onun için tek form görünümünde olabilir.
ancak nedense boşlukları tam olarak ayırtamadım. sayın cuneyt'in kodları ile benim kodları birleştirerek devamı getirilebilir.bende mantığımdaki yanlışı görmüş olurum.
Kod:
Private Sub parcala_yay()
On Error GoTo cikis
Dim kelimeler, aktar As String
Dim uzunluk, nerdeyiz, nerdeyiz1, buraya As Integer
For eno = 1 To 40
Me("e_" & eno).Visible = False
Me("e_" & eno).ForeColor = vbBlack
Next eno
nerdeyiz = 1
kelimeler = Me.Metin7
uzunluk = Len(kelimeler)
For eno = 1 To 40
If eno <> 1 Then
nerdeyiz1 = nerdeyiz
nerdeyiz = InStr(nerdeyiz1, kelimeler, " ") + 1
buraya = InStr(nerdeyiz, kelimeler, " ") - nerdeyiz1
Else
nerdeyiz = 1
buraya = InStr(nerdeyiz, kelimeler, " ")
End If
Me("e_" & eno).Caption = Mid(kelimeler, nerdeyiz, buraya)
Me("e_" & eno).Visible = True
Me("e_" & eno).Width = Len(Me("e_" & eno).Caption) * 130
If eno = 1 Then
Me("e_" & eno).Left = 1550
Else
Me("e_" & eno).Left = Me("e_" & eno - 1).Width + Me("e_" & eno - 1).Left
End If
If Me("e_" & eno).Caption = Forms!frm_sorgu!DNo Then Me("e_" & eno).ForeColor = vbRed
If Me("e_" & eno).Caption = Forms!frm_sorgu!SAdi Then Me("e_" & eno).ForeColor = vbRed
If Me("e_" & eno).Caption = Forms!frm_sorgu!SSoyadi Then Me("e_" & eno).ForeColor = vbRed
If Me("e_" & eno).Caption = Forms!frm_sorgu!SKonu Then Me("e_" & eno).ForeColor = vbRed
Next eno
cikis:
End Sub
KUTUPHANE2.zip
(Dosya Boyutu: 40,57 KB | İndirme Sayısı: 26)
#1
KUTUPHANE2.rar
(Dosya Boyutu: 29,12 KB | İndirme Sayısı: 17)
