Propiedad Font.

Como cambio la propiedad label1.fond.Bold=true desde
codigo, marca el error de propiedad solo lectura.

Debes crear un nuevo Font y asignarlo a la propiedad. Por ejemplo:

Label1.Font = New Font(Label1.Font, FontStyle.Bold)

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Gracias.

Y como hago para para que no elimine los propiedades que
ya tenia establecidas en el Font. Por ejemplo.
Si LblFont.font.bold=true en tiempo de diseño, y despues
en el codigo tengo lblfont.Font = New Font(lblfont.Font,
FontStyle.Italic), quita el Bold y Pone Italic=true.
Gracias.

Hola Miguel,

para eso debes conjugar las propiedades, es decir:

Label1.Font = New Font(Label1.Font, FontStyle.Bold Or FontStyle.Italic)

Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/
No te olvides de:
http://www.microsoft.com/spanish/ms...des/vbnet/

Frase: "Si le das pescado a un hombre hambriento, le nutres durante una
jornada. Si le enseñas a pescar, le nutrirás toda su vida." Lao-Tsé - 600 AC
[aprox]



"Miguel Arenas" escribió en el mensaje
news:033801c4a658$9fa43c10$
Y como hago para para que no elimine los propiedades que
ya tenia establecidas en el Font. Por ejemplo.
Si LblFont.font.bold=true en tiempo de diseño, y despues
en el codigo tengo lblfont.Font = New Font(lblfont.Font,
FontStyle.Italic), quita el Bold y Pone Italic=true.
Gracias.

Si asi lo estoy haciedo pero no lo esta tomando. Esta es
la intruccion.


If (Not rtbNote.SelectionFont.Italic) And
rtbNote.SelectionFont.Bold And
rtbNote.SelectionFont.Underline Then
lblfont.Font = New Font(lblfont.Font,
FontStyle.Italic Or FontStyle.Bold Or FontStyle.Underline)
End If
If (Not rtbNote.SelectionFont.Italic) And
rtbNote.SelectionFont.Bold And (Not
rtbNote.SelectionFont.Underline) Then
lblfont.Font = New Font(lblfont.Font,
FontStyle.Italic Or FontStyle.Bold)
End If
If (Not rtbNote.SelectionFont.Italic) And
(Not rtbNote.SelectionFont.Bold) And
rtbNote.SelectionFont.Underline Then
lblfont.Font = New Font(lblfont.Font,
FontStyle.Italic Or FontStyle.Underline)
End If
If (Not rtbNote.SelectionFont.Italic) And
(Not rtbNote.SelectionFont.Bold) And (Not
rtbNote.SelectionFont.Underline) Then
lblfont.Font = New Font(lblfont.Font,
FontStyle.Italic)
End If


If rtbNote.SelectionFont.Italic And
rtbNote.SelectionFont.Bold And
rtbNote.SelectionFont.Underline Then
lblfont.Font = New Font(lblfont.Font,
FontStyle.Bold Or FontStyle.Underline)
End If
If rtbNote.SelectionFont.Italic And
rtbNote.SelectionFont.Bold And (Not
rtbNote.SelectionFont.Underline) Then
lblfont.Font = New Font(lblfont.Font,
FontStyle.Bold)
End If
If rtbNote.SelectionFont.Italic And (Not
rtbNote.SelectionFont.Bold) And
rtbNote.SelectionFont.Underline Then
lblfont.Font = New Font(lblfont.Font,
FontStyle.Underline)
End If
If rtbNote.SelectionFont.Italic And (Not
rtbNote.SelectionFont.Bold) And (Not
rtbNote.SelectionFont.Underline) Then
lblfont.Font = New Font(lblfont.Font,
FontStyle.Regular)
End If