Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: przesuwanie formy
deywid



Typ: neutral
Postów: 66
Zarejestrowany: Jan 2004
przesuwanie formy

mam pytanko,gdy w formie mam ustawione controlbox na false a chce ją przesuwac to co mam zrobic?
ponowne zamkniecie formatki i ustawienie na true i jej odpalenie nie wchodzi przeciez w gre...
mam tam label i image(ktore cala forme zakrywaja prawie...chce po prostu jakos sie ich chwycic aby przesunac forme..


albo inaczej ,da sie uchwycic wspolrzedne jakos zeby male okienko znajdowala sie dokladnie nad zegarem..?????
tak jak jest przy przychodzacych wiadomosciach gg niezaleznie od rozdzielczosci..
pomocy !

[Post edytowany dnia 28-09-2004 17:15 przez deywid]

28-09-2004 17:05
Pokaż profil deywid  Wyślij email do deywid        5625009
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Przykład Wymiarowanie Formy z workshopy http://www.coderscity.pl/no-vb4all/workshop/WymiarowanieFormy.zip

Rozdzielczość ekranu znajdziesz w Screen.Width .Height


_____________________________________________
www.mob.abc.pl - moja strona o VB

28-09-2004 17:44
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
deywid



Typ: neutral
Postów: 66
Zarejestrowany: Jan 2004

jak na moja głowe to trudno bedzie wykryc idealnie miejsce pod zegarem...(nie wiem,ale moze ktos wie cos na ten temat)??
ja zrobilem tak ,ze udalo mi sie przesuwac forme za pomoca myszki,czepiajac sie wlasnie tego labela lub picturebox(uzytkownik sam bedzie wybieral miejsce)

'=====================
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
'=====================
'koperta -forma ktora chce zeby sie przesuwala
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture
    SendMessage koperta.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, &H0
End Sub
=====================
pozdrawiam i dzieki bisiek za mala podpowiedz

[Post edytowany dnia 29-09-2004 07:31 przez deywid]

29-09-2004 07:31
Pokaż profil deywid  Wyślij email do deywid        5625009
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1