Snappy! - 2005-02-14 4:00 PM
Just adding on to the tested device list. Thought Stingraze would like to know.
This is a classic example of how other people will get turned off to volunteer to test in future!
hmm... You know guys, I can provide you guys with the source code, and maybe you can help meout. It was working perfectly fine until today, and I noticed the taskbar still there.
Thank you Snappy and C:Amie for taking your time to test your devices.
Note: the HpcScreenSvr status:
(currently under development. Ver.0.0.3
)
Source Code of the Module
(which I think is the problem because in the porting, I deleted one function and constants
)
<MODULE>
Option Explicit
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SHFS_SHOWTASKBAR = &H1
Const SHFS_HIDETASKBAR = &H2
Const SHFS_SHOWSIPBUTTON = &H4
Const SHFS_HIDESIPBUTTON = &H8
Const SHFS_SHOWSTARTICON = &H10
Const SHFS_HIDESTARTICON = &H20
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_SHOWWINDOW = &H40
Const SM_CXSCREEN = &H0
Const SM_CYSCREEN = &H1
Const HHTASKBARHEIGHT = 26
Declare Function GetSystemMetrics Lib "Coredll"
( _
ByVal nIndex As Long
) As Long
Declare Function MoveWindow Lib "Coredll"
( _
ByVal hwnd As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal bRepaint As Long
) As Long
Declare Function SetForegroundWindow Lib "Coredll"
( _
ByVal hwnd As Long
) As Boolean
Declare Function GetLastError Lib "Coredll"
(
) As Long
Declare Function ShowWindow Lib "Coredll"
( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long
) As Long
Declare Function FindWindow Lib "Coredll" Alias "FindWindowW"
( _
ByVal lpClassName As String, _
ByVal lpWindowName As String
) As Long
Public Sub FullScreen
(ByVal frmHwnd As Long, ByVal makeFull As Boolean
)
Dim lret
If Not makeFull Then
ShowSIP frmHwnd, True
ShowStart frmHwnd, True
ShowTaskbar frmHwnd, True
lret = FindWindow
("menu_worker", ""
If lret <> 0 Then 'window found
ShowWindow lret, SW_SHOWNORMAL
End If
lret = SetForegroundWindow
(frmHwnd
)
lret = MoveWindow
(frmHwnd, 0, HHTASKBARHEIGHT, _
GetSystemMetrics
(SM_CXSCREEN
), _
GetSystemMetrics
(SM_CYSCREEN
), True
)
Else
ShowSIP frmHwnd, False
ShowStart frmHwnd, False
ShowTaskbar frmHwnd, False
'show form full screen
lret = FindWindow
("menu_worker", ""
If lret <> 0 Then 'window found
ShowWindow lret, SW_HIDE
End If
lret = SetForegroundWindow
(frmHwnd
)
lret = MoveWindow
(frmHwnd, 0, 0, _
GetSystemMetrics
(SM_CXSCREEN
), _
GetSystemMetrics
(SM_CYSCREEN
) + HHTASKBARHEIGHT, 0
)
End If
End Sub
Public Sub ShowSIP
(ByVal frmHwnd As Long, ByVal ShowIt As Boolean
)
Dim lret
lret = SetForegroundWindow
(frmHwnd
)
If Not ShowIt Then
Else
End If
End Sub
Public Sub ShowStart
(ByVal frmHwnd As Long, ByVal ShowIt As Boolean
)
Dim lret
lret = SetForegroundWindow
(frmHwnd
)
If Not ShowIt Then
Else
End If
End Sub
Public Sub ShowTaskbar
(ByVal frmHwnd As Long, ByVal ShowIt As Boolean
)
Dim lret
lret = SetForegroundWindow
(frmHwnd
)
If Not ShowIt Then
Else
End If
End Sub
phew, I could finally make it work. 
