Private Functionで作った関数をPrivate Subで使うには？

解決

しん  2005-06-22 02:24:10  No: 122870  IP: [192.*.*.*]

Private Functionを使って関数を定義して、それをPriavte Subの中で使いたいのですが、実行すると引数は省略できませんと出てしまいます。どうしたら使うことができるか教えて欲しいです。よろしくお願いします。

編集 削除
さら  2005-06-22 02:30:11  No: 122871  IP: [192.*.*.*]

エラーの通り引数足らないのでは？

どう指定してるかは知るよしもないことですが

編集 削除
しん  2005-06-22 02:42:20  No: 122872  IP: [192.*.*.*]

返信ありがとうございます。
引数の続きを足してやってみると、今度は()内が読み込めないらしくて、ちなみに()は(素子名 As String, x座標 As Single, y座標 As Single)です。
まだVB始めたばかりで、どうしたらいいのかわかりません。よろしければ教えていただきたいです、よろしくお願いします。

編集 削除
LESIA  2005-06-22 05:01:07  No: 122873  IP: [192.*.*.*]

どういうふうに定義して、どう呼び出しているか解りませんが
こんな感じで出来ると思います。

Private Sub aaa()
   Dim x As Integer

   x = bbb("素子１", 10, 20)
End Sub

Private Function bbb(素子名 As String, x座標 As Single, y座標 As Single) As Integer
   Debug.Print 素子名
   Debug.Print x座標
   Debug.Print y座標

   bbb = 1
End Function

編集 削除
しん  2005-06-23 20:43:04  No: 122874  IP: [192.*.*.*]

返信ありがとうございました。
なんとか問題解決することができました。
ありがとうございました。

編集 削除