Question

VB点击Command1出错

Private Sub Command1_Click()
RichTextBox1.SelFontSize = IIf(Val(Text1.Text), CInt(Text1.Text), RichTextBox1.SelFontSize)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 '0-9
Exit Sub
Case Else
KeyAscii = 0
MsgBox "请输入数字！", g + 64, "提示"
End Select
End Sub

为什么当Text1内容为空的时候，点击Command1就出错，错误为13
当Text1输入数字的时候，点击Command1正常

Answer 1

'错误在下句中的 CInt(Text1.Text)，在立即窗口运行 CInt("")，试试。
RichTextBox1.SelFontSize = IIf(Val(Text1.Text), CInt(Text1.Text), RichTextBox1.SelFontSize)

'改正：
Private Sub Command1_Click()
if IsNumeric(Text1.Text) then
RichTextBox1.SelFontSize = Val(Text1.Text)
End if
End Sub

Answer 2

Private Sub Command1_Click()
if text1.text="" then
msgbox"请输入内容"
exit sub
end if
RichTextBox1.SelFontSize = IIf(Val(Text1.Text), CInt(Text1.Text), RichTextBox1.SelFontSize)
End Sub

Answer 3

空和0是不一样的,Text1.Text为空，CInt(Text1.Text)就会出错
Cint就是对数字四舍五入保留整数

Answer 4

在设置字体大小语句之前，先判断TEXT1的内容是否合适，不合适，直接退出过程

Answer 5

CInt(Text1.Text)-->CInt(Val(Text1.Text))

Answer 6

CInt(Text1.Text)
应该是
if Text1.Text="" then
Text1.Text=0
end if
RichTextBox1.SelFontSize = IIf(Val(Text1.Text), CInt(Text1.Text), RichTextBox1.SelFontSize)