|
▼ichinose さん:
早速の返信ありがとうございます。
コードを細かく見直していただいて、ほんとうに助かります。
ところで、ご教授いただいたメソッドの部分なんですが
>>Private Sub myTxt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
> myTxt.Text = "ok"
>'ここで「OK」の設定を行う
>>End Sub
>
>'以下の標準モジュールは要りません
>
>>************************************************************
>>標準モジュール
>>Public Sub Syori_FromTextBox(objTextBox As MSForms.TextBox)
>> objTextBox.Text = "OK"
>>End Sub
>
>
>として試してください。
例が悪くてもうしわけなかったのですが、実際にやりたい動作は
TextBoxにOKをだすのではなくて、もう少し複雑な処理(別フォームのカレンダーを表示して、そこから選んだ日付をこのTextBoxにフォーマットして表示する)
なんです。つまり、メソッドでCALLをしたい部分です。
その部分がどうも上手くいきませんので、できましたら再度ご教授ねがえませんでしょうか。
どうぞ、よろしくお願いします。
|
|