|
Pogledajte malo onaj kod koji sam dao:
BlasteR :: ...'Ako je uslov ispunjen, u pitanju je broj.
If (richTextBox1.Text(i) >= 48) AndAlso (richTextBox1.Text(i) <= 57) Then...
@Srki94
Ako ne mozes da deklarises font, proguglaj malo, sve ostalo bi trebalo da ti je jasno u kodu.
Dopuna: 12 Jan 2009 0:07
Konvertor me nije razumeo sta sam hteo da "kazem". Ovo sam radio u VB 2008, tako da radi sigurno.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As New Font("Microsoft Sans Serif", 5)
For i As Integer = 0 To RichTextBox1.Text.Length - 1
'Ako je uslov ispunjen, u pitanju je broj.
If (RichTextBox1.Text(i) >= "0" AndAlso (RichTextBox1.Text(i) <= "9")) Then
RichTextBox1.Select(i, 1)
RichTextBox1.SelectionFont = f
End If
Next
End Sub
A evo ga i projekat:
[Link mogu videti samo ulogovani korisnici]
|