常連

Visual Basic 6.0 にて作成したアプリ(32bit用)を Windows 10 (64bit) 上で
動作させようとしたところ、

Component '********.ocx' or one of its dependencies not correctly registered: a file is missing or invalid

とエラー表示され、実行できない。

********.ocx は、c:\Windows\SysWOW64 フォルダ内に実在しています。

本アプリを dependency walker にて依存関係を調べたところ、

MSVBVM60.DLL が見つからないとエラーが出ました。

しかしながら、c:\Windows\SysWOW64 フォルダ内に msvbvm60.dll は存在しています。
（ファイル名が、大文字／小文字という違いはあります）

また、********.ocx も同様に dependency walker にて依存関係を調べたところ、

API-MS-WIN-CRT-********-l1-1-0.DLL
API-MS-WIN-CORE-********-l1-1-0.DLL
API-MS-WIN-GDI-********-l1-1-0.DLL
API-MS-WIN-SECURITY-********-l1-1-0.DLL
API-MS-WIN-SERVICE-********-l1-1-0.DLL
EXT-MS-WIN-GDI-********-l1-1-0.DLL

など、ファイルが見つからないと大量のエラーが出ました。

これらの DLL ファイルも、c:\Windows\SysWOW64\downlevel フォルダに存在しています。
（こちらもファイル名が、大文字／小文字という違いはあります）

解決するためにはどのように対応すれば良いでしょうか？

どなたかご教授を宜しくお願い致します。

Visual Basic 6.0 にて作成したアプリを Windows 10 上で動作させたい

**概要**

現在以下の環境にて、Excelセルのデータを他アプリケーションに貼り付ける処理を実装しています。

- Windows10 (64bit)
- MS Excel2016 (32bit)

処理としては、DataObjectを使用してセルデータをクリップボードにコピーし、
他アプリケーションに貼り付ける処理を実装しています。
また、「Microsoft Forms 2.0 Object Library」を使用しています。

**知りたいこと**
上記事象が発生する「**原因**」をご教示頂きたいです。

---
**プログラム(抜粋)**
```VBA
Public Sub SampleCode

  ' 変数宣言  
  Dim dataObj as DataObject

  ' オブジェクト取得
  Set dataObj = new DataObject
  
  ' セルの値をクリップボードに設定
  With dataObj
    .SetText(Sheet1.Range("A1").Text)
    .PutInClipBoard
  End With
  
  ' 正しく値が取得できる
  Debug.Print dataObj.GetText
  
  ' 2秒待機
  Application.Wait Now() + TimeValue("00:00:02")
  
  ' **************************************************
  ' 正しく値が取得できない
  ' **************************************************
  Debug.Print dataObj.GetText
  
End Sub
```
---
補足情報として、当該事象は発生する端末と発生しない端末があります。
これらの端末間で、
「Microsoft Forms 2.0 Object Library」にて使用している「FM20.dll」ファイルの
差分はありませんでした。

また、本事象については、回避方法を検討済みです。
セルの値をクリップボートに設定する処理について、
DataObject を使用せず、「Sheet1.Range("A1").Copy」などで直接クリップボードに
コピーすると事象を回避できるようです。


冒頭にも述べた通り、本事象が発生する**原因**をご教示頂きたいです。


以上、なにとぞお助け頂けますと幸いです。

Windows10環境にてExcel VBAのDataObjectを使用すると文字化けする

### 実現したいこと
あるアプリケーションをVB6ベースからC#ベースへ移行しています。
その中で、C++ベースのActiveXコントロールを追加する必要があるのですが、アクセス違反が発生してしまいます。

### 発生している問題・分からないこと
- **一つ目**
aximpコマンドで生成したAx*.dllを参照に追加し、Loadイベントでnew()およびthis.Controls.Add()すると、this.Controls.Add()の箇所で下記が発生してしまいます。
0xC0000005: 場所 0x0CBF10DC の実行中にアクセス違反が発生しました

気になっている点の一つとして、new()の後、this.Controls.Add()の前に当該インスタンスの中身を確認すると、Enabledプロパティの箇所で下記が発生してしまいます。

