topic how to addin a user-defined form in Inventor Programming Forum

how to addin a user-defined form

Anonymous — Tue, 26 Aug 2003 17:40:11 GMT

I have successfully addin a icon in Inventor 7, and I define a form. I want
to click the icon to run the form. When I click the icon, there is a error
that undefined object or with block.
My code is:

Option Explicit
Implements ApplicationAddInServer
Public oApp As Inventor.Application
Public WithEvents oButtonHandler1 As ButtonDefinitionHandler

......

Private Sub oButtonHandler1_OnClick()
'my defined form

Dia_Pbom.Show

End Sub

Re: how to addin a user-defined form

Anonymous — Wed, 27 Aug 2003 01:16:11 GMT

You might need to create the form as a new form first before showing it:

dim aForm as new Form1

aForm.show

Hope this helps, can't remember whether you need the "new" statement or not,
but from memory this should work.

"zhao ting" wrote in message
news:968700A9402FF67DF5704EA90BDD843E@in.WebX.maYIadrTaRb...
> I have successfully addin a icon in Inventor 7, and I define a form. I
want
> to click the icon to run the form. When I click the icon, there is a error
> that undefined object or with block.
> My code is:
>
> Option Explicit
> Implements ApplicationAddInServer
> Public oApp As Inventor.Application
> Public WithEvents oButtonHandler1 As ButtonDefinitionHandler
>
>
> ......
>
> Private Sub oButtonHandler1_OnClick()
> 'my defined form
>
> Dia_Pbom.Show
>
> End Sub
>
>

Re:

Anonymous — Wed, 27 Aug 2003 18:54:38 GMT

J Smith
I am a novice in VB, thank you for your help!
Now I can do the initialization of the form1 in my class module. As follow
code.

Public Sub oButtonHandler1_OnClick()

form1.daihao = oApp.ActiveDocument.PropertySets.Item(3).Item("Part
Number").Value
form1.xinghao =
oApp.ActiveDocument.PropertySets.Item(1).Item("Keywords").Value
form1.mingcheng =
oApp.ActiveDocument.PropertySets.Item(3).Item("Description").Value

form1.Show

End Sub
There is the error if I click command1 button, even though I do it as your
advice.

zhao ting

"" ????
news:1E8A00A3B115A5F823C336F4D79B18D2@in.WebX.maYIadrTaRb...
> You might need to create the form as a new form first before showing it:
>
> dim aForm as new Form1
>
> aForm.show
>
> Hope this helps, can't remember whether you need the "new" statement or
not,
> but from memory this should work.
>
>
> "zhao ting" wrote in message
> news:968700A9402FF67DF5704EA90BDD843E@in.WebX.maYIadrTaRb...
> > I have successfully addin a icon in Inventor 7, and I define a form. I
> want
> > to click the icon to run the form. When I click the icon, there is a
error
> > that undefined object or with block.
> > My code is:
> >
> > Option Explicit
> > Implements ApplicationAddInServer
> > Public oApp As Inventor.Application
> > Public WithEvents oButtonHandler1 As ButtonDefinitionHandler
> >
> >
> > ......
> >
> > Private Sub oButtonHandler1_OnClick()
> > 'my defined form
> >
> > Dia_Pbom.Show
> >
> > End Sub
> >
> >
>
>