Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Rozno-kolorowe znaki w textboxie (lub innym)
Staszek




Typ: neutral
Postów: 46
Zarejestrowany: Dec 2003
Rozno-kolorowe znaki w textboxie (lub innym)

nie wie, czy byl poruszany problem, ale prosze o szybką odpowiedź, a mianowicie jak w temacie - jak napisać różnokolorowo np. w textboxie. For example "Stasiu wyjezdza o 120" (=P) i aby "120" bylo napisane na czerwono a reszta na zielono

Pzdr.St. ()


_____________________________________________
PZdr. St ()

"Nie mysl jak napisac ! Mysl co napisac !" Swiete slowa .. Of corz moje =p

30-03-2004 21:42
Pokaż profil Staszek  Wyślij email do Staszek        2620939
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Jest taka fajna kontrolka - RichTextBox (richtx32.ocx). Jest ona używana między innymi przez WordPada. Wybierz ją, wstaw go i jeszcze wstaw przycisk. Potem wpisz w kodzie:

private sub command1_click()
with richtextbox1
.selcolor = vbgreen
.selfontname = "terminal"
.selcolor = vbgreen
.selbold = true
end with
end sub


Uruchom proga, zaznacz jakiś text i kliknij na przycisk. Warto poexperymentować!

[Post edytowany dnia 31-03-2004 15:41 przez mikmas]


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

31-03-2004 15:40
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Staszek




Typ: neutral
Postów: 46
Zarejestrowany: Dec 2003

dzieki, ale nie udalo mi sie z tym zrobic tego co chcialem (experymentowalem =PP), a mianowicie aby kawalek textu w richboxie byl w red a kawalek w green (program musi to wpisywac autoamtycznie to do jednego rihboxa, bo jezeli sam w pisuje to idzie ok)

ps. mam nadzieje ze ktos zrozumial =p


_____________________________________________
PZdr. St ()

"Nie mysl jak napisac ! Mysl co napisac !" Swiete slowa .. Of corz moje =p

01-04-2004 16:07
Pokaż profil Staszek  Wyślij email do Staszek        2620939
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

To wpisz tekst do TextBox'a
TextBox1.Text = "Stasiek wyjeżdża o 12.00"

Następnie, pobierz ten tekst do zmiennej
Dim strTmp As String
strTmp = TextBox1.Text
uruchom pętlę
For i = 1 to Len(strTmp)
'zaznaczaj kolejne znaki
If IsNumeric(zaznaczonyznak) Then
    'zmien kolor
End If
Next i

Powinno działać...


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

01-04-2004 21:24
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
Lub inaczej...

Wstaw tradycyjnie RichTextBox'a i wpisz tam gdzie se chcesz :

With RichTextBox1
.Text = "To wpisz na czerwono & to na zielono"
.SelStart = 0    'Początek
.SelLength = 2  'Długość zaznaczenia
.SelColor = vbRed 'Kolor
.SelStart = 23
.SelLength = 2
.SelColor = vbGreen
.SelStart = 0    'I żeby nie było widać zaznaczenia
End With

^Sprawdzałem (widać po sformatowanym texcie)- działa


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

03-04-2004 21:20
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1