fullscreen.cls

this game is programmed by visual basic language,please check it,thank you very much!

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