
Dim SecBaslangic, SecUzunluk As Integer
Dim SecText As String
SecText = "Basic"
TextBox1.Text = "Visual Basic Dili"
SecBaslangic = TextBox1.Text.IndexOf(SecText)
If SecBaslangic > -1 Then
SecUzunluk = SecText.Length
TextBox1.SelectionStart = SecBaslangic
TextBox1.SelectionLength = SecUzunluk
End If
TextBox1.Focus(ads
Hiç yorum yok: