Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Prawy przycisk action
anonim




Typ: Nie zarejestrowany
Prawy przycisk action

Cześć jestem początkujący i potrzebuje zrobić taki bajerek:
Jest obrazek i gdy ktoś naciśnie prawy przycisk to pojawia się formatka, a gdy puści to się formatka wyłącza. Czyli jest tak długo jak trzymany jest prawy przycisk myszy.
Z góry dziękuje za pomoc

Pozdrawiam

27-02-2003 02:11
  
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Poszukaj w dziale API na vb4all-gdzieś tam widziałem funkcję pozwalającą sprawdzić stan przycisków myszy, bo tu "jest pies pogrzebany"...


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


27-02-2003 11:26
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

Można użyć funkcji API GetKeyState(x) gdzie X to:

&H01 - lewy przycisk
&H02 - prawy przycisk
&H04 - środkowy

ale jest ona dziwna, bo chciałem, aby w zdarzeniu Labla Dobule Click był wykrywany klawisz i jeśli jest prawy lub środkowy to aby zdarzenie się nie wykonywało, więc wyklepałem poniżej cytowany kod i zwykle działało, ale w 40% przypadków nie działało :-(

'Jeśli klik prawym lub środkowym przyciskiem to exit
X = GetKeyState(&H2)
If (X And &H1) = &H1 Then Exit Sub
If (X And &H80) = &H80 Then Exit Sub
X = GetKeyState(&H4)
If (X And &H1) = &H1 Then Exit Sub
If (X And &H80) = &H80 Then Exit Sub


Tak więc nie do końca polecam tą funkcję

[Post edytowany dnia 27-02-2003 14:24 przez Jelcyn]


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

27-02-2003 14:23
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

nie prosciej by bylo tak:

Form_MouseDown
if button = 2 then image1.picture ...
End Sub

Form_MouseUp
if button = 2 then image1.picture ...
End Sub

czy moze cos zle zrozumialem?


_____________________________________________
www.KURDE.pl

01-03-2003 11:32
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
anonim




Typ: Nie zarejestrowany

Ushy, jeszcze nie sprawdzalem ale wydaje sie logiczne
Wielkie dzieki !!

01-03-2003 12:18
  
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1