读书人

frame适应界面大小的有关问题

发布时间: 2012-02-22 19:36:55 作者: rapoo

frame适应界面大小的问题
我想让界面上的frame随着界面大小的变化而自适应大小

好像不能用resize()

请大侠指教

[解决办法]
在form 的 resize 中控制 FRAME 的大小
[解决办法]
例子
Private Sub Form_Resize()
On Error Resume Next
'当窗体调整时会调整网格

DataGrid1.Width = Me.ScaleWidth - 200
DataGrid1.Height = Me.ScaleHeight - 1100
Command1.Left = Me.ScaleWidth - Command1.Width - 100
Command1.Top = Me.ScaleHeight - 400
End Sub
[解决办法]
下面这组代码你试试,偶也正在用:
Private Sub Form_Load()
'窗体高度等于屏幕高度的六分之一
Form1.Height = Screen.Height / 6
'窗体宽度等于屏幕宽度的六分之一
Form1.Width = Screen.Width / 6
End Sub

Private Sub Form_Resize()
Frame1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
[解决办法]
Option Explicit

Private Sub Form_Resize()
Frame1.Left = 0
Frame1.Top = 0
Frame1.Width = Me.ScaleWidth
Frame1.Height = Me.ScaleHeight
End Sub

读书人网 >VB

热点推荐