AW: Mehrere Textfelder markieren
18.08.2008 14:02:03
Rudi
Hallo,
1. ein Klassenmodul namens clsTxtBox anlegen.
Code:
Public WithEvents myTxtBox As MSForms.TextBox
Private Sub myTxtBox_Change()
If myTxtBox = "" Then
myTxtBox.BackColor = RGB(255, 0, 0)
Else
myTxtBox.BackColor = RGB(0, 255, 0)
End If
End Sub
2. Im Code der UF:
Dim objTxtBox(1 To 10) As New clsTxtBox
Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To 10
Set objTxtBox(i).myTxtBox = Me.Controls.Add("forms.textbox.1")
With objTxtBox(i).myTxtBox
.Height = 20
.Top = i * 30
.Left = 15
.BackColor = RGB(255, 0, 0)
End With
Next
Me.Height = objTxtBox(10).myTxtBox.Top + 60
End Sub
Die UF starten und sehen, was passiert.
Es gehen aber nicht alle Events. z.b. Exit, BeforeUpdate, AfterUpdate gehen nicht.
Gruß
Rudi