[es] - Full Screen u VB-u

Fenix

Član broj: 18672
Poruke: 64
*.dslam.ob.bih.net.ba.

Profil

^{03.06.2004. u 09:21}

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?

^{03.06.2004. u 09:21}

Marko_L
Marko Lošonc
Project Manager, Maxifer d.o.o
Beograd

Moderator
Član broj: 20532
Poruke: 2109
*.yubc.net

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoft.com

Profil

Re: Full Screen u VB-u

^{03.06.2004. u 19:26}

Pored ovoga što su ti napisali gore, podesi još i property Border Style forme da bude fiksiran, recimo fixed single.

-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

^{03.06.2004. u 19:26}

Fenix

Član broj: 18672
Poruke: 64
*.dslam.ob.bih.net.ba.

Profil

Re: Full Screen u VB-u

^{04.06.2004. u 10:19}

Aha, Border Style rješava problem.
Zahvaljujem na pomoći.

^{04.06.2004. u 10:19}

Charli

Član broj: 28921
Poruke: 25
*.crnagora.net

Profil

Re: Full Screen u VB-u

^{23.06.2004. u 21:11}

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

^{23.06.2004. u 21:11}