VB 操作题
发布网友
发布时间:2023-10-17 03:37
我来回答
共1个回答
热心网友
时间:2024-10-28 14:30
Private Sub Command1_Click()
Form1.Left = 0
Form1.Top = 0
End Sub
Private Sub Command2_Click()
On Error Resume Next
Dim i
i = InputBox("请输入放大比例")
Form1.Height = 1200 * i
Form1.Width = 2400 * i
End Sub
Private Sub Form_Load()
Form1.Height = 1200
Form1.Width = 2400
End Sub
附件就不用了吧。。。 这个很简单的
追问
追答ControlBox = False
这个代码是设置成无控制菜单 可以直接在属性里改