Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: 2 Pytanka odnośnie formy
xEagle2



Typ: neutral
Postów: 280
Zarejestrowany: Jul 2003
2 Pytanka odnośnie formy

...::: PYTANIE1 :::...
Jak moge przesuwać oknem w czasie trzymania guzika tak jagbym nacisnlo na belke programu i przesuwał
...::: PYTANIE2 :::...
Mój program działa nawet po From_Unload działa taimer choć go wyłączyłem więc co zrobić aby było jakieś "brutalne" wychodzenie z formy


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

14-08-2004 20:51
Pokaż profil xEagle2  Wyślij email do xEagle2       
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

1) W zdarzenie command_mousedown umieścić form1.left=form1.left+120, ale ci chyba chodziło o dragowanie formy?
2)
a)Wpisz End, ale wtedy to zabujesz cały program, a nie formatkę
b) spróbuj wpisać unload timer1


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

15-08-2004 00:56
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




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

Jeśli program chodzi ci po zamknięciu formy, to:
1) Spróbuj ją wyładować (Unload nazwa_formy)
2) Sprawdź, czy przypadkiem gdzieś nie chodzi ci nadal jakaś pętla...


_____________________________________________
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

15-08-2004 05:05
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

1) W Api-Guide przeczytaj o funkcji ReleaseCapture i zobacz te 2 sample.
2) Wpisujesz Timer.Enabled = False i po sprawie.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

15-08-2004 12:21
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Fiarel
Szczecin



Typ: neutral
Postów: 57
Zarejestrowany: Dec 2002

W module deklarujesz:

Option Explicit

Public Declare Sub ReleaseCapture Lib "user32" ()
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Global Const WM_NCLBUTTONDOWN = &HA1
Global Const HTCAPTION = 2

Potem w obiekcie który ma przesówać formę wklepujesz taki kod. Np. Form_MouseDown lub Image1_MouseDown

Dim nRet&
If Button And 1 Then
        ReleaseCapture
        nRet = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& )
End If

Powinno zadziałać


_____________________________________________
www.skype.com RULES !!!

16-08-2004 07:35
Pokaż profil Fiarel  Wyślij email do Fiarel        4354308
xEagle2



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

A i jeszcze kumpel mnie prosił jak wykryć najechanie na picturebox ?


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

16-08-2004 09:13
Pokaż profil xEagle2  Wyślij email do xEagle2       
Fiarel
Szczecin



Typ: neutral
Postów: 57
Zarejestrowany: Dec 2002

To zależy co masz na myśli. Najlepiej napisz co chcesz osiągnąć.
Jeśli dobrze się domyslam to chodzi ci o

Picture1_MouseMove

to zdarzenie jest zawsze wywoływane gdy kursorem przeówasz nad PictureBox`em


_____________________________________________
www.skype.com RULES !!!

16-08-2004 11:10
Pokaż profil Fiarel  Wyślij email do Fiarel        4354308
xEagle2



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

Ale jeżeli to zrobie to zostaje dany rysunek


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

16-08-2004 14:46
Pokaż profil xEagle2  Wyślij email do xEagle2       
Fiarel
Szczecin



Typ: neutral
Postów: 57
Zarejestrowany: Dec 2002

Teraz to już totalnie zbaraniałem. Napisz dokładnie na przykładzie co chcesz zrobić jaką funkcję napisać, może wtedy bedę mógł pomóc. Bo jak narazie to jestem w lesie.


_____________________________________________
www.skype.com RULES !!!

16-08-2004 17:56
Pokaż profil Fiarel  Wyślij email do Fiarel        4354308
xEagle2



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

Jeśeli najade na Picture1 to ma sie pojawić rysunek a jeżeli będzie w innym miejscu niż nad Picture to ma nic nie być


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

16-08-2004 20:31
Pokaż profil xEagle2  Wyślij email do xEagle2       
kicaj




Typ: neutral
Postów: 271
Zarejestrowany: Aug 2003

niestety nie ma czegos tak cudownego w VB jak w Delphi, C czy Java, a jest to zdarzenie onMoseOver i OnMouseOut, musz sam sobie takie cos napisac, zrobile kiedys cos takiego:
Trzeba uzyc Api do pobrani point.x/y odjac polozenie formy i odleglos twojego pictureboxa. Uwazaj ! bo jasli picture jest w jakim kontenerze to musisz odjac jeaszce polozenie tego kontenera.
To nie bedzie dzalalo przy pisaniu wlasnej kontrolki, bo jakos nie wiem jak wyciagnac aktualna pozycje left top od krawedzi formy (nie contenera)

16-08-2004 22:41
Pokaż profil kicaj  Wyślij email do kicaj        3914568
xEagle2



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

:/


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

17-08-2004 08:26
Pokaż profil xEagle2  Wyślij email do xEagle2       
Wszystkich odpowiedzi: 11 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1