投稿日	： 2005/03/31(Thu) 17:10
投稿者	： ノス
ＵＲＬ	：
タイトル	： 解決しましたありがとうございます。

Private Sub Command1_Click()
    Dim a As Long
    Dim b As Long
    Dim DKansu As Object

    Set DKansu = CreateObject("Keisan.Class1")　←プロジェクト名.クラス名

    a = CLng(Text1.Text)
    b = CLng(Text2.Text)
    Label1.Caption = DKansu.Kasan(a, b)
End Sub


で実行できるようになりました。どうもありがとうございます。

★ - 作成したDLL使用について - ノス 03/31-13:16No.2720
• Re: 作成したDLL使用について - Say 03/31-13:57 No.2721
  • Re^2: 作成したDLL使用について - ノス 03/31-14:25 No.2722
    • Re^3: 作成したDLL使用について - 魔界の仮面弁士 03/31-15:05 No.2723
      • Re^4: 作成したDLL使用について - ノス 03/31-15:24 No.2724
        • 解決しましたありがとうございます。 - ノス 03/31-17:10 No.2725