C# / VB.NET - Proprietà "Underline" è "ReadOnly"

Forum - C# / VB.NET - Proprietà "Underline" è "ReadOnly"

carmines92 (Normal User)
Pro

Messaggi: 83
Iscritto: 10/04/2007

Postato alle 22:04
Martedì, 31/03/2009

Non ho mai capito cosa vuol dire questo errore. :?
Allora io ho messo una label e voglio che quando ci passi con il mouse sopra diventa sottolineata
quindi nell'evento MouseUP della label ho messo:

Label1.Font.Underline = True

Però sotto mi compar quell'errore cioè La proprietà "Underline" è "ReadOnly"

Vi prego solo voi mi sapreste aiutare

Rikisonny (Ex-Member)
Rookie

Messaggi: 59
Iscritto: 07/11/2007

Postato alle 22:15
Martedì, 31/03/2009

Usa questo codice:

Codice sorgente - presumibilmente VB.NET

Private mThisFont As Font
 
   Public Sub New()
       MyBase.New()
 
       'This call is required by the Windows Form Designer.
       InitializeComponent()
 
       'Add any initialization after the InitializeComponent() call
       mThisFont = New Font("Sans Serif", 12, FontStyle.Regular)
       Label1.Font = mThisFont
   End Sub
 
   Private Sub Label1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter
       mThisFont = New Font("Sans Serif", 12, FontStyle.Underline)
       Label1.Font.Dispose()
       Label1.Font = mThisFont
   End Sub
 
   Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave
       mThisFont = New Font("Sans Serif", 12, FontStyle.Regular)
       Label1.Font.Dispose()
       Label1.Font = mThisFont
   End Sub

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 22:15
Martedì, 31/03/2009

ReadOnly vuol dire in "sola lettura" (come forse saprai). Quindi, la proprietà Underline, cosi' come l'hai usata, la puoi solo leggere, non modificare.

Basta scrivere

Codice sorgente - presumibilmente VB.NET

Private Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
  Dim ff As Font = sender.Font
 
  sender.Font = New Font(ff, ff.Style Or FontStyle.Underline)
End Sub

per usare il font della Label modificando lo stile

Ultima modifica effettuata da theprogrammer il 31/03/2009 alle 22:28