TextEditor pitanja...

Odgovori Nova tema

2 odgovora
3.063 pregleda

TextEditor pitanja... 11.07.2004. u 20:44 · pre 271 mesec #1

Poceo sam da pravim jedan text editor, ali imam nekoliko pitanja:
1. Kada se npr. otkuca if i pritisne se space da se automatski doda:

Code:

if ( )
{
}

i da se kursor postavi izmedju malih zagrada?

2. Kako da neke reci obojim razlicitim bojama (color syntax)?

3. Kada se selektuje odredjeni text i pritisne TAB da se selektovani redovi pomere a ne da se izbrisu (nadam se da me razumete)?

Ako neko moze nek mi pomogne..

Hvala unapred i pozdrav svima!

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: TextEditor pitanja... 12.07.2004. u 18:35 · pre 271 mesec #2

Probaj Ovako

Koristio sam jedan RichTextBox koji sam imenovao sa RTB1.

1:

U KeyPress Event RTB1 ubaci ovaj kod

Code:

Dim L As Long
Dim S As String
Dim S1 As String

Const strDodaj = " ()" & vbCrLf & " {" & vbCrLf & " }"

If KeyAscii = 32 Then

    S = Right(RTB1.Text, 2)
    S1 = LCase(S)

     If S1 = "if" Then
        RTB1.Text = RTB1.Text & strDodaj
        L = Len(RTB1.Text)
        RTB1.SelStart = Len(RTB1.Text) - 9
     End If

End If

Code:

Const Crvena = &HFF&
Const Plava = &HFF0000
Const Zuta = &HFFFF&
Const Zelena = &HFF00&

RTB1.SelColor = Crvena

3:

u General Forme deklarisi promjenjivu strSelText i definisi je kao string.

U RTB1_KeyDown ubaci sledeci kod:

Code:

Dim S As String
Dim I As Integer

If KeyCode = 9 Then

S = RTB1.SelText

  If Len(S) > 0 Then
   strSelText = S
  Else
   strSelText = ""
  End If

End If

a u RTB1_KeyUp ubaci:

Code:

If KeyCode = 9 Then
RTB1.SelText = strSelText
End If

_______________________________________
Ero

Re: TextEditor pitanja... 14.07.2004. u 23:35 · pre 271 mesec #3

Hvala, radi!

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme