Form_resize
  richtextbox1.move me.scaleWidth-richtextbox1.width-400, me.scaleHeight-richtextbox1.height-400
自己要保证足够的空间  

解决方案 »

  1.   

    Private Sub Form_Resize()    ' 窗体大小改变时,相应的改变文本框大小
        txtEdit.Left = ScaleLeft
        txtEdit.Width = ScaleWidth
        txtEdit.Top = ScaleTop
        txtEdit.Height = ScaleHeight
        txtEdit.Move Me.ScaleLeft - txtEdit.Left - 200, Me.ScaleWidth - txtEdit.Width - 200, Me.ScaleTop - txtEdit.Top - 200, Me.ScaleHeight - txtEdit.Height - 200
    End Sub怎么我在试运行时居然说是  实时错误'5' 无效的过程调用或参数
    txtEdit.Move Me.ScaleLeft - txtEdit.Left - 200, Me.ScaleWidth - txtEdit.Width - 200, Me.ScaleTop - txtEdit.Top - 200, Me.ScaleHeight - txtEdit.Height - 200
    这段代码是黄色的。