Question

VB的：实时错误380，该如何解决呢？

我试运行，然后在控件：RichTextBox1上，随便打几个中文！ 然后突然弹出：实时错误380。无效属性值！ 出错的代码如下： '防止在切换输入法时字体自变 Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeySpace Then RichTextBox1.SelFontName = CommonDialog1.FontName 是以上这句出现错误的。 End If End Sub 紧急求解决。解决后，50分，拿走，如果更快点，我愿拿80分出来。

Answer 1

RichTextBox1.SelFontName = CommonDialog1.FontName这里的CommonDialog1应该是字体选择对话框，那么你应该判断一下是否是有效选择，估计是空选择或错误的字体名想要传递给你的RichTextBox1.SelFontName

Answer 2

commonDialong.FontName属性设置有问题