与控件大小相关的只有以下代码:
Private Sub Form_Resize()
RichTextBox1.Top = 0
RichTextBox1.Left = 0
RichTextBox1.Width = Form1.Width
RichTextBox1.Height = Form1.Height
End Sub
请大虾们帮帮我。我都快疯了:)
Private Sub Form_Resize()
RichTextBox1.Top = 0
RichTextBox1.Left = 0
RichTextBox1.Width = Form1.Width
RichTextBox1.Height = Form1.Height
End Sub
请大虾们帮帮我。我都快疯了:)
改成这样吧:
RichTextBox1.Width = Form1.ScaleWidth
RichTextBox1.Height = Form1.ScaleHeight
RichTextBox1.Top = 0
RichTextBox1.Left = 0
RichTextBox1.Width = Form1.ScaleWidth
RichTextBox1.Height = Form1.ScaleHeight
End Sub
ScaleWidth,ScaleHeight是可描画区的尺寸,
差个边框
又拿不到分了???
哎...