vb中的richtextbox控件问题
Dim a, b As IntegerPrivate Sub Form_Load()
a = RichTextBox1.Width / Form1.ScaleWidth '宽度比例
b = RichTextBox1.Height / Form1.ScaleHeight '高度比例
End Sub
Private Sub Form_Resize()
RichTextBox1.Width = a * Form1.ScaleWidth
RichTextBox1.Height = b * Form1.ScaleHeight
End Sub
为什么控件高度不会跟随窗体的改变而改变???
[ 本帖最后由 zhnzz4229 于 2013-9-1 10:24 编辑 ]