Skulle vilja tvinga användaren att besvara en fråga innan det skall gå att använda Windows. Sedan hur får man till det att program fönstret täcker menyraden aktivitetshanteraren?

Kan frågan möjligtvis vara användarnamn & lösenord? :-)

Fortfarande förvånad att någon/något dumhuvud kämpar med detta missfoster VB.net.


Phuuuuuuuuuu

Svennebanan... .net du inte gillar?

För att göra en helskärms applikation skriver du:

Public Class Form1

    Private Const SM_CXSCREEN As Integer = 0
    Private Const SM_CYSCREEN As Integer = 1
    Private Shared HWND_TOP As IntPtr = IntPtr.Zero
    Private Const SWP_SHOWWINDOW As Integer = 64

    Private Declare Function GetSystemMetrics Lib "user32.dll" Alias "GetSystemMetrics" (ByVal Which As Integer) As Integer
    Private Declare Function SetWindowPos Lib "user32.dll" Alias "SetWindowPos" (ByVal hWnd As IntPtr, ByVal hWndIntertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        Me.FormBorderStyle = FormBorderStyle.None
        Me.TopMost = True

        Dim ScreenX As Integer = GetSystemMetrics(SM_CXSCREEN)
        Dim ScreenY As Integer = GetSystemMetrics(SM_CYSCREEN)
        SetWindowPos(Me.Handle, HWND_TOP, 0, 0, ScreenX, ScreenY, SWP_SHOWWINDOW)
    End Sub
End Class

För att förhindra att programmet stängs av med Alt+F4 kan du lägga till följande i FormClosing:

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        e.Cancel = True
    End Sub

Man kan även lägga in ett villkor:

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If e.CloseReason = CloseReason.UserClosing Then
            e.Cancel = True
        End If
    End Sub