'VS2022NET80ActiveX.exe' (Win32): 'C:\Windows\SysWOW64\sxs.dll' が読み込まれました。
0x031F8D28 で例外がスローされました (VS2022NET80ActiveX.exe 内): 0xC0000005: 場所 0x031F8D28 の実行中にアクセス違反が発生しました
共通言語ランタイムは、この例外で停止できません。一般的な原因は、正しくない COM 相互運用機能のマーシャリングやメモリの破損などです。さらに調べるには、ネイティブのみのデバッグを使用します。
プログラム '[11632] VS2022NET80ActiveX.exe' はコード 3221225477 (0xc0000005) 'Access violation' で終了しました。

Enabledプロパティを確認する前、例えば、下記のようなプロパティでも「例外をスローしました」と表示されている状況です。
+		AssertTime	'this._axNetMTrend.AssertTime' は型 'System.Windows.Forms.AxHost.InvalidActiveXStateException' の例外をスローしました	System.DateTime {System.Windows.Forms.AxHost.InvalidActiveXStateException}
+		CallUpID	'this._axNetMTrend.CallUpID' は型 'System.Windows.Forms.AxHost.InvalidActiveXStateException' の例外をスローしました	string {System.Windows.Forms.AxHost.InvalidActiveXStateException}
+		CtlEnabled	'this._axNetMTrend.CtlEnabled' は型 'System.Windows.Forms.AxHost.InvalidActiveXStateException' の例外をスローしました	bool {System.Windows.Forms.AxHost.InvalidActiveXStateException}

そのとき、当該インスタンスの親のthisの中身を確認すると、例えば、下記のようなプロパティでも「例外をスローしました」と表示されている状況です。
+		ActiveXAmbientBackColor	'this.ActiveXAmbientBackColor' は型 'System.NotSupportedException' の例外をスローしました	System.Drawing.Color {System.NotSupportedException}
+		ActiveXAmbientFont	'this.ActiveXAmbientFont' は型 'System.NotSupportedException' の例外をスローしました	System.Drawing.Font {System.NotSupportedException}

- **二つ目**
アイテムの選択でActiveXコントロールをツールボックスに追加し、フォームにD&Dすると、下記が発生してしまいます。
- コンポーネント 'AxHost' を作成できませんでした。エラーメッセージ: 'サーバーへの接続が失われました。'
- コンポーネント 'AxHost' を作成できませんでした。エラーメッセージ: 'Microsoft.DotNet.DesignTools.Client.DesignToolsServerException:ダイナミック リンク ライブラリ (DLL) 初期化ルーチンの実行に失敗しました。(0x8007045A)
このとき、Visual Studioのメニューのツール－オプション－Windowsフォームデザイナー－全般－ログ記録レベルをVerboseにし、出力ウィンドウを確認してみました。

**ドロップ前の抜粋（createはできている？）**
[11:39:16.903232] trce: Attempting to create ActiveX ToolboxItem for {GUID（念のため省略）}.
[11:39:16.903232] trce: Sending request: ActiveX/IsControlSupported
[11:39:16.918870] trce: ActiveX/IsControlSupported took 00:00:00.0016753.
[11:39:16.918870] trce: Sending request: ActiveX/GetControlVersionString
[11:39:16.918870] trce: ActiveX/GetControlVersionString took 00:00:00.0020398.
[11:39:16.922386] trce: ActiveX ToolboxItem successfully created for {GUID（念のため省略）}.
[11:39:16.922386] trce: Sending request: Input/InputMessage
[11:39:16.922386] trce: Input/InputMessage took 00:00:00.0019627.

