[NET] Errore di Cast usando collection Controls (era: Problema stupido ma [cut]...)

[tritolo86]

Metto questo codice per pulire il form: mi dice "Cast specificato non
valido"

Qual'è il prolema?

Sub clean()
Dim txt As TextBox
For Each txt In Me.Controls
txt.Text = ""
Next
End Sub

[ladyBlu]

prova a chiamare diversamente la variabile txt:

Dim mioTxt As TextBox

[sebamix]

Originariamente inviato da tritolo86
Metto questo codice per pulire il form: mi dice "Cast specificato non
valido"

Qual'è il prolema?

Sub clean()
Dim txt As TextBox
For Each txt In Me.Controls
txt.Text = ""
Next
End Sub

Dim txt as Control

[sebamix]

Ah, ovviamente se cicli la collection Controls ti passa tutto, quindi devi stare attento ad pescare solo i controlli di tipo textbox:

Sub clean() 
  Dim txt As control
  For Each txt In Me.Controls 
    if typeof txt is textbox then
      txt.Text = "" 
    end if
  Next txt
  End Sub

P.S.
Il codice è consigliabile metterlo tra i tag CODE
P.P.S.
Il titolo... ci vuole troppo impegno a scriverne uno decente?

[tritolo86]

Ok! Grazie a tutti!

Ahi! Questa è una cosa che avevo letto da qualche parte!

Me ne scuso per la dimenticanza (sono "diciamo" agli inizi e certe cose me le dimentico perche sono ancora molto legato al vecchio VB6...)

Ciao!

Per il titolo hai pienamente ragione!

[sebamix]

Originariamente inviato da tritolo86
...ancora molto legato al vecchio VB6...)

Scusa ma stai usando .Net???

[biste]

  Dim ctrl As Control
  For Each ctrl in Me.Controls 
    If ctrl is TextBox Then
      'ecc
  Next

HTH

[tritolo86]

Originariamente inviato da sebamix
Scusa ma stai usando .Net???

Sono domande da fare?:master: :quote:

Ciao!

[sebamix]

Originariamente inviato da tritolo86
Sono domande da fare?:master: :quote:

Ciao!

Sì, visto che non lo hai specificato da nessuna parte