Sub Picture1_Click() '点最小图启颤标
Form1.WindowState = 1 '缩小窗口
End Sub
Sub Picture2_Click()'点最大图标
Form1.WindowState = 2
End Sub
Sub Picture3_Click()'点关闭图标
End
End Sub
在设计时把窗口的ShowInTaskbar属性设置吵码为True,然后把WindowState设物友置为vbMinimized就可以,见下升蚂哪面代码:
Private Sub Command1_Click()Form1.WindowState = vbMinimized
End Sub
效果如下:
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)