VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "fullscreen_recover"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'實現雙人游戲全屏的功能
Public Sub fullscreen(Picture1 As PictureBox, picture2 As PictureBox, left_record As records, right_record As records, left_dmv As downmove, right_dmv As downmove)
Picture1.Cls
picture2.Cls
left_dmv.down_move Picture1
right_dmv.down_move picture2
left_record.refresh Picture1
right_record.refresh picture2
'防止全屏時界面混亂，即方塊很小
Form1.WindowState = 2
Picture1.ZOrder 0
Picture1.Left = 0: Picture1.Height = Form1.ScaleHeight: Picture1.Width = Form1.ScaleWidth / 2
picture2.ZOrder 0
picture2.Left = Picture1.Width: picture2.Height = Form1.ScaleHeight: picture2.Width = Form1.ScaleWidth / 2
Picture1.ScaleHeight = 20: Picture1.ScaleWidth = 10
picture2.ScaleHeight = 20: picture2.ScaleWidth = 10
End Sub
'實現恢復的功能
Public Sub recover(Picture1 As PictureBox, picture2 As PictureBox, left_record As records, right_record As records, left_dmv As downmove, right_dmv As downmove)
Picture1.Cls
picture2.Cls
left_dmv.down_move Picture1
right_dmv.down_move picture2
left_record.refresh Picture1
right_record.refresh picture2
'防止恢復時界面混亂，即方塊很小
Form1.WindowState = 0
Picture1.Left = 1080: Picture1.Height = 6000: Picture1.Width = 3000
picture2.Left = 4080: picture2.Height = 6000: picture2.Width = 3000
Picture1.ScaleHeight = 20: Picture1.ScaleWidth = 10
picture2.ScaleHeight = 20: picture2.ScaleWidth = 10
End Sub
'實現單人游戲全屏的功能
Public Sub singlegame_fullscreen(Picture1 As PictureBox, left_record As records, left_dmv As downmove)
Picture1.Cls
left_dmv.down_move Picture1
left_record.refresh Picture1
'防止恢復時界面混亂，即方塊很小
Form1.WindowState = 2
Picture1.ZOrder 0
Picture1.Left = 1080: Picture1.Height = Form1.ScaleHeight: Picture1.Width = Form1.ScaleWidth - 1080
Picture1.ScaleHeight = 20: Picture1.ScaleWidth = 10
End Sub