Efikasna pomoc:
U formi podesi border style na "None"
Slijedi kod za resize forme preko citavog ekrana i taskbara ali on ne iskljucuje taskbar vec ga samo prekriva nadam se da me razumijes, i dodao sam da se forma nalazi na top
to znaci da kad pozoves task menager a startovao si sledeci program task se nece vidjeti:
Code:
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Const HWND_TOP = 0
Private Const SWP_SHOWWINDOW = &H40
Private Const WM_ACTIVATE = &H6
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const HWND_TOPMOST = -1
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Private Function CoverWholeScreen(frm As Object) As Boolean
Dim lngXPos As Long
Dim lngYPos As Long
Dim lngRet As Long
On Error GoTo ErrorHandler
frm.WindowState = vbNormal
lngXPos = GetSystemMetrics(SM_CXSCREEN)
lngYPos = GetSystemMetrics(SM_CYSCREEN)
lngRet = SetWindowPos(frm.hwnd, HWND_TOP, 0, 0, lngXPos, lngYPos, SWP_SHOWWINDOW)
CoverWholeScreen = lngRet <> 0
ErrorHandler:
End Function
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
end sub
Private Sub Form_Click()
end 'ili mozes Unload me
End Sub
Charli