**ドロップ後の抜粋**
[11:40:03.392478] trce: Attempting to create ActiveX ToolboxItem for {GUID（念のため省略）}.
[11:40:03.392478] trce: Sending request: ActiveX/IsControlSupported
[11:40:03.392478] trce: ActiveX/IsControlSupported took 00:00:00.0011153.
[11:40:03.392478] trce: Sending request: ActiveX/GetControlVersionString
[11:40:03.392478] trce: ActiveX/GetControlVersionString took 00:00:00.0010825.
[11:40:03.392478] trce: ActiveX ToolboxItem successfully created for {GUID（念のため省略）}.
[11:40:03.392478] trce: Sending request: Transactions/Open
[11:40:03.392478] trce: Transactions/Open took 00:00:00.0013603.
[11:40:03.392478] trce: Notifying 1 'Undo/UndoUnitCreated' handlers
[11:40:03.392478] trce: 'Undo/UndoUnitCreated' notification received: ツール 'AxHost' でコンポーネントを作成しています。.5bf92b0d-fb14-4256-a04b-bbecadc30608
[11:40:03.392478] trce: Notifying 1 'Transactions/TransactionOpening' handlers
[11:40:03.392478] trce: Notifying 1 'Transactions/TransactionOpened' handlers
[11:40:03.392478] trce: Sending request: Types/FindTypeUsingClsid
[11:40:03.392478] trce: Types/FindTypeUsingClsid took 00:00:00.0010848.
[11:40:03.392478] trce: Sending request: DesignerHosts/CreateComponent
[11:40:10.323256] trce: DesignerHosts/CreateComponent took 00:00:06.9258470.
[11:40:10.323256] fail: Request failures: DesignerHosts/CreateComponent.
                        Microsoft.DotNet.DesignTools.Client.DesignToolsServerException: ダイナミック リンク ライブラリ (DLL) 初期化ルーチンの実行に失敗しました。 (0x8007045A)

※ツールボックスへの追加はできているのですが、フォームへの追加はできていない状況です。

### 試したこと・調べたこと
当該ActiveXコントロール（C++ベースの.dll）から呼び出していると思われる別のActiveXコントロール（VB6ベースの.ocx）については、一つ目の方法でも二つ目の方法でも追加できているようですので、当該ActiveXコントロール特有の問題と考えています。

移行元のVB6のソースコードは素直です。
したがって、ラッパ等の意識していない箇所が、VB6の場合はよしなに対応していた可能性も考えています。
```VB6のソースコードを要約したもの
Private WithEvents control As VBControlExtender
Set control = Me.Controls.Add("foo.bar", "baz")
```

なぜか例外のトリガとなるEnabledプロパティはVARIANT_BOOL型を扱っているため少し気にはなりますが、ドキュメントによるとSystem.Booleanにマーシャリングされるようですので、その点については問題ないと考えています。
強いて言えば、プロパティを設定する順番に依存性があると今回のようなことになりうるだろうか？とは思ったりしています。

### 補足
**開発環境**
Visual Studio 2022
.NET 8.0
C# 12.0
プラットフォームターゲット：x86
当該ActiveXコントロールは32bit版であり、32bit版のregsvr32コマンドで登録しています。

当該ActiveXコントロールを再コンパイルしようと思いましたが、多くのエラーが発生します。
行数も数万行あり、this.Controls.Add()の箇所で例外が発生しているとなるとどこから確認すれば良いのかも分からず、少しでも原因を絞りたい次第です。

少しでも何か気づいたことがあれば、ご教授いただけると助かります。
よろしくお願いいたします。

C# C++ActiveXコントロール追加時のアクセス違反について

###前提・実現したいこと
一応、環境情報を。
OS：Windows 10 (x64)
Tool：Visual Studio 2013、VisualStudio2015の2種
言語：C#.Net 及び VB.Net

いくつかのソリューションで使いまわしているDLLファイルが有ります。
そのDLLをソリューションに追加し、参照追加しようとすると、参照マネージャーではローカルパスを指定しなくては当然ながら追加できません。


###問題
上記の方法では、例えばソース管理下で複数のユーザーがUserディレクトリ下で作業する際には、ローカルパスを参照し直さなくてはなりません。
これを相対パスに変更することが出来れば、そういった問題を回避できると思っていますが、方法が発見できず困っています。

