[Gambas-user] MouseDown event and Gambas3

[Benoît Minisini]

> Good morning,
> 
> the following example is not working in gambas3-svn3475
> 
> ------------------------------
> ' Gambas class file
> 
> Public Function Color() As Integer
> 
>   Dim Red As Integer
>   Dim Green As Integer
>   Dim Blue As Integer
>   Dim sColor As String
>   Dim iColor As Integer
> 
>   Red = Rnd(0, 256)
>   Green = Rnd(0, 256)
>   Blue = Rnd(0, 256)
> 
>   sColor = "&" & Hex(Red, 2) & Hex(Green, 2) & Hex(Blue, 2) & "&"
>   Print sColor
>   iColor = Val(sColor)
>   Return iColor
> 
> End
> 
> Public Sub Form_MouseDown()
> 
>   Me.Background = Color()
> 
> End
> -----------------------------------
> 
> The code try to change the bgcolor of Form with random colors on mouse
> clicks.
> 
> This example is working in Gambas2.
> 
> I think Form_MouseDown event is not working or i don't know...

Plase provide a full project as much as possible.

Regards,

-- 
Benoît Minisini