Question

VB改变窗体大小

请发一段代码`
就是我设置了一个按钮 一按窗体的高度就减小300

Answer 1

修改大小，可以设置对应的属性
width
:宽，
height:高
修改位置
top
:顶点，从屏幕上面开始为0，越往下，值越大，可以为负数，为负时会跑到屏幕上面去
left
:水平起点，从屏幕左边开始为0，同理与top

建议使用
move
方法
,具体看参数，

Answer 2

动态窗体应该考虑的问题：
1、窗体的高度减小，那么窗体中其他控件的位置必须发生变化，可能包含其他控件的高度随之减小的问题；
2、窗体不可能一味减小下去，有一个增大或减小的范围，这根据窗体中控件的多少和控件的位置有很大关系；
3、在一般情况下，窗体的减小不仅仅是高度的减小，同时随之宽度也减小，也必须在一个范围内；
4、窗体减小不一定是损失控件的使用为代价的。
Private Sub Command1_Click()
Dim X
X=Me.Height / (Me.Height-300) '缩小比例
If Me.Height-300 > 300 Then '窗体缩小的最小高度设置为300
Me.Height = Me.Height-300
Command1.Height=Command1.Height*X '其他控件的高度减小
Command1.Top=Command1.Top*X '其他控件的位置上移
.........
End If
End Sub
仅仅是一个提示示例，其他自己琢磨吧。

Answer 3

前面做的是对的呵,不过我在加一行,免得点几次看不到按钮了..让按钮自己向上跑呵.

Private Sub Command1_Click()
Me.Height = Me.Height - 300
If Command1.Top + Command1.Height > Me.ScaleHeight Then Command1.Top = Me.ScaleHeight - Command1.Height
End Sub

Answer 4

晕了，你的意思好像又二义。。。

如果这样的话：就是我设置了一个按钮， 一按，窗体的高度就减小300
Private Sub Command1_Click()
Me.Height = Me.Height - 300
End Sub

如果这样的话：就是我设置了一个按钮,一按窗体，的高度就减小300
Private Sub Form1_Click()
Command1.height = Command1.Height - 300
End Sub

Answer 5

Private Sub Command1_Click()
Command1.Height = Command1.Height + 300 '高度
Command1.Width = Command1.Width + 300 '宽度
End Sub