?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -