Si alguien sabe aporte.
07-may-2006, 13:11
|
#2 (permalink) |
 Fecha de Ingreso: noviembre-2003
Mensajes: 365
|
No se si nadie no sabe esto, o nadie no quiere ayudar...
Ya solucione mi problema. Como yo no soy mesquino paso un codigo que arme para lo que necesitaba.... PD: VisualBsualdo no robes el codigo para decir que lo hisiste vos...
Código:
Lo que hace esto, es decirte la linea donde esta el puntero....Variable = R1.GetLineFromChar(R1.SelStart)
Código:
No voy a explicar mucho... Lo que hace es... Mandan el CALL ColorearLinea(Numero de la linea) y listo, lo que hace es buscar la linea y colorearla...Public Sub ColorearLinea(NumeroLinea As Long)
NumeroLinea = NumeroLinea - 1
Dim Comienzo As Long
Dim Final As Long
Dim Comenzo As Boolean
Dim Termino As Boolean
Dim X As Long
Comenzo = False
Comenzo = False
For X = 0 To Len(R1)
R1.SelStart = X
If Comenzo = False Then
If R1.GetLineFromChar(R1.SelStart) = NumeroLinea Then
Comienzo = R1.SelStart
Comenzo = True
End If
Else
If Termino = False Then
If R1.GetLineFromChar(R1.SelStart) = NumeroLinea + 1 Then
Final = R1.SelStart
Termino = True
R1.SelStart = Comienzo
R1.SelLength = Final - Comienzo
R1.SelColor = &HFF&
End If
End If
End If
Next X
End Sub
Al que le sirve la sirve al que no le sirve no le sirve. |
|
|
Mode Lineal
La Zona horaria es GMT -6. Ahora son las 23:05.
