AYUDA XFA!!! MARCADORES
Publicado por MARTA (49 intervenciones) el 20/04/2004 09:36:04
Estoy haciendo un editor de texto, y sólo tengo puesto un tipo de marcación, por puntos. Me gustaría poder añadir con números y otra con letras. Ejemplo:
1.
2.
3.
A.
B.
C.
Tengo este código en un módulo:
Sub Menu_FormatBullet(mdiFrm2 As Form)
With mdiFrm2.rtfRichTextBox1
If (IsNull(.SelBullet) = True) Or (.SelBullet = False) Then
' selection is mixed or not bulleted
' so set it.
.SelBullet = True
ElseIf .SelBullet = True Then
' selection is bold, toggle it
.SelBullet = False
.SelHangingIndent = False
End If
End With
End Sub
1.
2.
3.
A.
B.
C.
Tengo este código en un módulo:
Sub Menu_FormatBullet(mdiFrm2 As Form)
With mdiFrm2.rtfRichTextBox1
If (IsNull(.SelBullet) = True) Or (.SelBullet = False) Then
' selection is mixed or not bulleted
' so set it.
.SelBullet = True
ElseIf .SelBullet = True Then
' selection is bold, toggle it
.SelBullet = False
.SelHangingIndent = False
End If
End With
End Sub
Valora esta pregunta


0