Form1.Move 0, 0, Screen.Width / 2, Screen.Height / 2
End Sub
Private Sub Form_Resize()
Picture1.Move 0, 0, Form1.Width, Form1.Height
End Sub
Private Sub Picture1_dblClick() '全屏 ,雙擊切換
'將 Form1.BorderStyle設置為 0
If Form1.Width <> Screen.Width Then
Form1.Move 0, 0, Screen.Width, Screen.Height
Else
Form1.Move 0, 0, Screen.Width / 2, Screen.Height / 2
End If
End Sub
Private Sub Picture1_dblClick() '最大化 ,雙擊切換
'將 Form1.BorderStyle設置為 2
If Form1.WindowState <> 2 Then
Form1.WindowState = 2
Else
Form1.WindowState = 0
End If
End Sub
妳要的是這效果嗎?設計全屏時,因沒有關閉按鍵了,可加個右鍵彈出菜單,以便實施退出程序等操作。