Array di controlli

[vuott]

Ponendo immediatamente prima del comando c.Text = ""
la riga:
 

Codice: [Seleziona]

Print Object.Type(c)

cosa viene scritto in console ?

[Gianluigi]

Ciao vuott,
forse dovrebbe sfruttare i tuoi precedenti consigli e basarsi su Object e Children farebbe prima.
 

[luca.decarlo]

Ponendo immediatamente prima del comando c.Text = ""
la riga:
 

Codice: [Seleziona]

Print Object.Type(c)

cosa viene scritto in console ?

scrive: TextBox

[luca.decarlo]

Ciao vuott,
forse dovrebbe sfruttare i tuoi precedenti consigli e basarsi su Object e Children farebbe prima.
 

Forse sbaglio io, ma ho provato a rivedere quello che dici, in realtà il Children mi cambierebbe solo il ciclo for each, poi comunque nell'esempio viene comunque eseguito obj.enabled dopo il test di obkect.type, quindi mi darebbe lo stesso errore.

Luca

[Gianluigi]

Ciao vuott,
forse dovrebbe sfruttare i tuoi precedenti consigli e basarsi su Object e Children farebbe prima.
 

Forse sbaglio io, ma ho provato a rivedere quello che dici, in realtà il Children mi cambierebbe solo il ciclo for each, poi comunque nell'esempio viene comunque eseguito obj.enabled dopo il test di obkect.type, quindi mi darebbe lo stesso errore.

Luca

Forse non mi sono spiegato bene:
Se invece di c e controls cicli o e children come aveva a suo tempo suggerito vuott avresti subito il tipo di oggetto e potresti usare text.
Ti dovrebbe bastare provare il tuo codice così come è sostituendo o a c, object a control e children a controls. Forse c'è un errore sulla combobox, se usi name deve essere completa del numero.

[luca.decarlo]

A Ok Gianluigi, ora ho capito ... sai l'età 

Provo subito!

[vuott]

Codice: [Seleziona]

If c.Name Like "TextBox[2,3,4,5]" And bAzzero = True Then
        c.Text = ""

...perché hai usato la parola chiave " Like " invece di " = " ? 

[luca.decarlo]

Fatto prova veloce così e sembra funzionare tutto!!

Codice: [Seleziona]

Dim o As Object
  
   For Each o In Me.Children 
    If o.Tag = 1 Then
     o.Enabled = bValue
     If o.Name Like "TextBox[2,3,4,5]" And bAzzero = True Then
        o.Text = ""
     Else If o.Name Like "TextBox[6,7]" And bAzzero = True Then
        o.Text = 0
     Else If o.Name Like "ComboBox" And bAzzero = True Then 
        o.Index = -1
     Endif
    Endif
  Next
  

[luca.decarlo]

Codice: [Seleziona]

If c.Name Like "TextBox[2,3,4,5]" And bAzzero = True Then
        c.Text = ""

...perché hai usato la parola chiave " Like " invece di " = " ? 

E' un errore??  Nelle pagine precedenti c'è questo esempio, ho preso spunto da li!

[vuott]

Sì, ho visto, ma solitamente la parola " Like " prevede anche l'uso di caratteri speciali.

Prova a cambiare con il segno di uguale ( = ).

[Gianluigi]

Usare Like è corretto (più che corretto ) piuttosto occorre capirlo bene il tuo Like su ComboBox non può funzionare. Se intendi indicare tutte le combobox devi aggiungere un asterisco.
Devi studiare anche la differenza fra Controls e Children il primo scova tutti i controlli anche quelli annidati nei contenitori (controlli di controlli di controlli...) il secondo no e se vuoi leggerli devi annidare dei cicli per ogni contenitore.

 

[vuott]

Codice: [Seleziona]

"TextBox[2,3,4,5]"

Ah, ma hai utilizzato le parentesi quadre come appunto caratteri speciali per individuare quasiasi nome di TextBox che termina con uno di quei numeri.
L'uso è più che correto, allora.

[Gianluigi]

... credo tu debba assegnare il tipo di controllo.
Se l'oggetto è un pulsante allora devi assegnare button e dovrebbe funzionare.

Nel caso tu voglia ricercare sempre tramite la proprietà nome e tu abbia anche la necessità di accedere a controlli annidati puoi usare il mio precedente suggerimento che credo funzioni:

Codice: [Seleziona]

Public Sub EnaDisa(bValue As Boolean, bAzzero As Boolean)
  
  Dim c As Control, o As Object
  
  For Each c In FSoggetti.Controls
    ' Dovrebbe andar bene anche qui'
    ' o = c
    '
    If c.Tag = 1 Then
     c.Enabled = bValue
     Print c.Name
     If c.Name Like "TextBox[2,3,4,5]" And bAzzero = True Then
        o = c
        o.Text = ""
     Else If c.Name Like "TextBox[6,7]" And bAzzero = True Then
       o = c
       o.Text = 0      
     Else If c.Name Like "ComboBox*" And bAzzero = True Then ' Se ti riferisci a tutte!'
       o = c
       o.Index = -1
     Endif
    Endif
  Next
  
End

[luca.decarlo]

Ritorno all'utilizzo del "Like" ma utilizza solo 1 carattre "variabile"??

Ovvero:

Codice: [Seleziona]

Dim o As Object
   For Each o In Me.Children 
    If o.Tag = 1 Then
     o.Enabled = bValue
     If o.Name Like "TextBox[2,3,4,5,6,7,8,9,10,11,12,13]" And bAzzero = True Then
        o.Text = ""
     'Else If o.Name Like "TextBox[6,7]" And bAzzero = True Then
     '   o.Text = 0
     Else If o.Name Like "ComboBox*" And bAzzero = True Then 
        o.Index = -1
     Endif
    Endif
  Next

Azzera solo fino alla textbox9 dalla 10 in poi nulla!

[Gianluigi]

Guarda io di espressioni regolari ne so veramente poco, in giro per il web ci sono dei tutorial ...
Questo ad esempio funziona:

Codice: [Seleziona]

Public Sub Button1_Click()
  
  Dim c As Control
  Dim $OK As Boolean = True
  
  For Each c In FMain.Controls
    
    If c.Name Like "TextBox[2-9]" Or c.Name Like "TextBox[1][0-3]" And $OK = True Then 
      c.Enabled = False
    Endif
    
  Next

End

A proposito:
A te il mio codice sulle combo funziona? Oppure fa come a vuott?

NB: Ho spostato la domanda sulla ComboBox qui