以下に簡単な再現方法を示します。
（TFSのワークスペースはUser\ユーザー名\Documentsを指しているものとします）
例：
①NewtonsoftからNewtonsoft.Json.dllをダウンロード
②ソリューションに必要なDLLなので、ローカルパス指定で参照追加し、TFSにコミットした。
③他の開発者がTFSからソースを取得すると、②の作業担当者のローカルパスが指定されており、取得段階では参照できなくなっている。

何とか、このソース取得後に参照できない、という問題を回避する方法が無いかと探しております。

###試したこと
当たり前ですが、DLLを生成するプロジェクト自体をソリューション下に配置すればプロジェクトのプライマリ出力が追加でき、このパスはソリューションに対して相対パスになるようで参照追加できます。
ただ、それではDLL化してばら撒くメリットがないのです...

外部DLLの参照追加を相対パスで追加したい

### 実現したいこと
あるアプリケーションをVB6ベースからC#ベースへ移行しています。
その中で、COMコンポーネントとして登録したC++ベースのDLLのメソッドを呼び出しているのですが、そのメソッドのVARIANT型の出力引数を取得したいです。

### 発生している問題・分からないこと
VARIANT型の出力引数を取得できていません。
VARIANT型を模倣した構造体を引数として与えていますが、出力が代入されることを期待しているプロパティがメソッドの呼び出し前後で変化していません。

### 該当のソースコード

```C++ベースのメソッドの定義
bool SDBServiceClass::GetField(
	_bstr_t			bstrKey,					// In    : key
	_bstr_t			bstrDestinationNetworkName,	// In    : 要求先ネットワーク名
	_bstr_t			bstrFieldName,				// In    : フィールド名
	short			shFieldNo,					// In    : フィールド番号
	VARIANT			*pvarData					// Out   : データ
)
```

```C++ベースのVARIANT型の定義
typedef /* [wire_marshal] */ struct tagVARIANT VARIANT;

struct tagVARIANT
    {
    union 
        {
        struct __tagVARIANT
            {
            VARTYPE vt;
            WORD wReserved1;
            WORD wReserved2;
            WORD wReserved3;
            union 
                {
                LONGLONG llVal;
                LONG lVal;
                BYTE bVal;
                SHORT iVal;
                FLOAT fltVal;
                DOUBLE dblVal;
                VARIANT_BOOL boolVal;
                _VARIANT_BOOL bool;
                SCODE scode;
                CY cyVal;
                DATE date;
                BSTR bstrVal;
                IUnknown *punkVal;
                IDispatch *pdispVal;
                SAFEARRAY *parray;
                BYTE *pbVal;
                SHORT *piVal;
                LONG *plVal;
                LONGLONG *pllVal;
                FLOAT *pfltVal;
                DOUBLE *pdblVal;
                VARIANT_BOOL *pboolVal;
                _VARIANT_BOOL *pbool;
                SCODE *pscode;
                CY *pcyVal;
                DATE *pdate;
                BSTR *pbstrVal;
                IUnknown **ppunkVal;
                IDispatch **ppdispVal;
                SAFEARRAY **pparray;
                VARIANT *pvarVal;
                PVOID byref;
                CHAR cVal;
                USHORT uiVal;
                ULONG ulVal;
                ULONGLONG ullVal;
                INT intVal;
                UINT uintVal;
                DECIMAL *pdecVal;
                CHAR *pcVal;
                USHORT *puiVal;
                ULONG *pulVal;
                ULONGLONG *pullVal;
                INT *pintVal;
                UINT *puintVal;
                struct __tagBRECORD
                    {
                    PVOID pvRecord;
                    IRecordInfo *pRecInfo;
                    } 	__VARIANT_NAME_4;
                } 	__VARIANT_NAME_3;
            } 	__VARIANT_NAME_2;
        DECIMAL decVal;
        } 	__VARIANT_NAME_1;
    } ;
```

