Problems with VB.NET programs

Hi Eenny0916 

Can you explain further the issue you are having?

A quick glance here I want to say that you need to do it in this order. Dim with Declaration, then you need to Set the variable.

Sub Main

Dim DmisApp As Object
Dim DmisPart As Object
Dim PartName As String

Set DmisApp = CreateObject("PCDLRN.Application")
Set DmisPart = DmisApp.ActivePartProgram
Set PartName = DmisPart.Name

MsgBox(PartName)

End Sub

Hi Eenny0916 

Can you explain further the issue you are having?

A quick glance here I want to say that you need to do it in this order. Dim with Declaration, then you need to Set the variable.

Sub Main

Dim DmisApp As Object
Dim DmisPart As Object
Dim PartName As String

Set DmisApp = CreateObject("PCDLRN.Application")
Set DmisPart = DmisApp.ActivePartProgram
Set PartName = DmisPart.Name

MsgBox(PartName)

End Sub

 PC-DMIS version I am using is 2023, but an error occurred when I switched to the 2022 PC version. Error occurred: System exception: Unable to create FX component. Most importantly, when I switched to version 2023, I was unable to debug properly. I am using VS2022 software and the development language is VB. NET. If you have any relevant examples, can you send them to me for testing.

Imports PCDLRN Imports PCDLRN.PCDSCANDIR1 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim pcdApp As Application = CreateObject("PCDLRN.Application") Dim pcdParts As PartPrograms = pcdApp.PartPrograms Dim pcdPart As PartProgram = pcdApp.ActivePartProgram Dim pcName = pcdPart.Name MsgBox(pcName) End Sub End Class

There was a user here that did a lot of work in Visual Studio for automation. But he has retired. I'm hope this information and his examples can help you.

 RE: Yet another example of PC-Dmis Automation in VB 

 RE: PC-Dmis Automation C# 

thanks you

Did you get your Visual studio working again at least?

yes.