vb中的richtextbox控件问题

zhnzz4229 发布于 2013-09-01 10:22， 396 次点击

Dim a, b As Integer
Private 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 编辑 ]

2 回复

zhnzz42292013-09-01 10:53

已经解决了，原来是类型不对。

zhnzz42292013-09-01 11:04

程序代码：

Dim a, b As Single
Private Sub Form_Load()
a = RichTextBox1.Width / Form1.Width
b = RichTextBox1.Height / Form1.Height
End Sub

Private Sub Form_Resize()
RichTextBox1.Width = a * Form1.Width
RichTextBox1.Height = b * Form1.Height
End Sub

这是修改后的代码！！！