Snasui Excel Forum

Code: Select all

Public WithEvents TextBoxClass As MSForms.TextBox
Private Sub TextBoxClass_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
'valid entries [0-9]
    Case 48 To 57

    Case Else
'cancel
        KeyAscii = 0
    End Select
End Sub

Code: Select all

Private Sub UserForm_Activate()
Dim TextBox() As New TextBoxClass
Dim i As Integer
Dim c As Control
For Each c In newCRF.Controls
    If TypeName(c) = "TextBox" Then
        If c.Name Like "*Quantity*" Then
            i = i + 1
        ReDim Preserve TextBox(1 To i)
            Set TextBox(i).TextBoxClass = c
            c.ControlTipText = c.Name & " - Enter Numeric Value Only"
        End If
    End If
Next c
End Sub

Code: Select all

'UserForm: newCRF
Dim TextBox() As New TextBoxClass

'set ให้ทุกอันเป็นช่องว่าง
'Private Sub UserForm_Activate()
Private Sub UserForm_Initialize()
      DTPicker1.Value = vbNull  'set DTpicker เป็น Vbnull 'VbNull = 12/31/1899
      DTPicker2.Value = vbNull
      DTPicker3.Value = vbNull
      FormatDTPicker
'    Dim TextBox() As New TextBoxClass
    Dim i As Integer
    Dim c As Control
    For Each c In newCRF.Controls
'Other code


'Class: TextBoxClass
Public WithEvents TextBoxClass As MSForms.TextBox

Private Sub TextBoxClass_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    'valid entries [0-9]
    Case 48 To 57
        TextBoxClass.Text = VBA.Left(TextBoxClass.Text, 7)
    Case Else
    'cancel
        KeyAscii = 0
    End Select
End Sub