Vassilis K ha scritto:
> 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
>
At this point, there is no need for a separate subroutine -> the single
instruction inside it can replace the calling of it.
Anyway, Benoit, did you read the other messages? There were strange
things...
Regards,
--
Doriano Blengino
"Listen twice before you speak.
This is why we have two ears, but only one mouth."
------------------------------------------------------------------------------
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
