投稿日	： 2007/05/21(Mon) 15:53
投稿者	： こう
Ｅメール	：
ＵＲＬ	：
タイトル	： モジュール

いくつかフォームがあり、その中でテキストボックスを使用しています。
テキストボックスは、文字数制限以外同じコードになっているものが多く、クラスモジュールを使い
コードをすっきりさせようと思いました。
クラスモジュールに共通コードを書いてそれぞれに認識させようと思ったのですがうまくいきません。
どこがよくないのでしょうか？

クラスモジュール
Option Explicit

Public WithEvents SlaveTextBox As TextBox
Private Sub SlaveTextBox_KeyPress(KeyAscii As Integer)
'テキストに入力可能な文字設定
If KeyAscii <> vbKeyBack Then
    If KeyAscii = 3 Or KeyAscii = 22 Or _
        KeyAscii = 24 Or KeyAscii = 26 Then Exit Sub
        If Not Chr(KeyAscii) Like "[a-zA-Z0-9]" Then
            KeyAscii = 0
        End If
    End If
    
End Sub

フォーム側
    Dim Class1(2) As New Class1
    Set Class1(0).SlaveTextBox = Text1
    Set Class1(1).SlaveTextBox = Text2
    Set Class1(2).SlaveTextBox = Text3

★ - モジュール - こう 05/21-15:53No.9188
• Re: モジュール - 魔界の仮面弁士 05/21-16:50 No.9189
  • Re^2: モジュール - こう 05/21-17:08 No.9191