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... -- Regards, Demosthenes Koptsis. ------------------------------------------------------------------------------ Protect Your Site and Customers from Malware Attacks Learn about various malware tactics and how to avoid them. Understand malware threats, the impact they can have on your business, and how you can protect your company and customers by using code signing. http://p.sf.net/sfu/oracle-sfdevnl _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
