Abilitare/Disibilitare più texbox tutte insieme

6 Risposte

• 

  Gianni55

  Utente Attivo

  Iscritto da

  mag, 2017

  Messaggi:

  408

  Re: Abilitare/Disibilitare più texbox tutte insieme

  29 mar 2021, 16:20

  Salve,
  si è possibile utilizzando i tag li trovi tra le proprietà > altri dati

  dim ctl as control
  If Me.TuoControllo.Visible = False Then  'Uno dei tuoi controlli
     For Each ctl In Me.Controls
        If ctl.Tag = "1" Then  ctl.Visible = True
        If ctl.Tag = "2" Then  ctl.Visible = false
  End If
     Next ctl
  end if

  Saluti
• C

  Crodino

  Utente Attivo

  Iscritto da

  mar, 2021

  Messaggi:

  102

  Re: Abilitare/Disibilitare più texbox tutte insieme

  29 mar 2021, 16:34

  Grazie mille
• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8723

  Re: Abilitare/Disibilitare più texbox tutte insieme

  29 mar 2021, 17:58

  Sono sempre per rendere il codice più efficiente

  
  Function SetState(Value as Boolean)
      dim ctl as control
      For Each ctl In Me.Controls
        If ctl.Tag = "1" Then  ctl.Visible = Value 
        If ctl.Tag = "2" Then  ctl.Visible = Not Value 
     Next
  End Function

  Da chiamare così

  
  Call SetState(False)
  oppure
  Call SetState(True)

• C

  Crodino

  Utente Attivo

  Iscritto da

  mar, 2021

  Messaggi:

  102

  Re: Abilitare/Disibilitare più texbox tutte insieme

  29 mar 2021, 18:01

  Meglio ancora in una Function, primo perché così me la studio e cerco di imparare a usarle.
  Secondo perché se mi servisse altrove la ritrovo... grazie
• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8723

  Re: Abilitare/Disibilitare più texbox tutte insieme

  29 mar 2021, 18:21

  Scritta così quella Function deve essere inserita nella Maschera stessa..., se vedi fa riferimento a [Me] quindi alla Form.
• C

  Crodino

  Utente Attivo

  Iscritto da

  mar, 2021

  Messaggi:

  102

  Re: Abilitare/Disibilitare più texbox tutte insieme

  29 mar 2021, 18:35

  Giusto, ops... sto studiando un vecchio post (2014) in cui credo che fossi tu a spiegare a un utente come spostare in un modulo una privatesub dipendente da un oggetto su maschera facendo in modo che l'oggetto diventasse "flessibile"...farò delle prove anche questa piccola function per vedere se capisco quello che leggo.
  grazie..