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

解決

しん 2005-06-22 11:24:10 No: 122870

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

さら 2005-06-22 11:30:11 No: 122871

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

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

しん 2005-06-22 11:42:20 No: 122872

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

LESIA 2005-06-22 14:01:07 No: 122873

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

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-24 05:43:04 No: 122874

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