Textbox Enter

[glinthalas]

Merhaba arkadaşlar,

Private Sub TextBox45_Enter()
Call Noktalar
End Sub

Komutunu textbox 45 ten 300 e kadar tüm textbox larda uygulamak istiyorum.

Private Sub TextBox45 to 300_Enter()
İşlemini yapacak bir komut bulunmakta mı?

Teşekkurler saygılar

 

[Murat OSMA]

Merhabalar,

Aşağıdaki kodları ilgili yerlere yapıştırıp deneyiniz..

UserForm kodları

[FONT="Trebuchet MS"][SIZE="2"]Dim TB() As New Class1
Private Sub UserForm_Initialize()
    Dim Kon As Control
    For Each Kon In Me.Controls
        If TypeName(Kon) = "TextBox" Then
            Select Case Split(Kon.Name, "TextBox")(1)
                Case 45 To 300
                    ReDim Preserve TB(i)
                    Set TB(i).TB = Kon
                    i = i + 1
            End Select
        End If
    Next Kon
End Sub[/SIZE][/FONT]

ClassModule kodları

[FONT="Trebuchet MS"][SIZE="2"]Public WithEvents TB As MSForms.TextBox

Private Sub TB_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Call Noktalar
End Sub[/SIZE][/FONT]