[RISOLTO] Replicare gruppo di controlli

[akrobaticone]

Ciao
in un form dovrei replicare un gruppo di controlli piu volte
un paio di label con una textbox, uno spin box e una casella di spunta
essi costituiscono un gruppo che a seconda delle esigenze va replicato piu volte
collocati in un contenitore per esempio
si riesce a riunire i controlli e con una unica replica creare altri gruppi?
spero la domanda non sia troppo contorta...

[kicco]

in un form dovrei replicare un gruppo di controlli piu volte

immagino da codice...
 

[akrobaticone]

in un form dovrei replicare un gruppo di controlli piu volte

immagino da codice...
 

si per evitare molte linee di codice in piu

magari creando un nuovo oggetto che ingloba gli altri?

[kicco]

Creare una classe costituita da un contenitore con i controlli e poi istanziare gli oggetti?

[Gianluigi]

Ciao Akro,
ero in altre mansioni affaccendato..

Prova questo codice:

Codice: [Seleziona]

' Gambas class file

Private hvBox As VBox
Private hHBox As HBox
Private hLabel As Label
Private hTextBox As TextBox
Private hCheckBox As CheckBox
Private hSpinBox As SpinBox

Public Sub Form_Open()

  Me.Arrangement = Arrange.Vertical
  Me.AutoResize = True
  Me.Margin = True
  Me.Spacing = True
  Me.Resizable = False
  CreaGruppo("txtName1", "Pippo", "txtSurname1", "Pluto")
  Me.Show
  Wait 2
  CreaGruppo("txtName2", "Topolino", "txtSurname2", "Minni")
  Wait 2
  CreaGruppo("txtName3", "Paperino", "txtSurname3", "Gastone")

End

Private Sub CreaGruppo(sName1 As String, sTag1 As String, sName2 As String, sTag2 As String)

  hvBox = New VBox(Me) 'As "VBox1"
  hvBox.AutoResize = True
  hvBox.Spacing = True
  hvBox.H = 120
  hvBox.W = 520
  hHBox = New HBox(hvBox) 'As "HBox1"
  hHBox.Spacing = True
  hHBox.H = 32
  hHBox.W = 512
  hLabel = New Label(hHBox) 'As "Label1"
  hLabel.AutoResize = True
  hLabel.Text = "Nome"
  hTextBox = New TextBox(hHBox) As "txtName"
  hTextBox.Expand = True
  hTextBox.Name = sName1
  hTextBox.Tag = sTag1
  hLabel = New Label(hHBox) 'As "Label2"
  hLabel.AutoResize = True
  hLabel.Text = "Cognome"
  hLabel.AutoResize = True
  hTextBox = New TextBox(hHBox) As "txtSurname"
  hTextBox.Expand = True
  hTextBox.Name = sName2
  hTextBox.Tag = sTag2
  hHBox = New HBox(hvBox) 'As "HBox2"
  hHBox.Spacing = True
  hHBox.H = 32
  hHBox.W = 512
  hCheckBox = New CheckBox(hHBox) 'As "CheckBox"
  hCheckBox.Text = "Spunta questo"
  hCheckBox.AutoResize = True
  hLabel = New Label(hHBox) 'As "Label3"
  hLabel.Expand = True
  hLabel.Alignment = Align.Right
  hLabel.Text = "Scegli un numero"
  hSpinBox = New SpinBox(hHBox) 'As "SpinBox1"
  hSpinBox.W = 136
  hSpinBox.MinValue = 0
  hSpinBox.MaxValue = 12000

End

Public Sub txtName_MouseDown()

  Print Last.Name;; Last.Tag

End

Public Sub txtSurname_MouseDown()

  Print Last.Name;; Last.Tag

End

E vedi se ti va bene...

 

PS: Apportati dei cambiamenti

[cogier]

Prova questo codice

[vuott]

...ovviamente il codice di Gianluigi era meramente esemplificativo, indicativo, concettuale.

[Gianluigi]

...ovviamente il codice di Gianluigi era meramente esemplificativo, indicativo, concettuale.

  

[kicco]

Non riesco a capire dov'è l'errore nella Caption del Form "REPICA".

[Gianluigi]

Credo che manchi una libreria .gambas che si è scordato di allegare, ma basta rimuoverla

 

[Gianluigi]

Ho apportato dei cambiamenti al codice per renderlo più comprensibile... spero.

 

[akrobaticone]

Grazie a tutti per le risposte
il concetto ora è chiaro ed è proprio quello di cui avevo bisogno
confesso che ho sempre tralasciato di approfondire come funzionano i contenitori, ma mi rendo conto che sono importanti

@Kicco
nelle proprietà del progetto hai scritto "Repica"

[kicco]

@Kicco
nelle proprietà del progetto hai scritto "Repica"

Giusto! Ecco dov'era!

[akrobaticone]

ora un passo in piu
supponiamo di utilizzare un button per creare i gruppi uno alla volta e aggiungerli al form
ora vorrei con un altro button eliminarli uno alla volta
quindi dovrei eliminare i contenitori hbox precedentemente creati
Per individuali potrei fare una cosa del genere

Codice: [Seleziona]

  Dim x As Control
  
  For Each x In Me.Controls
    
    If x.name = "Hbox" & contatore
    Then 
  Next

dopo il Then?

[cogier]

Ecco la versione 2