Visual Basic

HeroRaven wrote:

can anyone recommend a control or know which one microsoft word uses for it's document window?

My: Blog | Photos

"Man who stand on hill with mouth open will wait long time for roast duck to drop in." -- Confucious

public const int HTTRANSPARENT = -1;
public const int WM_NCHITTEST = 0x84;

protected override void WndProc(ref Message m){
    if (m.Msg == WM_NCHITTEST){
        m.Result = new IntPtr(HTTRANSPARENT );
    }
    else {
        base.WndProc(m);
    }
}

Public Const WM_NCHITTEST As Integer = 132
Public Const HTTRANSPARENT As Integer = -1

Protected Overrides Sub WndProc(ByRef m as Message)
    If (m.Msg = WM_NCHITTEST)
        m.Result = New IntPtr(HTTRANSPARENT )
    Else
        MyBase.WndProc(m)
    End If
End Sub

[Marc] wrote:

EDIT: kut wrong forum

Public Const WM_NCHITTEST As Integer = 132
Public Const HTTRANSPARENT As Integer = -1

Protected Overrides Sub WndProc(ByRef m as Message)
    If (m.Msg = WM_NCHITTEST)
        m.Result = New IntPtr(HTTRANSPARENT )
    Else
        MyBase.WndProc(m)
    End If
End Sub

Public Class ClickThroughForm
    Inherits Form

Private Const WM_NCHITTEST As Integer = 132
Private Const HTTRANSPARENT As Integer = -1

Protected Overrides Sub WndProc(ByRef m as Message)
    If (m.Msg = WM_NCHITTEST) 'If Windows asks what kind of surface the mouse is on
        m.Result = New IntPtr(HTTRANSPARENT) 'Return that the mouse should go right through me
    Else
        MyBase.WndProc(m) 'Windows wants something else, let the base Control class do the work
    End If
End Sub

End Class

Private Const WM_NCHITTEST As Integer = 132<br />
Private Const HTTRANSPARENT As Integer = -1<br />
Protected Overrides Sub WndProc(ByRef m as Message)    <br />
If m.Msg = WM_NCHITTEST THEN 'If Windows asks what kind of surface the mouse is on        <br />
m.Result = New IntPtr(HTTRANSPARENT) 'Return that the mouse should go right through me    Else        <br />
MyBase.WndProc(m) 'Windows wants something else, let the base Control class do the work   <br />
End If<br />
End Sub<br />
End Class