Thanks Jacob
So I tried to add a text margin but can't get it to work. I tried:
What am I doing wrong here?
Thanks again
Rich
So I tried to add a text margin but can't get it to work. I tried:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As IntPtr
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByRef lParam As String) As IntPtr
Public Const SCI_SETMARGINTYPEN = 2240
Public Const SC_MARGIN_SYMBOL = 0
Public Const SC_MARGIN_NUMBER = 1
Public Const SC_MARGIN_TEXT = 4
Public Const SC_MARGIN_RTEXT = 5
Public Const SCI_MARGINSETTEXT = &H9E2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SendMessage(sc1.Handle, SCI_SETMARGINTYPEN, 0, SC_MARGIN_NUMBER)
SendMessage(sc1.Handle, SCI_SETMARGINTYPEN, 1, SC_MARGIN_SYMBOL)
SendMessage(sc1.Handle, SCI_SETMARGINTYPEN, 2, SC_MARGIN_TEXT)
SendMessage(sc1.Handle, SCI_SETMARGINTYPEN, 3, SC_MARGIN_RTEXT)
SendMessage(sc1.Handle, SCI_MARGINSETTEXT, 1, "101")
SendMessage(sc1.Handle, SCI_MARGINSETTEXT, 2, "102")
SendMessage(sc1.Handle, SCI_MARGINSETTEXT, 3, "103")
End Sub
but this completely obliterates everything in the margins when I click Button1, including the original line number even if I only send the first SendMessage.What am I doing wrong here?
Thanks again
Rich