I'm new here.
How do I set the VB app to run in total fullscreen so that the user cannot even access to the taskbar ?
Thanks.
Printable View
I'm new here.
How do I set the VB app to run in total fullscreen so that the user cannot even access to the taskbar ?
Thanks.
Use
Form1.WindowState = 2
I also have the sourcecode for a program i have programmed that can disable the startbutton, CTRL+ESC , CTRL+ALT+DEL and hide your program in the tasklist.
Just mail me if you want the source : o ))
Edited by CyberCarsten on 03-11-2000 at 11:14 AM
also set the BorderStyle = 0 as well as WindowState = 2
and the use this code:
add below to a module:
Private Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Public Sub OnTop(vForm As Form, BTop As Boolean)
If BTop = True Then
SetWindowPos vForm.hWnd, _
HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE + SWP_NOSIZE
Else
SetWindowPos vForm.hWnd, _
HWND_NOTOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE + SWP_NOSIZE
End If
End Sub
the add this to the form_load section:
Private Sub Form_Load()
OnTop Me, True
End Sub
well, hope it helps :D
Thanks guy.
Just try this, it's a little shorter:
Code:Form1.Top = 0
Form1.Left = 0
Form1.Width = Screen.Width
Form1.Height = Screen.Height