为Font添加多个属性

Question

我有一些代码，我允许用户控制窗体上控件的不同属性，即Italics，Bold，BackColor，ForeColor。

我的问题是当用户选择Italics＆amp;大胆，我不确定这样做的格式是什么。这是我到目前为止所拥有的。

For Each ctl As Control In frm.Controls
   If TypeOf (ctl) Is Button Then
      ctl.Font = New Font(ctl.Font, FontStyle.Italic)
   End If
Next

这就是我想要的效果：

      ctl.Font = New Font(ctl.Font, FontStyle.Italic, FontStyle.Bold)

Answer 1

你可以Or两个人在一起：

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