如何使richtextbox大小自动随窗体改变

Question

或者来信给你个控件
[email protected]
免费的,带使用说明

Answer 1

Option ExplicitPrivate Sub Form_Load()
RichTextBox1.Width = Form1.Width
RichTextBox1.Height = Form1.Height
RichTextBox1.Top = 0
RichTextBox1.Left = 0
End Sub
Private Sub Form_Resize()
RichTextBox1.Width = Form1.Width
RichTextBox1.Height = Form1.Height
RichTextBox1.Top = 0
RichTextBox1.Left = 0
End Sub
'定位时，您自己定吧。
'我只写码，给泰山哥加分吧。

Answer 2

'******************************************************
  '原作者：邓勇
  '收集整理：小聪明  [email protected]
  '欢迎访问小聪明的主页VB版：  http://coolzm.533.net
  '******************************************************
  '功能:：窗体大小改变时窗体内的控件大小也随之动态改变
  '使用方法：
  '在相应的窗体程序中加入如下语句：
  '---------------------------------------------------
  'Private  Sub  Form_Load()
  '    Call  ResizeInit(Me)  '在程序装入时必须加入
  'End  Sub
  
  'Private  Sub  Form_Resize()
  '    Call  ResizeForm(Me)  '确保窗体改变时控件随之改变
  'End  Sub
  '---------------------------------------------------
  Option Explicit
  Private FormOldWidth   As Long   '保存窗体的原始宽度
  Private FormOldHeight   As Long   '保存窗体的原始高度
  '在调用ResizeForm前先调用本函数
  Public Sub ResizeInit(FormName As Form)
      Dim Obj   As Control
      FormOldWidth = FormName.ScaleWidth
      FormOldHeight = FormName.ScaleHeight
      On Error Resume Next
      For Each Obj In FormName
          Obj.Tag = Obj.Left & "  " & Obj.Top & "  " & Obj.Width & "  " & Obj.Height & "  "
      Next Obj
      On Error GoTo 0
  End Sub
  
  '按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
  Public Sub ResizeForm(FormName As Form)
      Dim Pos(4)   As Double
      Dim i   As Long, TempPos    As Long, StartPos    As Long
      Dim Obj   As Control
      Dim ScaleX   As Double, ScaleY    As Double
      ScaleX = FormName.ScaleWidth / FormOldWidth      '保存窗体宽度缩放比例
      ScaleY = FormName.ScaleHeight / FormOldHeight      '保存窗体高度缩放比例
      On Error Resume Next
      For Each Obj In FormName
          StartPos = 1
          For i = 0 To 4
          '读取控件的原始位置与大小
              TempPos = InStr(StartPos, Obj.Tag, "  ", vbTextCompare)
              If TempPos > 0 Then
                  Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
                  StartPos = TempPos + 1
              Else
                  Pos(i) = 0
              End If
        '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
              Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
          Next i
      Next Obj
      On Error GoTo 0
  End Sub