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
