Including c# program as a reference in a VB.NET app

[rfrank5356]

Hi - I have a VB.NET app that reads a Vectornav GPS/IMU thru a USB port. The VB.Net program has been stable for several years, but has very sparse random failures where the heading data starts spinning. Vectornav has released a new SDK that includes a sample C# program that has access to many internal device registers and provides objects that may allow me to finally diagnose the root cause of these events.

I have set the C# app as a reference in my VB project, and can see the objects . . BUT

when I start a debug session with no change to the VB.Net code, the C# app starts, instead of the code in my Form1 Class.

Copilot diagnosed the problem being in the Application.Designer.vb where

<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.WindowsApplication1.Form1
End Sub

needed to be

Me.MainForm = Global.GPS_IMU_Reader.Form1

There is a caution not to change the code in the application.designer.vb (and in fact the change to the code generates an error) but to make the change in the Project.GPS_Reader Properties application window.

This window is greyed-out - I have attached a screenshot of this page.

[dday9]

It sounds like you're just debugging the wrong application, maybe by hitting the F5 or play button and allowing it to run the default?

What happens if you right-click on your VB.NET project in the Solution Explorer and then select Debug > Start New Instance?

[rfrank5356]

Hi - I got distracted as the issues have become more complex - the GPSIMU app is an older Windows forms app maintained on the Aircraft Win10 computer using vs2017-vs2020, and when the projects were loaded to my dev office system under win11 and vs2020, it was migrated to .NET 4.8. It requires a memory file and I have a CreateMemoryFiles app of the same age that creates several memory files allowing different sensord to share data, and should display a startup form with a button to start. This has no build errors and app displays on the windows ribbon at the bottom of the screen but the form does not display. GitHub Chat has not been helpful . .

[dday9]

It almost sounds like your .vbproj file is corrupt. Could you copy/past the XML from your GPS_Reader.vbproj?

[rfrank5356]

Hi - Here is the vbproj from CreateMemoryFiles - I decided not to include the vbproj from GPS_IMU_Reader since . . .

The second line is a wonder - and got me looking at the vbproj file for a newer app PoolDataLoad which is radically different . . and included below - look for the string of dashes

I renamed the vbproj file and reopened VS2022 - no errors but no build capability - and I got error 0x80004002 - missing interface

I guess one solution would be to create a new project , copy all of the files but eventually I found

https://learn.microsoft.com/en-us/cp...?view=msvc-170

So it looks like I need to migrate all of the older projects to VS2019 first and then to VS2022 . . .

<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <PropertyGroup>
    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
    <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
    <ProductVersion>
    </ProductVersion>
    <SchemaVersion>2.0</SchemaVersion>
    <ProjectGuid>{BC836492-243E-4360-A381-1524BF752817}</ProjectGuid>
    <OutputType>WinExe</OutputType>
    <StartupObject>WindowsApplication1.My.MyApplication</StartupObject>
    <RootNamespace>WindowsApplication1</RootNamespace>
    <AssemblyName>CreateMemoryFiles</AssemblyName>
    <FileAlignment>512</FileAlignment>
    <MyType>WindowsForms</MyType>
    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
    <TargetFrameworkProfile>
    </TargetFrameworkProfile>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
    <PlatformTarget>x86</PlatformTarget>
    <DebugSymbols>true</DebugSymbols>
    <DebugType>full</DebugType>
    <DefineDebug>true</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\Debug\</OutputPath>
    <DocumentationFile>CreateMemoryFiles.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
    <Prefer32Bit>false</Prefer32Bit>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
    <PlatformTarget>x64</PlatformTarget>
    <DebugType>pdbonly</DebugType>
    <DefineDebug>false</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <Optimize>true</Optimize>
    <OutputPath>obj\</OutputPath>
    <DocumentationFile>CreateMemoryFiles.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
    <Prefer32Bit>false</Prefer32Bit>
  </PropertyGroup>
  <PropertyGroup>
    <OptionExplicit>On</OptionExplicit>
  </PropertyGroup>
  <PropertyGroup>
    <OptionCompare>Binary</OptionCompare>
  </PropertyGroup>
  <PropertyGroup>
    <OptionStrict>Off</OptionStrict>
  </PropertyGroup>
  <PropertyGroup>
    <OptionInfer>On</OptionInfer>
  </PropertyGroup>
  <ItemGroup>
    <Reference Include="System" />
    <Reference Include="System.Drawing" />
    <Reference Include="System.Windows.Forms" />
    <Reference Include="System.Xml" />
    <Reference Include="System.Core" />
    <Reference Include="System.Xml.Linq" />
  </ItemGroup>
  <ItemGroup>
    <Import Include="Microsoft.VisualBasic" />
    <Import Include="System" />
    <Import Include="System.Collections" />
    <Import Include="System.Collections.Generic" />
    <Import Include="System.Drawing" />
    <Import Include="System.Diagnostics" />
    <Import Include="System.Windows.Forms" />
    <Import Include="System.Linq" />
    <Import Include="System.Xml.Linq" />
  </ItemGroup>
  <ItemGroup>
    <Compile Include="Form1.vb">
      <SubType>Form</SubType>
    </Compile>
    <Compile Include="Form1.Designer.vb">
      <DependentUpon>Form1.vb</DependentUpon>
      <SubType>Form</SubType>
    </Compile>
    <Compile Include="My Project\AssemblyInfo.vb" />
    <Compile Include="My Project\Application.Designer.vb">
      <AutoGen>True</AutoGen>
      <DependentUpon>Application.myapp</DependentUpon>
      <DesignTime>True</DesignTime>
    </Compile>
    <Compile Include="My Project\Resources.Designer.vb">
      <AutoGen>True</AutoGen>
      <DesignTime>True</DesignTime>
      <DependentUpon>Resources.resx</DependentUpon>
    </Compile>
    <Compile Include="My Project\Settings.Designer.vb">
      <AutoGen>True</AutoGen>
      <DependentUpon>Settings.settings</DependentUpon>
      <DesignTimeSharedInput>True</DesignTimeSharedInput>
    </Compile>
  </ItemGroup>
  <ItemGroup>
    <EmbeddedResource Include="Form1.resx">
      <DependentUpon>Form1.vb</DependentUpon>
    </EmbeddedResource>
    <EmbeddedResource Include="My Project\Resources.resx">
      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
      <CustomToolNamespace>My.Resources</CustomToolNamespace>
      <SubType>Designer</SubType>
    </EmbeddedResource>
  </ItemGroup>
  <ItemGroup>
    <None Include="app.config" />
    <None Include="My Project\Application.myapp">
      <Generator>MyApplicationCodeGenerator</Generator>
      <LastGenOutput>Application.Designer.vb</LastGenOutput>
    </None>
    <None Include="My Project\Settings.settings">
      <Generator>SettingsSingleFileGenerator</Generator>
      <CustomToolNamespace>My</CustomToolNamespace>
      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
    </None>
  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
       Other similar extension points exist, see Microsoft.Common.targets.
  <Target Name="BeforeBuild">
  </Target>
  <Target Name="AfterBuild">
  </Target>
  -->
