我想做一个象windows里的记事本，不过遇到一问题 急等！

Question

怎么让vb里的 text大小随着form大小而改变   就象windows程序里的记事本一样的！

Answer 1

Form Resize 中添加 添加Text大小和位置的设置。

Answer 2

Private Sub Form_Resize()
    Text1.Move 0, 0, Me.Width, Me.Height / 3
End Sub

Answer 3

楼上的说的很对。
Text1.Width=frmMain.scalewidth
Text1.height=frmMain.ScaleHeight

Answer 4

Private Sub Form_Resize()
Text1.Top = 0
Text1.Left = 0
Text1.Width = Me.ScaleWidth
Text1.Height = Me.ScaleHeightEnd Sub

Answer 5

Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

Answer 6

Private Sub Form_Resize()
    Text1.Move 0, 0, ScaleWidth,ScaleHeight
End Sub

Answer 7

呵呵，最简单的办法，去下载resize32.ocx控件。
往form上面放一个，就ok了
代码都不用写，免费的

Answer 8

Private Sub Form_Resize()
    Text1.Move 0, 0, ScaleWidth,ScaleHeight
End Sub

Answer 9

回复人： libralibra(食食物者为俊杰) ( ) 信誉：100  2004-11-24 19:14:00  得分: 0  
 
 
呵呵，最简单的办法，去下载resize32.ocx控件。
往form上面放一个，就ok了
代码都不用写，免费的
  
 
我就是想自己练习写写程序，让我下载编好的！！　这对新人来说简直是毒药！　谢绝！

Answer 10

谢谢，楼上各位
决定采取GGL123这位大哥的代码!! 谢谢你帮了我这么多忙！ 回复人： GGL123() ( ) 信誉：100  2004-11-24 19:01:00  得分: 0  
 
 
   Private Sub Form_Resize()
Text1.Top = 0
Text1.Left = 0
Text1.Width = Me.ScaleWidth
Text1.Height = Me.ScaleHeightEnd Sub