C# / VB.NET - Creare oggetti dinamicamente da file INI

Forum - C# / VB.NET - Creare oggetti dinamicamente da file INI

orma674 (Normal User)
Pro

Messaggi: 66
Iscritto: 02/06/2008

Postato alle 18:08
Lunedì, 09/09/2013

Salve a tutti,
chiedo il vostro aiuto per creare oggetti dinamicamente da file INI.

Mi spiego meglio.
Ho la necessità che attraverso la lettura del file INI, si possano disporre dei controlli sul form.

Il file INI ovviamente viene generato in chiusura all'applicazione memorizzando tutte le proprietà dei controlli.

Ho provato a leggere il file cosi strutturato
[Button]Name=Button1

assegnandolo i valori letti in questo modo
Dim _Type as String = Button
Dim _Nameas String = Button1

DirectCast(_Name, _Type)

ma ovviamente ho trovato che non funziona.
Dice che è impossibile convertire String in Type.

Grazie anticipatamente
Marcello

GN (Member)
Guru

Messaggi: 772
Iscritto: 30/04/2011

Postato alle 18:41
Lunedì, 09/09/2013

Prova a usare GetType: http://msdn.microsoft.com/it-it/library/w3f99sx1.aspx

orma674 (Normal User)
Pro

Messaggi: 66
Iscritto: 02/06/2008

Postato alle 18:48
Lunedì, 09/09/2013

Ho messo giù il seguente
Dim _Type As Type = Type.GetType("System.Windows.Forms.Button")
Dim _Name As String = "Button1"
DirectCast(_Name, _type)

non funzione, mi da il seguente errore
Tipo _Type non definito

Grazie per la collaborazione
Marcello

Thejuster (Admin)
Guru^2

Messaggi: 2305
Iscritto: 04/05/2008

Postato alle 10:00
Martedì, 10/09/2013

Provo a scrivertelo in C# poi ti converti il codice.

Codice sorgente - presumibilmente C# / VB.NET

//Ciclo per recuperare tutti i componenti da una form
 
 for (int i = 0; i < this.Controls.Count; i++)
{
 
                if (this.Controls[i].GetType() == typeof(Button))
                {
                    MessageBox.Show("Questo pulsante si chaima: " + ((Button)this.Controls[i]).Text);
                }
 
               
            }
 
}

In Vb.net dovrebbe essere così

Codice sorgente - presumibilmente VB.NET

For i As Integer = 0 To Me.Controls.Count - 1
 
        If Me.Controls(i).[GetType]() = GetType(Button) Then
                MessageBox.Show("Questo pulsante si chaima: " + DirectCast(Me.Controls(i), Button).Text)
 
 
        End If
Next

https://mire.forumfree.it/ - Mire Engine
C# UI Designer

orma674 (Normal User)
Pro

Messaggi: 66
Iscritto: 02/06/2008

Postato alle 10:48
Mercoledì, 25/09/2013

Grazie ho risolto leggendo il tag e facendo eseguire un DirectCast in base alla stringa del Tag.

Select Case Tag
Case "Button"
DirectCast(Name,Button)
End select