我正在嘗試做一些可能非常簡單的事情，但我嘗試的一切似乎都不起作用。
我正在制作一個 Windows 表單應用程式，它只允許您使用充滿不同字體的手預覽一些自定義文本。
我想要做的是在選中復選框時將標簽的字體樣式更改為斜體。同時保留當前字體。
“顯示”是我的標簽名稱。“Italicscb”是復選框的名稱。
下面是我目前使用的代碼：
Private Sub Italicscb_CheckedChanged(sender As Object, e As EventArgs) Handles
Italicscb.CheckedChanged
If Italicscb.CheckState = CheckState.Checked Then
Display.Font = New Font("Arial", 60, FontStyle.Italic)
Else
If Italicscb.CheckState = CheckState.Unchecked Then
Display.Font = New Font("Arial", 60, FontStyle.Bold)
End If
End If
End Sub
這作業正常，但它需要我輸入一個新的字體名稱。我不想要的。我試圖為當前字體分配一個變數并將其插入，但這給了我一個錯誤。
Dim CF As Font
CF = Display.Font
If Italicscb.CheckState = CheckState.Checked Then
Display.Font = New Font(CF, 60, FontStyle.Italic)
Else
If Italicscb.CheckState = CheckState.Unchecked Then
Display.Font = New Font(CF, 60, FontStyle.Bold)
End If
End If
End Sub
我還嘗試在單個字體選項按鈕中放置一個 if then 回圈。沒有錯誤，但是當我選中該框時沒有任何反應。
if Italicscb.CheckState = CheckState.Checked Then
Display.Font = New Font("Freehand521 BT", 60, FontStyle.Italic)
Else
Display.Font = New Font("Freehand521 BT", 60, FontStyle.Bold)
End If
如果有人能指出我做錯了什么。我真的很感激。順便說一下，我正在為我的作業做這個。
謝謝你。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/399818.html
上一篇：多執行緒cURL請求？