2

我有一些代码允许用户控制表单上控件的不同属性,即斜体、粗体、背景色、前景色。

我的问题是,当用户选择斜体和粗体时,我不确定执行此操作的格式是什么。这是我到目前为止所拥有的。

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)
4

1 回答 1

3

您可以Or将两者结合起来:

ctl.Font = New Font(ctl.Font, FontStyle.Italic Or FontStyle.Bold)
于 2013-08-29T16:37:16.103 回答