VB.net VC++.net の構造体配列について (ID:91280)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

はじめまして。
早速ですが、VB.net、VC++.net間のDLLでの
構造体配列の引渡しで行き詰まっています。
過去ログも読み、参考にさせていただきましたが、うまく動きません。
単純な構造体の場合は正常に取得できています。
次のようなコードです。アドバイスをいただけませんでしょうか。
初心者で本当に申し訳ありません。
［VB.net 2003］
Public Structure STRUCTSHEET
	Dim SheetType As String
	Dim SheetName As String
End Structure

Declare Auto Function OnAir Lib "vs.dll" Alias "OnAir" ( _
  <[In](), Out()> ByRef sts() As STRUCTSHEET) As Integer

Private Sub ButtonTest_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTest.Click
    Dim sts(1) As STRUCTSHEET
    With sts(0)
        .SheetType = "テスト_0"
        .SheetName = "テストデモ_0"
    End With
    With sts(1)
        .SheetType = "テスト_1"
        .SheetName = "テストデモ_1"
    End With
    RetVal = OnAir(sts)
End Sub

［VC++.net 2003］
typedef struct _STRUCTSHEET {
    BSTR SheetType;
    BSTR SheetName;
} STRUCTSHEET[240] ;

EXPORT int __stdcall OnAir(STRUCTSHEET *sts);

EXPORT int __stdcall OnAir(STRUCTSHEET *sts)
{
    MessageBox(NULL, (LPCSTR)sts[0]->SheetType, "メッセージ", MB_OK);
}

よろしくお願いいたします。

←解決時は質問者本人がここをチェックしてください。

戻る