Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Przesuwanie łapką...
i-spy



Typ: neutral
Postów: 44
Zarejestrowany: Apr 2004
Przesuwanie łapką...

Mam na formie PictureBoxa. Jak zmieniać jego położenie, tz. przesuwać go po formie? Nie chodzi mi np. o przesuwanie scroll barami, lecz o sposób często spotykany w przeglądarkach graficznych i edytorach. Chciałbym, aby po przytrzymaniu lewego przycisku myszki na obrazku, a następnie przesuwaniu kursorem obraz zmieniał swoja pozycje zgodnie z ruchem kursora. (w przeglądarkach najczęściej to wygląda tak, ze pojawia się taka biała łapka i można przesuwać) Mam nadzieje ze mnie rozumiecie

Pozdrawiam i czekam na odpowiedz...


_____________________________________________
Oto moja pasja...
www.vbprograms.prv.pl
!Zapraszam

31-08-2004 14:43
Pokaż profil i-spy  Wyślij email do i-spy   Odwiedź stronę i-spy       2121177
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004


Private Const WM_NCLBUTTONDOWN As Long = &HA1
Private Const HTCAPTION As Long = 2

Private Declare Function ReleaseCapture Lib "user32" () As Long
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


W kodzie:

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture
    SendMessage Picture1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, &H0
End Sub


Gdzie Picture1 to twój picturebox.

Ikonę łapki musisz dorobić we własnym zakresie

[Post edytowany dnia 31-08-2004 15:10 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

31-08-2004 15:08
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1