2013-08-29 31 views
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) 

回答

3

可以Or兩者結合起來:

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

謝謝...那個工作!現在我該如何關閉這個線程? – Blake

+0

@Blake只需在我的答案旁邊打勾,如果它解決了您的問題,那麼它將適用於所有有類似問題的人 –