Question

RICHTEXTBOX中字体修改问题，非常奇怪【VB6.0中】

同一FORM中有6个TEXTBOX方框，对其修改字体大小，其它5个都可以正常修改显示，只要第一个Form18.RichTextBox1.Font.Size = “18”这句话不起作用
Private Sub Command3_Click()

Form18.Left = 0
Form18.Top = 0

Form18.RichTextBox1.Font.Size = “18”
Form18.RichTextBox2(0).Font.Size = "16"
Form18.RichTextBox2(1).Font.Size = "16"
Form18.RichTextBox2(2).Font.Size = "16"
Form18.RichTextBox2(3).Font.Size = "16"
Form18.RichTextBox2(4).Font.Size = "16"
Form18.Show 1, Me
End Sub

Answer 1

那是因为“18”这里用的是全角的引号！

其实这个属性值的类型是数值型，所以是不用加引号的（不过用了引号的话VB也会自动转化为数值型，所以不会出错，但是如果连引号都用错了，那就没办法了）。

正确的应该是：

Form18.RichTextBox1.Font.Size = 18

Form18.RichTextBox2(0).Font.Size = 16

Form18.RichTextBox2(1).Font.Size = 16

Form18.RichTextBox2(2).Font.Size = 16

Form18.RichTextBox2(3).Font.Size = 16

Form18.RichTextBox2(4).Font.Size = 16