Private Sub Command1_Click()
If Me.WindowState = 2 Then
Me.Caption = "111"
Me.BorderStyle = 0
Me.WindowState = 0
Else
Me.Caption = ""
Me.BorderStyle = 2
Me.WindowState = 2
End If
End SubPrivate Sub Form_Load()
Me.BorderStyle = 0
End Subform的maxbutton属性设为False,就能全屏
If Me.WindowState = 2 Then
Me.Caption = "111"
Me.BorderStyle = 0
Me.WindowState = 0
Else
Me.Caption = ""
Me.BorderStyle = 2
Me.WindowState = 2
End If
End SubPrivate Sub Form_Load()
Me.BorderStyle = 0
End Subform的maxbutton属性设为False,就能全屏
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货