```C++ベースのメソッドの抜粋
		case 5:			// char型	//
			// -----------  ■　文字列(char)型の場合
			if ( ( pvarData->vt & VT_BSTR ) &&
				 ( pvarData->vt & VT_BYREF ) ) {
				*(pvarData->pbstrVal) = bstrData.copy();
			}
			break;

		default:
			m_cscSDBService.Unlock();			// ロック解除(SDBMSデータサービスクラス用)
			return false;	// 異常終了

※VT_BSTR=8、VT_BYREF=16384
```

```C#、VisualStudio上でカーソルを当てたときに表示されるポップアップから飛んだC++ベースのDLLのメソッドの定義
bool GetField([In][MarshalAs(UnmanagedType.BStr)] string Key, [In][MarshalAs(UnmanagedType.BStr)] string NetworkName = "", [In][MarshalAs(UnmanagedType.BStr)] string FieldName = "", [In] int FieldNo = 0, [In][Out][MarshalAs(UnmanagedType.Struct)] ref object pData);
```

```C#、現在のコードの抜粋
var data1 = new VARIANT { vt = (ushort)(VarEnum.VT_BSTR | VarEnum.VT_BYREF) };
var pData1 = Marshal.AllocCoTaskMem(Marshal.SizeOf(data1));
Marshal.StructureToPtr(data1, pData1, true);
var result1 = _netMSDBService.GetField(key, networkName, "TAG", 0, pData1);

        [StructLayout(LayoutKind.Sequential, Pack = 8)]
        private struct VARIANT
        {
            public ushort vt;
            public IntPtr pVal;
        }
```

### 試したこと・調べたこと
①当該メソッドを通っているかを確認しました。
別の引数によりswitch文のルートが決まります（C++メソッドの抜粋を参照）。期待している値の場合は戻り値としてtrue、期待していない値の場合は戻り値としてfalseが返るようになっており、true/falseが切り替わることは確認済みです。
現在のC#コードの場合は、case 5を通ることも問題ありません。
②デバッガでメソッドの呼び出し前後の構造体の中身を確認しました。
初期化後：pVal=0x00000000、vt=16392
メソッドの呼び出し後：pVal=0x00000000、vt=16392
pData1にも逐次適当な値が設定されています（例えば、0x0b1fd248）。

### 補足
VisualStudio2022、.Net8.0、C#12.0を使用しています。
C++内部の状態を確認するための仕込みをし再コンパイルしようと思いましたが、optional parameters must come after required parameters等、多くのエラーが発生している状態です。
そもそも、代入する値（bstrData（C++メソッドの抜粋を参照））が正しく設定されていない可能性も否めないのですが、現在のC#コードには問題はないのか、何か勘違いをしていないか等を知り、少しでも原因を絞りたい次第です。
何か気づいたことがあれば、ご教授いただけると助かります。些細なことでも構いません。
よろしくお願いいたします。

C# C++DLLメソッド呼出（COMコンポーネント） VARIANT型出力引数の取得

### 前提
C#でDLLを作成しています。
作成したDLLを実行すると、System.Runtimeが見つからない旨のエラーメッセージが発生しました。
google検索もしましたが、解決策を見つけられませんでした。

### 実現したいこと
下記URLのプログラムを実行したいです。
https://www.chuken-engineer.com/entry/2020/12/21/170816

### 発生している問題・エラーメッセージ
```
System.IO.FileNotFoundException: 'ファイルまたはアセンブリ 'System.Runtime, Version=6.0.0.0, Culture=neutral, 
PublicKeyToken=b03f5f7f11d50a3a'、またはその依存関係の 1 つが読み込めませんでした。指定されたファイルが見つかりません。
```

### 該当のソースコード
```C#
namespace Calc
{
    public class Addition
    {
        public static int Integer(int a, int b)
        {
            return a + b;
        }

        public static float Decimal(float a, float b)
        {
            return a + b;
        }
    }

    public class Subtraction
    {
        public static int Integer(int a, int b)
        {
            return a - b;
        }

        public static float Decimal(float a, float b)
        {
            return a - b;
        }
    }
}
```
```C#
using System;

namespace CalcTest
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.WriteLine(Calc.Addition.Integer(2, 1));
            Console.WriteLine(Calc.Addition.Decimal(0.2f, 0.1f));
            Console.WriteLine(Calc.Subtraction.Integer(2, 1));
            Console.WriteLine(Calc.Subtraction.Decimal(0.2f, 0.1f));
            Console.Read();
        }
    }
}
```

