frmmimibar.txt

一款飞机射击游戏的源代码

Option Explicit

Dim WinState As WINDOWPLACEMENT

Private Sub Form_Load()
    FrmMimiHwnd = FrmMimiBar.hwnd
End Sub

Private Sub Form_Resize()
'Static E As Boolean
'E = Not E

'If Me.WindowState = 2 Then
Call GetWindowPlacement(FrmMimiHwnd, WinState)
'If Me.WindowState = 0 Or Me.WindowState = 2 Then
WinState.Length = Len(WinState)
If WinState.showCmd = SW_MINIMIZE Or WinState.showCmd = SW_MAXIMIZE Then
    'Me.Hide
    'FrmMain.Show
    'FrmMain.WindowState = 2
    Call ShowWindow(FrmMimiHwnd, SW_HIDE)
    Call ShowWindow(FrmMainHwnd, SW_SHOWMAXIMIZED)
    SystemParametersInfo 97, 0, vbNullString, 0
    Call FrmMain.InitScreen
    IsPause = False
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    IsPlaying = False
    IsPause = False
End Sub