if Object.Class(hControl).Name = sControlName then return hControl Can be replaced by
if Object.Type(hControl) = sControlName then return hControl 2014-11-17 23:14 GMT+01:00 Fabien Bodard <[email protected]>: > well this is another temporary soluce for this problem Tobias : > > > Private Function FindControl(hParent as Container, sControlName as > String) as Object > > dim hControl as Object > > For each hControl in hParent.Children > > if hControl is Container then > hControl = FindControl(hControl, sControlName) > if hControl then return hControl > Else > if Object.Class(hControl).Name = sControlName then return hControl > endif > next > > End > > > OBS = New Observer(FindControl(ProgressBar1, "DrawingArea")) as "OBS" > > > 2014-11-17 13:53 GMT+01:00 Tobias Boege <[email protected]>: >> On Mon, 17 Nov 2014, Fabien Bodard wrote: >>> Progressbar is just a drawingarea that dsplay a blue square ....so >>> putting a drawingarea on another is not really the soluce >>> >>> You can do : >>> >>> >>> ' Gambas class file >>> >>> Private OBS As Observer >>> >>> >>> Public Sub Form_Open() >>> >>> OBS = New Observer(ProgressBar1.Children[0]) As "OBS" >>> >>> End >>> >>> >>> Public Sub OBS_MouseDown() >>> >>> ProgressBar1.Value = Mouse.x / ProgressBar1.W >>> >>> End >>> >> >> ... but note that this solution depends on the ordering of children in the >> ProgressBar control, which you have no control over or guarantees about. >> >> Fabien is perfectly right with his answer but if I decide tomorrow to put >> another thing into the ProgressBar, the above code may not work any longer. >> >> Regards, >> Tobi >> >> -- >> "There's an old saying: Don't change anything... ever!" -- Mr. Monk >> >> ------------------------------------------------------------------------------ >> Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server >> from Actuate! Instantly Supercharge Your Business Reports and Dashboards >> with Interactivity, Sharing, Native Excel Exports, App Integration & more >> Get technology previously reserved for billion-dollar corporations, FREE >> http://pubads.g.doubleclick.net/gampad/clk?id=157005751&iu=/4140/ostg.clktrk >> _______________________________________________ >> Gambas-user mailing list >> [email protected] >> https://lists.sourceforge.net/lists/listinfo/gambas-user > > > > -- > Fabien Bodard -- Fabien Bodard ------------------------------------------------------------------------------ Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server from Actuate! Instantly Supercharge Your Business Reports and Dashboards with Interactivity, Sharing, Native Excel Exports, App Integration & more Get technology previously reserved for billion-dollar corporations, FREE http://pubads.g.doubleclick.net/gampad/clk?id=157005751&iu=/4140/ostg.clktrk _______________________________________________ Gambas-user mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
