Ejemplos usando el Api de windows para Visual basic

162 - Aplicar Margen a controles TextBox y RichtextBox

Ejemplo que utiliza la función api SendMessageBynum para establecer un margen a controles RichTextBox y controles TextBox

En el código hay una función llamada Establecer_Margen que recibe como parámetro el control al cual aplicarle el margen, el valor para el márgen izquierdo y para el márgen derecho

Nota importante: Para que el márgen se aplique correctamente, hay que ejecutar el api antes de asignarle el texto al control

Colocar un control textBox con la propiedad Multiline en True, y también un control RichTextBox

Código fuente en el formulario

'DEclaración Api Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lparam As Long) As Long 'Mensajes para el Api Private Const EC_LEFTMARGIN& = &H1& Private Const EC_RIGHTMARGIN& = &H2& Private Const EM_SETMARGINS = &HD3& Private Sub Form_Load() ' Aplica el margen al Richtextbox y al textbox Call Establecer_Margen(Text1, 20, 20) Call Establecer_Margen(RichTextBox1, 20, 20) RichTextBox1.Width = 1500 Text1.Width = 2500 RichTextBox1.Text = "aaaaaaaaaaaaaaaaaaaaaa" & vbNewLine RichTextBox1.Text = RichTextBox1.Text & "aaaaaaaaaaaaaaaaaaaaaa" Text1.Text = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaa" & vbNewLine Text1.Text = Text1.Text & "aaaaaaaaaaaaaaaaaaaaaa" End Sub Sub Establecer_Margen(El_control As Object, _ ByVal intLeft As Integer, _ ByVal intRight As Integer) Dim Margen As Long Margen = intLeft + intRight * &H10000 Call SendMessageBynum(El_control.hwnd, _ EM_SETMARGINS, _ EC_LEFTMARGIN Or EC_RIGHTMARGIN, _ Margen) End Sub

Buscar en Recursos vb