Userform show from CATIA toolbar 2

[Nebojsa Milic]

Hi there,

I'm trying to show userform with commands which are linked to VBA modules.
I have a module "Main_Userform_Show" which has sub procedure and vbModeless code:

Sub UsrfrmShow()
[/indent]Userform1.Show vbModeless
End Sub

When ran from module, Userform1 appears.

When ran from toolbar or CATScript which Ferdo provided, nothing happens;

Sub UsrfrmShow()

Dim param ()
Dim oFilePath, oFileName, oModule As String
Dim oSystemService As Variant
Set oSystemService = CATIA.SystemService

oFilePath = "D:\Works\_Macro\VBA"
oFileName = "VBA LIBRARY.catvba"
oModule = "Main_Userform_Show" ' module name

Dim ss as Variant
Set ss = Catia.SystemService
ss.ExecuteScript oFilePath & oFileName , catScriptLibraryTypeVBAProject , oModule , "UsrfrmShow" , param

Names of userform and module:

https://files.engineering.com/getfi...0c-402f-b3f3-b2adeadb7b78&file=ModuleName.bmp

https://files.engineering.com/getfi...91b-4faf-bb30-b3061f277d11&file=Userform1.bmp

Can anyone point me to right direction?

End Sub

 

[Little Cthulhu]

Change vba code to:

private frm as userform1
Sub UsrfrmShow()
  Set frm = new UserForm1
  frm.Show vbModeless
End Sub

 

[Nebojsa Milic]

Thanks @Little Cthulhu.
Sorry for late answer, I have managed to do it just renaming UsrfrmShow() to SubCATMain() and it worked...

 

[Santa123]

Hi,

I'm trying to run UserForm from CATScript using code above, but I am getting an error, Class UserForm does not exist