Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Dwa pytania o TEXT
anonim




Typ: Nie zarejestrowany
Dwa pytania o TEXT

Piszę coś w rodzaju notatnika.
Ale po znaku &#8216;  text  ma zmienić kolor na zielony.
Napisałem to tak

ILEZNAK = Len(txtText.Text)

For ZNAK = 1 To ILEZNAK
    LITERA = Mid(txtText.Text, ZNAK, 1)
    If LITERA = "&#8217;" Then
        txtText.ForeColor = &HC000&
    End If
Next ZNAK

I wszystko jest ok. tylko po wstawieniu znaku &#8216; cały tekst zmienia kolor.
Jak zrobić żeby tekst zmieniał kolor od wybranego miejsca??????

Teraz drugie pytanie.
Wstawiłem na formie textbox (właściwość scrollbars=3) i wstawiłem taki kod
(chyba wiadomo po co)

Private Sub Form_Resize()
Dim FRHEIGHT As Long
Dim FRWIDTH As Long
Const FRLEFT = 0
Const FRTOP = 300

FRHEIGHT = frMain.Width
FRWIDTH = frMain.Height

txtText.Width = FRHEIGHT
txtText.Height = FRWIDTH
txtText.Left = FRLEFT
txtText.Top = FRTOP

End Sub

I po czymś takim nie widać pasków przewijania, dlaczego??
Jak zrobić aby to działało?
Z góry dzięki.

07-12-2003 16:30
  
kicaj




Typ: neutral
Postów: 271
Zarejestrowany: Aug 2003

hehe bo pewnie uzywasz zwyklego textbox'a, a powinienes uzywac RichTextBox

07-12-2003 16:57
Pokaż profil kicaj  Wyślij email do kicaj        3914568
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

A co do drugiego pytania to odpowiedź jest banalna. Jeżeli chcesz żeby cały textbox był widoczny nie możesz dawać mu takiej samej wielkości jak forma na której sie znajduje - dodatkowo jeżeli umieszczasz go nie w miejscu (0,0) a np tak jak ty (0,300) to tym bardziej. Musisz troche zmniejszyć wielkość tego textboxa - ja to zrobiłem tak - teraz wszystklo powinno być widoczne:

Private Sub Form_Resize()
Dim FRHEIGHT As Long
Dim FRWIDTH As Long
Const FRLEFT = 0
Const FRTOP = 300

FRHEIGHT = frMain.Width
FRWIDTH = frMain.Height

txtText.Width = FRHEIGHT - 100
txtText.Height = FRWIDTH - 700
txtText.Left = FRLEFT
txtText.Top = FRTOP

End Sub



_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

09-12-2003 06:23
Pokaż profil m-a-x  Wyślij email do m-a-x   
anonim




Typ: Nie zarejestrowany

Dzięki, ale to ze zmianą koloru tekstu nadal nie działa nawet w richtextboxie.

09-12-2003 14:04
  
kicaj




Typ: neutral
Postów: 271
Zarejestrowany: Aug 2003

a wiec tak:

RichTextBox1.SelStart = 4
RichTextBox1.SelLength = 12
RichTextBox1.SelFontName = "times"
RichTextBox1.SelFontSize = 13
RichTextBox1.SelColor = vbRed
RichTextBox1.SelBold = True
RichTextBox1.SelItalic = True
RichTextBox1.SelUnderline = True

powinenes otrzymac cos takiego :

12345678901234567890

tyle ze nie wiem jak na forum czionke zmienic

09-12-2003 22:18
Pokaż profil kicaj  Wyślij email do kicaj        3914568
rafall




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

Robi się coraz jaśniej.
Dobra teraz chyba ostatnie pytanie z tej dziedziny.
Jak sprawdzać tekst liniami? tz. biorę jedną linię z całego tekstu i ją sprawdzam (znaki jakie tam wysępują).

10-12-2003 20:48
Pokaż profil rafall  Wyślij email do rafall   
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002


Robi się coraz jaśniej.
Dobra teraz chyba ostatnie pytanie z tej dziedziny.
Jak sprawdzać tekst liniami? tz. biorę jedną linię z całego tekstu i ją sprawdzam (znaki jakie tam wysępują).


Zobacz tego sampla:
http://republika.pl/vbworks/download/LineSplit.zip
powinien ci pomóc.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

11-12-2003 15:48
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1