On Mon, 2013-09-30 at 09:26 +0200, Tobias Boege wrote:
> On Mon, 30 Sep 2013, Bruce wrote:
> > Aaaaarrrgghhh! I've done this a zillion times before but today I can't
> > find an example.
> >
> >
> > How do I get the type of the Application.CurrentControl control?
> >
> > It's not TypeOf() as that returns gb.Object
> > I need to know if it has a text or value so I can copy it to the
> > clipboard,
> >
>
> To get the type (class name) of an object (you were so close :-)):
>
> Object.Type(Application.CurrentControl)
>
> but you could also directly check for a Text or Value property:
>
> Dim hClass As Class = Object.Class(Application.CurrentControl)
>
> If hClass.Exist("Text") And If hClass["Text"].Kind = Class.Property
> Then
> HasText()
> Else If hClass.Exist("Value") And If hClass["Value"].Kind =
> Class.Property Then
> HasValue()
> Endif
>
> or probably a bit faster but a little ugly:
>
> Dim vValue As Variant
>
> Try vValue = Application.CurrentControl.Value
> If Not Error Goto _Found
> Try vValue = Application.CurrentControl.Text
> If Not Error Goto _Found
> NothingToCopy()
> Return
> _Found:
> CopyToClipboard()
>
> Regards,
> Tobi
Thanks Tobi. In fact, thanks twice.
I think we'll go for the second option as it will handle the dozens of
custom controls we use.
(Thinking a bit in the background... maybe it would be nice if all
controls had a "CurrentValue" property? ... then in cases like
this ... your third option could reduce to a Select
TypeOf(Application.CurrentControl.CurrentValue). I can even see that
working for gridded controls.)
Bruce
------------------------------------------------------------------------------
October Webinars: Code for Performance
Free Intel webinars can help you accelerate application performance.
Explore tips for MPI, OpenMP, advanced profiling, and more. Get the most from
the latest Intel processors and coprocessors. See abstracts and register >
http://pubads.g.doubleclick.net/gampad/clk?id=60133471&iu=/4140/ostg.clktrk
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