</Project>

<Project Sdk="Microsoft.NET.Sdk">

  <PropertyGroup>
    <OutputType>WinExe</OutputType>
    <TargetFramework>net8.0-windows</TargetFramework>
    <StartupObject>Sub Main</StartupObject>
    <UseWindowsForms>true</UseWindowsForms>
    <MyType>WindowsForms</MyType>
  </PropertyGroup>

  <ItemGroup>
    <Import Include="System.Data" />
    <Import Include="System.Drawing" />
    <Import Include="System.Windows.Forms" />
  </ItemGroup>

  <ItemGroup>
    <PackageReference Include="MySql.Data" Version="9.4.0" />
    <PackageReference Include="MySqlConnector" Version="2.4.0" />
  </ItemGroup>

  <ItemGroup>
    <Compile Update="My Project\Application.Designer.vb">
      <DesignTime>True</DesignTime>
      <AutoGen>True</AutoGen>
      <DependentUpon>Application.myapp</DependentUpon>
    </Compile>
  </ItemGroup>

  <ItemGroup>
    <None Update="My Project\Application.myapp">
      <Generator>MyApplicationCodeGenerator</Generator>
      <LastGenOutput>Application.Designer.vb</LastGenOutput>
    </None>
  </ItemGroup>

</Project>

[rfrank5356]

Hi - and more entertainment - I found a MS posting which suggested using VS2019 as an intermediate step - for some reason I do not have the rights to download VS2019 from MS, so after searching all or our systems found a copy on an old win10 system, copied the files to a SSD and loaded to our current dev system. But there is no installer or setup.exe. What to do?

https://learn.microsoft.com/en-us/cp...?view=msvc-170

[rfrank5356]

And now really stumped ,. . Another MS suggestion was to recreate the project from scratch in VS2022 - so I created the Create Memory file app and copied the form and code - no errors until debug, the 2 error on file locked and no form display.

The I created a completely new app with 1 start button and 1 text box - now the form displays, but no display in the text box. Here is the code

Imports System.IO.MemoryMappedFiles
Imports System.Threading
Public Class Form1
Public WithEvents MEMSTimer As New System.Windows.Forms.Timer()
Dim LoopForever As Boolean = True
Dim GPSINS_Memory_File_Name As String = "GPSINSMemoryData"
Dim AHRS_Memory_File_Name As String = "AHRSMemoryData"
Dim Switch_Memory_File_Name As String = "SwitchMemoryData"



Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim MMS = MemoryMappedFile.CreateNew(Switch_Memory_File_Name, 20, MemoryMappedFileAccess.ReadWrite)
Dim GPS = MemoryMappedFile.CreateNew(GPSINS_Memory_File_Name, 400, MemoryMappedFileAccess.ReadWrite)
Dim AHRS = MemoryMappedFile.CreateNew(AHRS_Memory_File_Name, 400, MemoryMappedFileAccess.ReadWrite)
Do Until LoopForever = False
'sleep for xx.0 Seconds
Call DisplayStatus
Thread.Sleep(100)
'Button1.BackColor = Color.GreenYellow
'Thread.Sleep(100)
Loop

End Sub

Private Sub DisplayStatus()
TextBox1.Clear()
TextBox1.Text = "Running"
TextBox1.BackColor = Color.Green
End Sub