Solved

Form giving "specified cast is not valid" in call expecting object

Posted on 2006-11-16
1
235 Views
Last Modified: 2010-04-23
I am adding a property to some of my forms and would like to be able to check for it's existence without using error trapping (just trying to be more elegant).
I found this nice code for checking the existence of a property of an object here at EE and so implemented it (with a little customization naturally).

However, as you can see with the example calls below, it works for controls but not forms.
Does anyone know of an elegant way of doing this with forms or should I just use do something basic like use error trapping or keep a hard coded list of the forms that I want to track as having certain characteristics.

Also, I am just starting with vb.net (got years of VB2-6 though) and my understanding was that forms in vb.net were regarded as true forms/objects (in the old VB they were fudged a bit in some respects) so I am little puzzled as to why this does not work with forms, any enlightenment would be appreciated.

ret = HasProp(Myform.MyControl, "MyProperty")  ' This works
ret = HasProp(Myform, "MyProperty")  ' This does not work

Public Function HasProp(ByRef obj As Object, ByVal sProp$) As Boolean
            Dim prop As TLI.MemberInfo
            Dim TL As TLI.TLIApplication
            Dim oInterface As TLI.InterfaceInfo

            TL = New TLI.TLIApplication
            oInterface = TL.InterfaceInfoFromObject(obj) ' This is the line that gives the error: "specified cast is not valid"

            For Each prop In oInterface.Members
                  If UCase(prop.Name) = UCase(sProp) Then
                        Select Case prop.InvokeKind
                              Case _
                               TLI.InvokeKinds.INVOKE_PROPERTYGET OrElse _
                               TLI.InvokeKinds.INVOKE_PROPERTYPUT OrElse _
                               TLI.InvokeKinds.INVOKE_PROPERTYPUTREF
                                    Return True

                        End Select
                  End If
            Next

            Return False
  end function

One other question. In all the examples of this code on EE I saw something like:
                              Case INVOKE_PROPERTYGET

That would not work for me and I had to fully qualify it as:
                              Case TLI.InvokeKinds.INVOKE_PROPERTYGET

If there is something I missing on being able to use shorter qualifying I would appreciate knowing how. I did try using "with TLI.InvokeKinds" but that was not allowed, as I suspected would be the case.


0
Comment
Question by:RegProctor
1 Comment
 
LVL 96

Accepted Solution

by:
Bob Learned earned 250 total points
Comment Utility
Sounds like you could be using System.Reflection calls instead:

Imports System.Reflection

...

        Dim prop As PropertyInfo = Me.GetType().GetProperty("name")

Bob
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now