[ Aleksandar Ružičić @ 11.07.2004. 19:44 ] @
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!
[ Ero S Ovoga Sveta @ 12.07.2004. 17:35 ] @
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

2:
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
[ Aleksandar Ružičić @ 14.07.2004. 22:35 ] @
Hvala, radi!