自作関数について

解決

犬 2004-10-30 02:10:19 No: 117278

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

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

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

葉月 2004-10-30 02:13:11 No: 117279

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

Public Function Saitou(a As Form)

以上

犬 2004-10-30 02:33:33 No: 117280

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