Kako da mi se program izvršava fullscreen (bez task bara)?
Full Screen u VB-u
Zaključano
Zakačeno
Jednostavno stavis za formu koja ti se prikazuje WindowState=maximized.
pozdrav Željko
i iskljucis controll box
Potpis
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Da je važnije biti ljubazan nego biti u pravu
Nisi shvatio. Ne treba da se vidi ni taskbar sa dugmetom start i systray-om.
Drugim riječima ne smije biti apsolutno ništa na ekranu što nije moja VB forma ili neki njen dio.
Ok?
Drugim riječima ne smije biti apsolutno ništa na ekranu što nije moja VB forma ili neki njen dio.
Ok?
Pored ovoga što su ti napisali gore, podesi još i property Border Style forme da bude fiksiran, recimo fixed single.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Aha, Border Style rješava problem.
Zahvaljujem na pomoći.
Zahvaljujem na pomoći.
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:
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
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
Potpis
Charli