[Gambas-user] Re: Left and Right Click

Pozzo mauriiiii3001 at ...325...
Sat Mar 6 19:04:42 CET 2004


>
>
> it exist...
>
>public sub pic_MouseUp()
>
>  if mouse.button = mouse.right then
>    'here is your code
>  endif
>
>end
>
>Gambas is really powerfull and a real object language
>

Why this don't work? When I click on a image with the left buttom it go 
to the else and do the same if I try to cacht the right buttom:


PUBLIC SUB Pik_MouseUp()
IF mouse.Button = mouse.Left THEN
c = 0
clicckete(LAST)
ELSE
IF Right(LAST.tag,2) <> "no" THEN

picsave.Load("save.png")
 
  LAST.picture = picsave
  LAST.tag = LAST.tag & "no"
  ELSE
  LAST.picture =  ""
  LAST.tag = Left(LAST.tag,-2)
  ENDIF
ENDIF
END

:-(

Maurizio






More information about the User mailing list