設計一個對話框，里面用的是下拉組合框，其中一個組合框是字號，有個要求是：當輸入自定義字號并按Enter鍵或輸入字號且焦點離開該組合框后，文本框的字號變為所定義字號；（2）如果輸入的字號非法（小于或等于0、慷訓非數字），則保留原字體大小。第二個要求不知道怎么做，求解答這是我寫的代碼，第一個問題做出來了，就是第二個不會
Private Sub Co4_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase 1 To Max Case ElseT1.FontSize = 10End SelectIf KeyAscii = 13 ThenT1.FontSize = Co4.TextEnd IfEnd Sub
uj5u.com熱心網友回復：
Option Explicit
Private Sub Change_Font()
If IsNumeric(Co4.Text) Then
If Val(Co4) > 0 Then T1.Font.Size = Val(Co4)
End If
End Sub
Private Sub Co4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Change_Font
End Sub
Private Sub Co4_LostFocus()
Change_Font
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/125041.html
標籤：控件