Rixhtextbox

Leer paso a paso un texto(imagino sera util cuando se haga el procedimiento para carga el envio)



Este ejemplo, que no tiene mucho sentido, pero muestra como cambiar de color cada caracter aun valor aleatorio, recorriéndolo uno a uno mediante un bucle:



Private Sub Command2_Click()

' Recorre caracter por caracter
For caracter = 0 To Len(El_RichTextBox.Text)

WithEl_RichTextBox

'Incrementa el SelStart
.SelStart = caracter

'Selecciona el caracter
.SelLength = .SelLength + 1

'Establece el Color aleatorio al caracter actual.SelColor = RGB(Int((255) * Rnd), _
Int((255) * Rnd), _
Int((255) * Rnd))

End With

Next

End Sub

Private Sub Form_Load()

El_RichTextBox.Font.Size = 12El_RichTextBox.Font.Bold = True

El_RichTextBox.Text = "Parrafo 1" & vbNewLine & vbNewLine _
& "Parrafo 2" & vbNewLine & vbNewLine _

End SubAutoVerbMenu (permite activar menu del boton derecho).

El método LoadFile se utiliza para cargar un archivo .RTF o un archivo de texto en el control RichTextBox.

En cambio el Método SaveFile seutiliza para Guardar en un archivo el contenido del control.

El_RichTextBox.LoadFile "c:\El_Archivo.txt", rtfText

(Activa tabulacion con Tab, para probar que hace y como)
vector
Dim arrTabStop()As Boolean

'Deshabilita el TabStop de todos los controles del formulario
Private Sub RichTextBox1_GotFocus()

Dim i As Integer

' redimensiona el array a la cantidad decontroles que haya en el form
ReDim arrTabStop(0 To Me.Controls.Count - 1) As Boolean

' recorre todos los controles
For i = 0 To Me.Controls.Count - 1
' guarda los valores parapoder restaurarlos luego
arrTabStop(i) = Controls(i).TabStop
' los deshabilita
Controls(i).TabStop = False
Next
End Sub

'Restaura el TabStop de los controles del...