Tags-Etiketler
Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...
[ numlock ] /
Makaleler-Article(s)
numlock ile ilgili toplam 1 makale bulundu ! (A total of 1 article(s) about numlock was(were) found in all of articles!)
| Article |
|---|
RichTextBox ta Kelime Arama
RichTextBox içinde kelimeyi aratacağız. Aradığımız kelime birden fazla RichTextBox ta tekranlansa bile hepsini aynı anda kırmızı renkte göstereceğiz. Aşağıdaki şekli inceleyin.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub setTextColor(ByVal pStr As String, ByVal pColor As Drawing.Color)
End Sub
Private Sub btnAra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAra.Click
renk()
End Sub
Sub renk()
Dim pStr As String
Dim pColor As Drawing.Color
pColor = Color.Red
pStr = txtAra.Text
Dim i As Integer
Dim posAnt As Integer
posAnt = -1
RichTextBox1.SelectionStart = 0
RichTextBox1.SelectionLength = 0
For i = 0 To 1000
If i = 0 Then
RichTextBox1.Find(pStr, 0, RichTextBoxFinds.WholeWord)
Else
RichTextBox1.Find(pStr, RichTextBox1.SelectionStart + 1, RichTextBoxFinds.WholeWord)
End If
If posAnt = RichTextBox1.SelectionStart Then
Exit For
End If
RichTextBox1.SelectionFont = New Font("Courier New", 9, FontStyle.Regular)
RichTextBox1.SelectionColor = pColor
posAnt = RichTextBox1.SelectionStart
Next
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır |
|
Sitede yayınlanan makaleleri
Blog sitemizden de takip edebilirsiniz.
Sitemizdeki makaleleri RSS olarak takip edebilirsiniz.