VBプロジェクトから外部DLLにユーザー定義型変数を渡すには (ID:89839)

名前

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

本文

魔界様いつもご教示ありがとうございます。

魔界様の言うとおりにチェックしてみましたが、一応DLL上でユーザー定義型を宣言しているつもりですが、まだ同じエラーが出て困っています。
対処方法を教えてください。

以下に、■DLL呼出し側／■DLL側について要所部分だけを抜粋します。

■DLL側
※Classモジュール(名称:Class1)内
    Type myStock
        Date As Date
        Open As Double
        High As Double
        Low As Double
        Close As Double
        Volume As Double
    End Type
    
Sub DrawChart(StockY() As myStock, NUM_StockY As Long)
    Dim Chart1 As Form1
    Dim i As Long
    
    For i = 1 To NUM_StockY
        StockX(i) = StockY(i)
    Next i
    'StockY():受け渡しのための変数（ユーザー定義 myStock型）
    'StockX():内部で使用のグローバル変数（ユーザー定義 myStock型）

Set Chart1 = New Form1
    Chart1.Show
End Sub

■DLL呼出し側
    Type myStock
        Date As Date
        Open As Double
        High As Double
        Low As Double
        Close As Double
        Volume As Double
    End Type

Public StockX(1 To 5000) As myStock
    Dim StockY(1 To 5000, 1 To 6) As Variant
    
Sub ChartDLLCall()
    Dim CHARTOBJ As Object
    Dim i As Long
    
    Set CHARTOBJ = CreateObject("Chart.Class1")

'以下はチェックのため、データをエクセルシートから取得
    For i = 1 To 50
        StockX(i).Date = Cells(i, 1).Value
        StockX(i).Open = Cells(i, 2).Value
        StockX(i).High = Cells(i, 3).Value
        StockX(i).Low = Cells(i, 4).Value
        StockX(i).Close = Cells(i, 5).Value
        StockX(i).Volume = Cells(i, 6).Value
    Next i
    
    Call CHARTOBJ.DrawChart(StockX(), 50)
'>>>★★★                  ~~~~~~~~~ここでエラーが出ます
    
    'Set CHARTOBJ = Nothing
End Sub

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

戻る