VB.NET如何在一行代码中修改Label字体类型并添加下划线

解决方案 #

完全自定义字体属性的写法 #

你原有的代码语法本身没有逻辑问题，仅需把VB6遗留的单精度标识!替换为.NET通用的F，就可以正常运行：

lab.Font = New System.Drawing.Font("Courier New", 8.25F, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, 0)

如果在文件顶部提前引入命名空间，代码可以进一步简化：

' 代码文件最顶部添加引用
Imports System.Drawing

' 业务逻辑中直接写一行实现效果
lab.Font = New Font("Courier New", 8.25F, FontStyle.Underline, GraphicsUnit.Point)

保留原有字体属性的写法 #

如果不需要重置字号、原有粗体/斜体样式，仅修改字体类型并新增下划线，可以用更适配的一行写法：

lab.Font = New Font("目标字体名称", lab.Font.Size, lab.Font.Style Or FontStyle.Underline)

用Or运算符组合原有样式和下划线样式，不会覆盖已经设置的其他字体效果。

内容的提问来源于stack exchange，提问作者BASit Bulbulia