[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/09/27(Tue) 11:58
投稿者名:ふく
Eメール:
URL :
タイトル:
標準モジュールからのプロージャの呼び出し。
いつも参考にさせていただいています。

測定器をGPIBで制御するプログラムを作成しているのですが、
GPIBコマンドの違う同様の測定器でも同じプログラム使用することになりました。
そこで標準モジュールに機器別のコードを書き
メインプログラムは共通にしようと思います。

ためしに下記のようにコードしたのですが、
標準モジュールのところで
”コンパイルエラー
 SubまたはFunctionが定義されていません。”
と出ます。

記述が間違っているのか、
そもそもこういう使い方はできないのか、
ほかに方法があるのか、等アドバイスをお願いします。

main プログラム

Private Sub Command1_Click()
Call BasTest
End Sub

Public Sub SendTest(SendTxt As String)
MsgBox (SendTxt)
End Sub

標準モジュール
Public Sub BasTest()
Call SendTest("Good")
End Sub

WinXP,VB6 SP6

投稿時間:2005/09/27(Tue) 12:41
投稿者名:G13
Eメール:
URL :
タイトル:
Re: 標準モジュールからのプロージャの呼び出し。
> 記述が間違っているのか、
ですね。

> main プログラム
>
> Private Sub Command1_Click()
>  Call BasTest
> End Sub
>
> Public Sub SendTest(SendTxt As String)
>  MsgBox (SendTxt)
> End Sub
>
> 標準モジュール
> Public Sub BasTest()
>  Call SendTest("Good")
> End Sub
>
> WinXP,VB6 SP6

Public Sub BasTest()
  Call Form1.SendTest("Good")
End Sub

ではないでしょうか?。

投稿時間:2005/09/27(Tue) 13:10
投稿者名:ふく
Eメール:
URL :
タイトル:
Re^2: 標準モジュールからのプロージャの呼び出し。
回答ありがとうございます。
下記修正で無事解決しました。

基本を見落としていました。
どこのプロージャか記述しないといけないのですね。

> > 記述が間違っているのか、
> ですね。
>
> >
> > 標準モジュール
> > Public Sub BasTest()
> >  Call SendTest("Good")
> > End Sub

> Public Sub BasTest()
>   Call Form1.SendTest("Good")
> End Sub
>
> ではないでしょうか?。