### 試したこと
・exeとexe.configが同一フォルダにあることを確認
・PCを初期化（Windows10も再インストール）
・.NET 6.0（SDK 6.0.202）のWindows x64をインストール
・.NET Framework 4.8 Developer Pack Offlineをインストール
・ネイティブコードデバッグを有効にするにチェックを入れる
・App.config記載のバージョン4.0を、6.0や4.8に変更

### 補足情報（ツールのバージョンなど）
・Windows 10
・Visual Studio 2022
・.NET 6.0
・.NET Framework 4.8

C++、C、Excel VBAの初歩的なプログラミングは経験はありますが、
DLL作成、Visual Studio使用、C#、.NETは初めてです。

[.NETの入門書](https://www.amazon.co.jp/%E6%9C%80%E9%80%9F%E6%94%BB%E7%95%A5AutoCAD-VB-NET%E3%83%9E%E3%82%AF%E3%83%AD%E3%82%B5%E3%83%B3%E3%83%97%E3%83%AB%E5%A4%A7%E5%85%A8%E9%9B%86AutoCAD2009-2010-2011-2013%E5%AF%BE%E5%BF%9C/dp/4774152544)を購入して学習しています。
書籍付属CDのサンプルDLLは実行できたのですが、
作成したDLLは上記と同じエラーが出てしまい動きませんでした。
原因を探るうち、[上記URL](https://www.chuken-engineer.com/entry/2020/12/21/170816)のコードでも、同じエラーが出ることが判明しました。

上記エラーについて、ご教授賜りたく、よろしくお願いいたします。


DLLを作成して実行すると「System.Runtime」のエラーが出ます

### 発生している問題

①フォームA（.NET Framework4.8）をdllとして作成し、同ソリューション内のテストフォーム（.NET Framework4.8）からShowしたときのレイアウトと、
②別ソリューション内のテストフォーム（.NET 8.0）からdllとして作成したフォームB（.NET Framework4.8）をShowし、そのフォームBからフォームAをShowしたときのレイアウトが異なってしまいます。

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-12-12/6f162bb7-18f5-475f-ac14-74eead7df23c.png)
①（意図しているレイアウト）

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-12-12/21a86048-df34-44a3-be77-bb12194d4de7.png)
②（意図していないレイアウト）

### 前提

具体的には、PictureBoxを貼り付け、そのPaintイベントの中で縦n×横mに見本色のようなものをタイル状に表示させているのですが、そのレイアウトが崩れてしまいます。

①ではフォームの幅一杯に表示されている（させている）のですが、
②では右側に余白が生じています。また、フォーム自体のサイズも微妙に異なっています。

フォームAはFixedDialogで作成しています。
GraphicsクラスのFillRectangle()によりその色タイルを描画していますが、FixedDialogありきのため、サイズ等には固定値を使用しています。
AutoScaleModeはデフォルトのFontです。

フォームBについては出所が異なることもあり、AutoScaleModeをDpiにしていたこともありますが、今はフォームAに合わせFontにしています。

ソリューションのクリーン等も行っていますが、未解決です。

何か原因等をご存じであれば、ご教授いただきたい次第です。
よろしくお願いいたします。

WinForms DLLとして作成したフォームを別ソリューションから呼び出すとレイアウトが崩れてしまう

閲覧ありがとうございます。

Visual studio2017,C#で開発を行っています。その際に、C++で作成されたDLLを使用しているのですが、DLLの返す値だけではなく、DLLの中に入り込み、DLLの中で正しい値などが返っているかを、ブレークポイントなどを入れて確かめたいです。

現在のままではDLLのところに来た際に値だけが返ってくるので、そのC++のDLLの中の処理に飛びたいんです。

そのやり方をご教授頂けますでしょうか。

説明が足らずでしたら申し訳ありません。