VB6で開発中…標準モジュール間での関数の呼び出し方は？

Form1.frm内から、標準関数yyy.bas内に記述しているSub yyy()を呼び出したいのですが、コンパイルエラーとなります。
呼び出し方法が間違っているのだと思いますが、お教え下さいませ。

＜Form1.frm内＞
Private Sub xxxxxx()
　yyy
End Sub

＜yyy.bas＞
Sub yyy()
　・・・・
End Sub

No.7 ベストアンサー 回答者： taka_tetsu 回答日時： 2005/03/25 12:25

標準モジュールかフォームにつけたオブジェクト名がyyyになってませんか？

この回答へのお礼

ありがとうございます。
それでした！
標準モジュールに関数名と同名のyyy(yyy01.bas)としていました。
別名にしたところ、エラーが出なくなりました。

当方のぼんミスでした・・

皆さま、お手数おかけいましたした＆ありがとうございました
m(__)m

お礼日時：2005/03/25 12:31

No.8 回答者： k_tatu 回答日時： 2005/03/25 12:29

＜yyy.bas＞

Sub yyy()
　・・・・
End Sub

は、完全なる例じゃなかったみたいですね。

yyy.basの名前を変えるか
関数yyyを変えてください。

モジュール名と関数名は同様のものはいけません。

この回答へのお礼

ありがとうございます。
まさにそれでした。
大変失礼いたしました。

お礼日時：2005/03/25 12:32

No.6 回答者： k_tatu 回答日時： 2005/03/25 12:20

＜yyy.bas＞

Sub yyy()
　・・・・
End Sub

これでは駄目です。

＜yyy.bas＞
Public Sub yyy()
　・・・・
End Sub

にしましょう。

それと、Callはつけてもつけなくても全く問題ありません。

この回答への補足

はい、実はそれもすでに試してみた（以下のように）のですが、同様のエラーとなるので？？？なのです。

＜Form1.frm内＞
Private Sub xxxxxx()
　yyy
End Sub

＜yyy.bas＞
Public Sub yyy()
　・・・・
End Sub

補足日時：2005/03/25 12:23

No.5 回答者： 1050YEN 回答日時： 2005/03/25 12:01

順次コンパイルオプションをはずして、実行したら、エラーが出力されると思います。

エラー内容を教えてください。


メニューより
　ツール
　オプション
　全般タブ
　コンパイル
　順次コンパイルをoff

この回答への補足

ありがとうございます。
エラーは以下の内容でポップアップウインドに表示されています。
------------------
コンパイルエラー：
モジュールではなく、変数またはプロシージャを指定して下さい。

補足日時：2005/03/25 12:19

No.4 回答者： kagep 回答日時： 2005/03/25 11:52

yyy.basはプロジェクトに関連付けられていますか？

（プロジェクトのエクスプローラウインドウに表示されてますか？）
なければ、yyy.basをプロジェクトに追加してください。

これで上手くいかないかな？
もう長期に渡ってＶＢ触ってないので、自身無しにさせてください。苦笑

この回答への補足

ありがとうございます。
プロジェクトの標準モジュールのところにyyy.basはちゃんと追加してあるのですがエラーとなります・・

補足日時：2005/03/25 12:16

No.3 回答者： i_yuari 回答日時： 2005/03/25 11:51

　yyy

↓
Call yyy

とすればOKですよ

もし、Sub yyy()に引数を設定するのであれば、

Call yyy(引数)

となります。

この回答への補足

ありがとうございます。
以下のようにCallを付けてみましたが、やはりエラーになります。

＜Form1.frm内＞
Private Sub xxxxxx()
　Call yyy
End Sub

＜yyy.bas＞
Sub yyy()
　・・・・
End Sub

補足日時：2005/03/25 12:16

No.2 回答者： neKo_deux 回答日時： 2005/03/25 11:50

Call yyy

でどうでしょうか？


経験的に知っているだけなので、何でCallがいるの？ってのはよく知りませんが。

この回答への補足

ありがとうございます。
以下のようにCallを付けてみましたが、やはりエラーになります。

＜Form1.frm内＞
Private Sub xxxxxx()
　Call yyy
End Sub

＜yyy.bas＞
Sub yyy()
　・・・・
End Sub

補足日時：2005/03/25 12:14

No.1 回答者： taka_tetsu 回答日時： 2005/03/25 11:43

引数ありませんか？

この回答への補足

ご回答、ありがとうございます。
はい、引数も戻り値もありません。

補足日時：2005/03/25 11:44