HTCAPTION

[netdemon]

Как заставить этот код работать в VB.NET?

Код: Выделить всё

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

        If e.Button = 2 Then 'And sender = 1 Then
            ReleaseCapture()

            SendMessage(Me, WM_NCLBUTTONDOWN, HTCAPTION, 0)
        End If

    End Sub

ВОт так :

Код: Выделить всё

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                m.Result = IntPtr.op_Explicit(HTCAPTION)
                Return
            Case WM_NCLBUTTONDBLCLK
                Me.Close()
                'm.Result = IntPtr.op_Explicit(WM_CLOSE)
                Return
        End Select
        MyBase.WndProc(m)
    End Sub

теперь по двойному клику окно закрывается.


Почему то этот модуль не работает:

Winamp не реагирует на команды.

[netdemon]

Кто-нить поможет или нет? Почему у меня Winamp на команды не реагирует.?

[Joo]

И первый код работает, только надо не Me передовать, а Me.Handle

[netdemon]

И первый код работает, только надо не Me передовать, а Me.Handle

спасибо.

только вопрос с винампом остался открытым.