複数テキストBOX同一処理で最適な方法 (ID:89151)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 アドバイスして頂き有難うございます 下記のようにコードを作成したら出来ました。 有難うございました 'フォーム Private NewControl As Collection Private Sub Form_Load() Set NewControl = New Collection With NewControl .Add NoGetHide.TxtInit(txtBikou) End With End Sub '標準モジュール Public Function NoGetHide() As clsNoGetHide Set NoGetHide = New clsNoGetHide End Function 'クラスモジュール Public Function TxtInit(txt As TextBox) As clsNoGetHide Set NewText = txt Set TxtInit = Me End Function Private Sub NewText_GotFocus() NoGet.Hide: DoEvents End Sub