After the function of change_bgcolor that existed and Benoit reminded us, the
code is becoming more sophisticated:
PUBLIC SUB Form_Open()
DIM rsThesi AS Result
DIM iTemp AS Integer
DIM sTemp AS String
MODMain.Connect()
rsThesi = MODMain.$Con.exec("select * from egrafes where elenchosAnax = 0
AND thesi <> 0 ")
DO WHILE rsThesi.Index < rsThesi.Count - 1
change_bgcolor("Label" & CInt(rsThesi!thesi))
rsThesi.MoveNext()
LOOP
END
SUB change_bgcolor(labelname AS String)
Form1[labelName].Background = Color.Red
END
------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
