Pohybování s formulářem bez titulku - VB.NET – .NET – Fórum – Programujte.com

Ahoj

Mašel jsem tenhle kód:

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long   

Private Declare Sub ReleaseCapture Lib "User32" ()   

  

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)   

    ReleaseCapture   

    SendMessage Form1.hWnd, 161, 2, 0   

End Sub  

To Standa : Do kódu tvojí aplikace. Nebo do poznámkovýho bloku a později se k němu vrať.

Tak to vím taky žš do aplikace. Ale kam přesně. Když dvakrát kliknu na formulář, otevře se kód, a když to tam zadám, nahlásí to asi 100000000000000 chyb.

Do jaké části, nebo tak

To Standa : Víš co znamenaj první dva řádky? Víš, co znamenaj ty další čtyři řádky? Jestli ne, tak jsou další slova zbytečný. Zkus si pozorně přečíst ty chyby.

BTW: používat k tomuhle WinAPI není zrovna dobrej nápad

Ten kód jsem našel tady (programujte.com) v sekci Visual Basic. Jestli znáš nějaký jiný pošli ho pls..

PLS poraďte prosím

Hlavně se neptej, kam to napsat: http://www.thescarms.com/dotnet/MoveForm.aspx.