C# / VB.NET - Array di controlli...come si fanno??

Forum - C# / VB.NET - Array di controlli...come si fanno??

Pagine: [ 1 2 ]

dartraf (Normal User)
Pro

Messaggi: 71
Iscritto: 15/12/2005

Postato alle 12:51
Sabato, 18/10/2008

Questo topic è stato chiuso dal moderatore

Ciao a tutti
da poco ho incominciato ad utilizzare VB .net venendo da VB 6.
In VB 6 utilizzavo spesso i vettori di controlli per gestire tutti i controlli simili in un unico gestore degli eventi e lì selezionare l'operazione da fare

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
            ' operazione 0
        Case 1
            ' operazione 1
        Case 2
            ' operazione 2
    End Select
End Sub

Ho notato che in VB .net non esiste questa funzione.
Come faccio ad implementare un qualcosa del genere???
Help me!

fabi3194 (Ex-Member)
Expert

Messaggi: 206
Iscritto: 11/10/2008

Postato alle 14:01
Sabato, 18/10/2008

http://totem.altervista.org/guida/versione2/A11.php
ecco qui!
ps:grazie totem :k:

dartraf (Normal User)
Pro

Messaggi: 71
Iscritto: 15/12/2005

Postato alle 17:27
Sabato, 18/10/2008

Aspetta ma io non ho chiesto del costrutto select case.....
A me interessa realizzare vettori di oggetti (tipo commandbutton) per poi usarli in un solo gestore degli eventi.
In vb 6 ogni oggetto aveva la proprietà index per realizzare questo meccanismo.
Come si fa in vb .net??

dartraf (Normal User)
Pro

Messaggi: 71
Iscritto: 15/12/2005

Postato alle 17:38
Sabato, 18/10/2008

Forse ho trovato qlcs tra i download...
grazie.

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 17:39
Sabato, 18/10/2008

Forse ti riferisci alla mia classe per gestire le matrici di controlli.

TSP (Ex-Member)
Pro

Messaggi: 99
Iscritto: 17/03/2008

Postato alle 21:50
Venerdì, 24/10/2008

ho scritto una guida, è in c# ma è uguale:

Molti credono che nel linguaggio C# le matrici di controlli non esistano, navigando sul web ho potuto appurare quanto ho appena detto quindi procedero alla spiegazione di come creare una matrice di controlli:

1. aggiungiamo la seguente sitring nel file nomeform.designer.cs nel punto in cui troviamo moltre altre righe simili.
Codice sorgente
private System.Windows.Forms.TextBox[] TextBoxM;

2. Ora dobbiamo riservare uno spazio nella memoria alla nostra matrice.
Codice sorgente
TextBoxM = new System.Windows.Forms.TextBox[20]

2. per creare nuovi controlli con diverso indice ma uguale nome procediamo in questo modo.
Codice sorgente
TextBoxM[x] = new System.Windows.Forms.TextBox();

(x sta per il numero dell'indice)
da ricordare che non potremo aumentare i nostri controlli in modo da renderli superiori al limite precedentemente stabilito.
quindi
Codice sorgente
TextBoxM[21] = new System.Windows.Forms.TextBox();
non potrà esistere.

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 16:14
Domenica, 26/10/2008

Non vengono comunque visualizzate nel designer. Aggiungere quel codice è come aggiungere controlli a runtime.

dartraf (Normal User)
Pro

Messaggi: 71
Iscritto: 15/12/2005

Postato alle 11:32
Martedì, 28/10/2008

Hei io ho pensato ad una soluzione del genere:

Codice sorgente - presumibilmente VB.NET

Public Class ArrayControl(Of C As {Control, New})
    Inherits System.Collections.CollectionBase
 
 
    ' form che ospita l'array di controlli
    Private ReadOnly HostForm As System.Windows.Forms.Form
 
 
    ' elenco degli eventi
    Public Event m_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    ' ed altri
 
    ' costruttori
    Public Sub New(ByVal host As System.Windows.Forms.Form)
        HostForm = host
    End Sub
 
    Public Sub New(ByVal host As System.Windows.Forms.Form, ByVal x As Single, ByVal y As Single)
        Me.New(host)
        Me.AddNewControl(x, y)
    End Sub
 
 
    ' proprieta di default
    Default Public ReadOnly Property Item(ByVal Index As Integer) As C
        Get
            Return CType(Me.List.Item(Index), C)
        End Get
    End Property
 
 
    ' metodi
    Public Sub Remove(Optional ByVal index As Integer = -1)
        If Me.Count > 0 Then
            If index = -1 Then
                HostForm.Controls.Remove(Me(Me.Count - 1))
                Me.List.RemoveAt(Me.Count - 1)
            Else
                HostForm.Controls.Remove(Me(index))
                Me.List.RemoveAt(index)
            End If
        End If
    End Sub
 
    Private Sub AddEvent(ByVal controllo As C)
        AddHandler controllo.Click, AddressOf ClickHandler
end sub
 
    Public Function AddNewControl(ByVal x As Single, ByVal y As Single, Optional ByVal visibile As Boolean = True) As C
        Dim controllo As New C
 
        Me.List.Add(controllo)
        HostForm.Controls.Add(controllo)
 
        controllo.Top = y
        controllo.Left = x
        controllo.Visible = visibile
        controllo.Tag = Me.Count - 1
        controllo.Text = "Controllo " & Me.Count.ToString
 
        AddEvent(controllo)
 
        Return controllo
    End Function
 
    Public Function AddNewControl(ByVal obj As C) As C
        Me.List.Add(obj)
        obj.Tag = Me.Count - 1
        AddEvent(obj)
        Return obj
    End Function
 
 
 
    ' gestori degli eventi
    Public Sub ClickHandler(ByVal sender As Object, ByVal e As System.EventArgs)
        RaiseEvent m_Click(sender, e)
    End Sub
    
    ' ed altri

Ditemi se è giusta

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 15:57
Martedì, 28/10/2008

Niente da dire, mi sembra tutto corretto.

Pagine: [ 1 2 ]