Private Sub Text1_Change()
If Text1.Text > 1 Then
Text1.FontSize = "20"
Else
Text1.FontSize = "43"
End If
End Sub
不知是哪里错了，只要将里面的字全删了，就会跳出来，望高手指点！
vb 中实时错误‘13’类型不匹配
答案:1 悬赏:60 手机版
解决时间 2021-02-07 15:38
- 提问者网友：嗝是迷路的屁
- 2021-02-07 04:24
最佳答案
- 五星知识达人网友：过活
- 2021-02-07 04:54
Private Sub Text1_Change()
If Val（Text1.Text） > 1 Then
Text1.FontSize = "20"
Else
Text1.FontSize = "43"
End If
End Sub
If Val（Text1.Text） > 1 Then
Text1.FontSize = "20"
Else
Text1.FontSize = "43"
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