图标在这里面找
先声明三个公共变量
Public a As SizePublic b As Point
Public flag As Boolean
在最大化按钮里写
a = Me.Sizeb = Me.Location
Me.Top = 0
Me.Left = 0
Me.Height = Screen.PrimaryScreen.WorkingArea.Height
Me.Width = Screen.PrimaryScreen.WorkingArea.Width
flag = True
还原按钮里写
If flag ThenMe.Size = a
Me.Location = b
End If
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)