VB程序代码求

来源：百度知道 编辑：UC知道 时间：2024/05/11 18:24:49
具体要求如下：
1、窗体上的相同类型的控件按照从上到下，从左到右的顺序放置，并按照默认方式命名。
例如有4个CommandButton类型的控件，命名按照如下方式：
Command1 Command2
Command3 Command4
2、取消窗体（Form）的最大化和最小化按钮。
3、当单击命令按钮时，实现窗体放大功能，放大后再单击该按钮则还原窗口。
4、同时可使用热键Alt+L和Alt+B实现窗口放大或还原。
5、当窗体大小改变后，总是让命令按钮位于窗口的中央。

这个代码怎么写?谢了~!

1.自己画
2.将窗体的MinButton和MaxButton属性都设置为False
3.
在通用声明处写
Dim i as Boolean
该按钮的Click事件中写入如下代码:
If i Then Me.WindowState = 0 Else Me.WindowState = 2
i = Not i
4.将窗体的KeyPreview属性设置为True
在窗体的KeyDown事件中写入以下代码
If Shift And vbAltMask Then
Select Case KeyCode
Case vbKeyL
i = True
Me.WindowState = 2
Case vbKeyB
i = False
Me.WindowState = 0
End Select
End If
5.在窗体Resize事件中写入以下代码
Command1.Left = (Me.Width - Command1.Width) / 2
Command1.Top = (Me.Height - Command1.Height) / 2

完整代码如下
Dim i As Boolean
Private Sub Command1_Click()
If i Then Me.WindowState = 0 Else Me.WindowState = 2
i = Not i
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift And vbAltMask Then
Select Case KeyCode
Case vbKeyL
i = True
Me.WindowState = 2
Case