ＸＰだとロックしているのに「貼り付け」できる！ (ID:109096)

名前

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

本文

> すみません。「KB」って何でしょう？
失礼しました。『Microsoft Knowledge Base』の事です。
具体的には、以下の資料となります。
http://support.microsoft.com/?kbid=416041

> Textboxの数は大量（数百）にあり
……一つのフォームに、TextBoxだけで数百もあるのですか?
それは画面の設計段階で、若干の問題があるかも。。。

それはさておき、それらがコントロール配列になっているなら、
  Private Sub Text1_GotFocus(Index As Integer)
    Clipboard.Clear
  End Sub
と書くだけですから、それほどの手間でも無いような気がします。

また、コントロール配列化されていない場合は、WithEvents変数を利用できます。
例えば、以下のようなコードを書けば、Form1上にあるTextBoxのGotFocusイベントを、
Class1クラスで、まとめて処理する事ができますよ。

'==== Form1 ====
Option Explicit

Private mcolTextBox As VBA.Collection

Private Sub Form_Load()
    Dim Ctrl As VB.Control
    Set mcolTextBox = New VBA.Collection
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            mcolTextBox.Add NewClass1(Ctrl)
        End If
    Next

'------
    ' ここに、既存のForm_Load処理を記述します
    '------
End Sub

Private Function NewClass1(ByVal Txt As VB.TextBox) As Class1
    Set NewClass1 = New Class1
    Call NewClass1.Initilalize(Txt)
End Function

'==== Class1 ====
Option Explicit
Private WithEvents mTextBox As VB.TextBox
Friend Sub Initilalize(ByVal Txt As VB.TextBox)
    On Error Resume Next
    Set mTextBox = Txt
End Sub
Private Sub mTextBox_GotFocus()
    Clipboard.Clear
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る