[VB.NET]Reset valori campi

[xonica]

ho creato questa sub che mi dovrebbe permettere di pulire tutte le caselle di testo, combobox e maskeditbox di un groupbox prescelto

il problema è che sulle caselle di testo ha effetto ma sulle maskeditbox non ha nessun effetto.... cosa sbaglio?

Sub Reset(ByVal group As GroupBox)
   Dim oCtrl As Control
   Dim Mask As AxMSMask.AxMaskEdBox
   On Error Resume Next
   For Each oCtrl In group.Controls
      If TypeOf oCtrl Is TextBox Then
          oCtrl.Text = ""
      End If
   Next
   For Each Mask In group.Controls
      Mask.CtlText = "__/__/____"
   Next
End Sub

Grazie a tutti

[xonica]

Originariamente inviato da xonica
ho creato questa sub che mi dovrebbe permettere di pulire tutte le caselle di testo, combobox e maskeditbox di un groupbox prescelto

il problema è che sulle caselle di testo ha effetto ma sulle maskeditbox non ha nessun effetto.... cosa sbaglio?

Sub Reset(ByVal group As GroupBox)
  ...
End Sub

Grazie a tutti

riuscite a capire dove sta l'errore????

[darkblOOd]

domanda A) sei sicuro che il controllo inserito nella groupbox sia quello dimensionato nella routine?

domanda B)

perchè non fai:

Sub Reset(ByVal group As GroupBox)
   Dim oCtrl As Control
   On Error Resume Next
   For Each oCtrl In group.Controls
      If TypeOf oCtrl Is TextBox Then
          oCtrl.Text = ""
      End If

      If TypeOf oCtrl Is AxMSMask.AxMaskEdBox **
          oCtrl.CtlText = "__/__/____"
      End IF

   Next
End Sub

** ammesso che la classe sia giusta