自作関数について

解決


 2004-10-29 17:10:19  No: 117278  IP: [192.*.*.*]

一枚のフォームモジュールと一枚の標準モジュールがあります。フォームにはテキストボックスがあります。フォームのオブジェクト名Form1を引数で渡し標準モジュール内の関数でフォームのテキスト内に“こんにちは”と表示させるとします。
Private Sub Form_Load()
    Module1.Saitou ("Form1")
End Sub

Public Function Saitou(a As String)
    a.Text1.Text = "こんにちわ"
End Function

エラーになるのはなぜなのでしょう。申し訳ありません。VBのかなりの初心者です

編集 削除
葉月  2004-10-29 17:13:11  No: 117279  IP: [192.*.*.*]

フォームを渡すのだから
フォームで受け取りましょう・・・

Public Function Saitou(a As Form)

以上

編集 削除
 2004-10-29 17:33:33  No: 117280  IP: [192.*.*.*]

すいません。やってみます

編集 削除