Casella di selezione font e modifica dinamica del tipo di carattere

[=tW=]

ciao ragazzi! io ho importato in una listbox, mediante questo codice, i fonts di sistema:

Public Class frmFont

    Private Sub frmFont_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'inserisce i nomi dei fonts nella list box
        Dim Ifc As New InstalledFontCollection
        lstFont.DataSource = Ifc.Families
        lstFont.DisplayMember = "Name"
    End Sub

End Class 

come faccio a cambiare il font nella label a seconda del font scelto nella listbox? nel senso, se clicco Arial, voglio che nella label1, il font usato x le scritte sia l'Arial. come lo imposto a seconda del click?

[MItaly]

Intercetta l'evento SelectedValueChanged e lì modifica la proprietà Font della label in base all'elemento selezionato.

[=tW=]

mi dice che c'è un errore nel casting, ci ho già provato...altre soluzioni?

[alka]

Originariamente inviato da =tW=
mi dice che c'è un errore nel casting, ci ho già provato...altre soluzioni?

Prova a postare un po' di codice... l'errore di casting si può risolvere o verificare.

[=tW=]

questo è tutto il codice... mi dice che c'è un errore di casting

Imports System.Drawing.Text

Public Class frmFont

    Private Sub frmFont_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'inserisce i nomi dei fonts nella list box
        Dim Ifc As New InstalledFontCollection
        lstFont.DataSource = Ifc.Families
        lstFont.DisplayMember = "Name"
    End Sub

    Private Sub lstFont_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFont.SelectedIndexChanged

        lblFont.Font = lstFont.SelectedItem
        lblFont.Text = lstFont.SelectedItem
    End Sub 

[alka]

Originariamente inviato da =tW=
questo è tutto il codice... mi dice che c'è un errore di casting

Stai assegnando ad una proprietà Font un elemento di tipo totalmente diverso (ListItem, se non ricordo male).

Devi usare il testo dell'elemento selezionato, se contiene il nome del form, per creare una nuova istanza della classe Font da assegnare alla proprietà omonima della Label.

[=tW=]

in codice come sarebbe? io ho sempre programmato in vb6 e non c'era differenza, ma in vb.net come si fa?mi puoi dare un esempio di codice?

[MItaly]

Imports System.Drawing.Text

Public Class frmFont

    Private Sub frmFont_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'inserisce i nomi dei fonts nella list box
        Dim Ifc As New InstalledFontCollection
        lstFont.DataSource = Ifc.Families
        lstFont.DisplayMember = "Name"
    End Sub

    Private Sub lstFont_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFont.SelectedIndexChanged

        lblFont.Font = New Font(DirectCast(lstFont.SelectedItem, FontFamily),lblFont.Font.Size)
        lblFont.Text = lblFont.Font.Name
    End Sub

[=tW=]

grazie mille! funziona alla perfezione! dovrò studiare meglio il vb.net

[MItaly]

Originariamente inviato da =tW=
grazie mille! funziona alla perfezione!

Prego .