VB Klassenmodul für Textboxen
Reinhard
die Form hat 1 Commandbutton und Textboxen.
Im folgenden VB-Code soll beim Change- oder Clickereignis eine Msgbox erscheinen, es tut sich aber nix :-(
Ich habe VB5.0
in die Form:
Option Explicit
Dim txtBoxes(1 To 10) As New Class1
Private Sub Command1_Click()
Dim N As Integer, PI(10) As String
For N = 1 To 10
With Me.Controls("PlayerID" & N)
If .Text "" Then PI(N) = .Text & " "
End With
Next N
End Sub
Private Sub UserForm_Initialize()
Dim N As Integer
For N = 1 To 2
Set txtBoxes(N).TxtGroup = Me.Controls("PlayerID" & N)
Next N
End Sub
in ein Klassenmodul mit Namen Class1
Option Explicit
Public WithEvents TxtGroup As TextBox 'MSForms.TextBox klappt nicht?
Private Sub TxtGroup_Change()
MsgBox TxtGroup.Name & " change"
End Sub
Private Sub TxtGroup_Click()
MsgBox TxtGroup.Name & " click"
End Sub
Danke ^ Gruß
Reinhard