Quantcast
Viewing all articles
Browse latest Browse all 296

New Post: Getting Started

Thanks Jacob

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

Viewing all articles
Browse latest Browse all 296

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>