font属性重要问题 在线等! 一个label在代码中设置Font.Bold Font.Italic Font.Underline Font.StrikeThrough 等属性时 被告知readonly, 如何改变其属性。有什么方法? __________________________________________________________________________ 用新的font对象 Dim f As New Font(Label1.Font,FontStyle.Italic Or FontStyle.Strikeout Or FontStyle.Underline) Label1.Font = f ***************************************************************************** 欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html __________________________________________________________________________ Label1.Font = New Font(Label1.Font,FontStyle.Bold) 其它一样 __________________________________________________________________________ 谢谢 __________________________________________________________________________