[Gambas-user] MouseDown event and Gambas3
Demosthenes Koptsis
demosthenesk at ...626...
Thu Jan 20 07:03:59 CET 2011
i attach the project.
gambas3-svn3442 @ x32
gambas3-svn3475 @ x64
ubuntu, gtk
none of mouse events are working.
On Thu, 2011-01-20 at 02:27 +0100, Benoît Minisini wrote:
> > 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,
>
--
Regards,
Demosthenes
-------------- next part --------------
A non-text attachment was scrubbed...
Name: RndColor.tar.bz2
Type: application/x-bzip-compressed-tar
Size: 6138 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20110120/9b1f2698/attachment.bin>
More information about the User
mailing list