非常急的问题??高手请进

Question

Private Sub Form_Load()
Text1.MultiLine = True
Text1.Top = 0
Text1.Left = 0
Text1.Width = Me.ScaleWidth
Text1.Height = Me.ScaleHeight
End Sub

Answer 1

Text1.MultiLine  =  True
需要设计时设置

Answer 2

楼上的方面可以做到文本框显示到与窗口一样大以下是全屏的方法 
Private Sub Form_Load()
  Form1.WindowState = 2
  Text1.Top = 0
  Text1.Left = 0
  Text1.Width = Screen.Width
  Text1.Height = Screen.Height
End Sub

Answer 3

说明：
  文本框名为：Text1
  工具条名为：Toolbar1
  任务栏名为：StatusBar1Text1.MultiLine = True
Text1.Left = 0
Text1.Top = Toolbar1.Height
Text1.Width = Me.ScaleWidth
Text1.Height = Me.ScaleHeight - Toolbar1.Height - StatusBar1.Height即可做到文本框大小为窗体大小，且不覆盖工具条和状态栏

Answer 4

做一个无窗口标题栏的form，把text控件设成窗口大小即可。

Answer 5

Sub form_load()
Form1.Left = 0
Form1.Top = 0
Form1.Width = Screen.Width
Form1.Height = Screen.Height
Form1.Width = Screen.Width
Form1.Height = Screen.Height
Text1.Left = 0
Text1.Top = 0
Text1.Width = Form1.Width
Text1.Height = Form1.Height
End Sub