[VB.NET] NullReferenceExeption

[birmarco]

Ciao a tutti, non sono molto esperto di VB.net ma sto realizzando un piccolo editor di testi rtf a scopo sperimentale... sono di fronte ad un piccolo problema che non riesco a risolvere: ho una richtextbox in cui se seleziono del testo automaticamente mi dice il nome del font... il problema nasce quando evidenzio due font diversi... vb in runtime mi da NullReferenceExeption. Il codice è il seguente:

Private Sub txtBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBox.SelectionChanged
            Dim valore As String
            valore = CStr(txtBox.SelectionFont.FontFamily.Name)
            frmOutputConsole.outputList.Items.Add(valore)
            For i As Integer = 0 To (fontBox.Items.Count - 1)
                If fontBox.Items.Item(i).ToString = valore Then
                    fontBox.Text = valore
                    Exit For
                End If
            Next
            End Sub

fontBox è una comboBox
txtBox è una richtextbox

Grazie a tutti!

EDIT. .NET Framework 4 e VS 2010 Pro

[jackk87]

Ciao selezionando due font diversi se non sbaglio ti genera errore su questa riga:

            valore = CStr(txtBox.SelectionFont.FontFamily.Name)

perchè avendo due font diversi non hai un nome del font quindi genera errore dovresti utilizzare un Try Catch per esempio:

Private Sub txtBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBox.SelectionChanged
            Dim valore As String
            
            Try
                 valore = CStr(txtBox.SelectionFont.FontFamily.Name) 
             Catch ex As Exception
                 valore = "Indefinito"       
            End Try

            frmOutputConsole.outputList.Items.Add(valore)
            For i As Integer = 0 To (fontBox.Items.Count - 1)
                If fontBox.Items.Item(i).ToString = valore Then
                    fontBox.Text = valore
                    Exit For
                End If
            Next
            End Sub

[birmarco]

Originariamente inviato da jackk87

Ciao selezionando due font diversi se non sbaglio ti genera errore su questa riga:

            valore = CStr(txtBox.SelectionFont.FontFamily.Name)

perchè avendo due font diversi non hai un nome del font quindi genera errore dovresti utilizzare un Try Catch per esempio:

Private Sub txtBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBox.SelectionChanged
            Dim valore As String
            
            Try
                 valore = CStr(txtBox.SelectionFont.FontFamily.Name) 
             Catch ex As Exception
                 valore = "Indefinito"       
            End Try

            frmOutputConsole.outputList.Items.Add(valore)
            For i As Integer = 0 To (fontBox.Items.Count - 1)
                If fontBox.Items.Item(i).ToString = valore Then
                    fontBox.Text = valore
                    Exit For
                End If
            Next
            End Sub

Avevo già provat ad usare try e catch ma l'avevo fatto nel modo sbagliato... con il tuo funziona! GRAZIE MILLE!

Se voglio andare oltre... e applicare anche il font che o selezionato al testo della combo box posso? Ovviemente se seleziono un solo font...

[jackk87]

Originariamente inviato da birmarco

Avevo già provat ad usare try e catch ma l'avevo fatto nel modo sbagliato... con il tuo funziona! GRAZIE MILLE!

Se voglio andare oltre... e applicare anche il font che o selezionato al testo della combo box posso? Ovviemente se seleziono un solo font...

certo che puoi, anche se ne selezioni due poi nella combobox selezioni il font e quei due font diventano quello che hai selezionato più semplicemente come tutte le applicazioni di testo come word ecc...

[birmarco]

Originariamente inviato da jackk87

certo che puoi, anche se ne selezioni due poi nella combobox selezioni il font e quei due font diventano quello che hai selezionato più semplicemente come tutte le applicazioni di testo come word ecc...

forse non ci siamo capiti molto bene! io intendevo applicare il font al testo della combo box... esempio: seleziono una parola in times new roman e il testo della combo box diventa "times new roman" in stile times new roman.

[jackk87]

comunque puoi farlo ugualmente utilizzando try catch oppure confrontando i font

[birmarco]

Originariamente inviato da jackk87

comunque puoi farlo ugualmente utilizzando try catch oppure confrontando i font

Non riesco a trovare il comando...

ComboBox.SelectedText.???

Non trovo nessun .Font da qualche parte...

[jackk87]

Originariamente inviato da birmarco

Non riesco a trovare il comando...

ComboBox.SelectedText.???

Non trovo nessun .Font da qualche parte...

mi sembra strano dovresti avere:
ComboBox1.Font

anche

ComboBox1.Font.FontFamily

[birmarco]

Originariamente inviato da jackk87

mi sembra strano dovresti avere:
ComboBox1.Font

anche

ComboBox1.Font.FontFamily

Hai ragione! Grazie! =)

Non esiste anche un metodo specifico per ogni item? perchè sarebbe carino ricreare una selezione font in stile word 2007... o devo creare un controllo personalizzato?

[jackk87]

Originariamente inviato da birmarco

Hai ragione! Grazie! =)

Non esiste anche un metodo specifico per ogni item? perchè sarebbe carino ricreare una selezione font in stile word 2007... o devo creare un controllo personalizzato?

Mi dispiace ma non ho avuto mai il bisogno di utilizzare questo tipo di opzione e che io sappia non è previsto un metodo specifico per ogni item

[birmarco]

Originariamente inviato da jackk87

Mi dispiace ma non ho avuto mai il bisogno di utilizzare questo tipo di opzione e che io sappia non è previsto un metodo specifico per ogni item

non ti preoccupare! Grazie lo stesso dell'attenzione!