Windows Form sobre tudo

[manuelito]

Bom dia pessoal, sou iniciante em programação e estou desenvolvendo um menuzim.

- Tem apenas um Form e preciso que ele fique em tela cheia e bloqueie o ctrl + alt + del e a barra de ferramentas(menu iniciar).

Resumindo: o Form q tem ficar sobre tudo e não deixar fazer nada fora dele nem sair dele sem fechar ele.

ObrigadoWindows Form acima de tudo

[cmd]

Crias uma classe com isto.

Imports System.Drawing
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Namespace Org.Vesic.WinForms
    ''' <summary>
    ''' Selected Win AI Function Calls
    ''' </summary>

    Public Class WinApi
        <DllImport("user32.dll", EntryPoint:="GetSystemMetrics")> _
        Public Shared Function GetSystemMetrics(ByVal which As Integer) As Integer
        End Function

        <DllImport("user32.dll")> _
        Public Shared Sub SetWindowPos(ByVal hwnd As IntPtr, ByVal hwndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal width As Integer, ByVal height As Integer, _
   ByVal flags As UInteger)
        End Sub

        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
        ' 0x0040
        Public Shared ReadOnly Property ScreenX() As Integer
            Get
                Return GetSystemMetrics(SM_CXSCREEN)
            End Get
        End Property

        Public Shared ReadOnly Property ScreenY() As Integer
            Get
                Return GetSystemMetrics(SM_CYSCREEN)
            End Get
        End Property

        Public Shared Sub SetWinFullScreen(ByVal hwnd As IntPtr)
            SetWindowPos(hwnd, HWND_TOP, 0, 0, ScreenX, ScreenY, _
             SWP_SHOWWINDOW)
        End Sub
    End Class

    ''' <summary>
    ''' Class used to preserve / restore state of the form
    ''' </summary>
    Public Class FormState
        Private winState As FormWindowState
        Private brdStyle As FormBorderStyle
        Private topMost As Boolean
        Private bounds As Rectangle

        Private IsMaximized As Boolean = False

        Public Sub Maximize(ByVal targetForm As Form)
            If Not IsMaximized Then
                IsMaximized = True
                Save(targetForm)
                targetForm.WindowState = FormWindowState.Maximized
                targetForm.FormBorderStyle = FormBorderStyle.None
                targetForm.TopMost = True
                WinApi.SetWinFullScreen(targetForm.Handle)
            End If
        End Sub

        Public Sub Save(ByVal targetForm As Form)
            winState = targetForm.WindowState
            brdStyle = targetForm.FormBorderStyle
            topMost = targetForm.TopMost
            bounds = targetForm.Bounds
        End Sub

        Public Sub Restore(ByVal targetForm As Form)
            targetForm.WindowState = winState
            targetForm.FormBorderStyle = brdStyle
            targetForm.TopMost = topMost
            targetForm.Bounds = bounds
            IsMaximized = False
        End Sub
    End Class
End Namespace

Depois basta:

Dim formstate As New NomeDoProjecto.Org.Vesic.WinForms.FormState

formstate.maximize(me)

E tem o fullscreen 😕

[manuelito]

obrigado pela ajuda..

então, ele fica sobre tudo(em fullscreen), mas, não está bloqueando os atalhos como ctrl+alt+del e o ctrl+esc.

[cmd]

Pois não, eu só dei o código do fullscreen.

Googla um bocado 😉

[Leudassdf]

cmd eu criei uma class com o codigo que tens:

Imports System.Drawing
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Namespace Org.Vesic.WinForms
    ''' <summary>
    ''' Selected Win AI Function Calls
    ''' </summary>

    Public Class WinApi
        <DllImport("user32.dll", EntryPoint:="GetSystemMetrics")> _
        Public Shared Function GetSystemMetrics(ByVal which As Integer) As Integer
        End Function

        <DllImport("user32.dll")> _
        Public Shared Sub SetWindowPos(ByVal hwnd As IntPtr, ByVal hwndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal width As Integer, ByVal height As Integer, _
   ByVal flags As UInteger)
        End Sub

        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
        ' 0x0040
        Public Shared ReadOnly Property ScreenX() As Integer
            Get
                Return GetSystemMetrics(SM_CXSCREEN)
            End Get
        End Property

        Public Shared ReadOnly Property ScreenY() As Integer
            Get
                Return GetSystemMetrics(SM_CYSCREEN)
            End Get
        End Property

        Public Shared Sub SetWinFullScreen(ByVal hwnd As IntPtr)
            SetWindowPos(hwnd, HWND_TOP, 0, 0, ScreenX, ScreenY, _
             SWP_SHOWWINDOW)
        End Sub
    End Class

    ''' <summary>
    ''' Class used to preserve / restore state of the form
    ''' </summary>
    Public Class FormState
        Private winState As FormWindowState
        Private brdStyle As FormBorderStyle
        Private topMost As Boolean
        Private bounds As Rectangle

        Private IsMaximized As Boolean = False

        Public Sub Maximize(ByVal targetForm As Form)
            If Not IsMaximized Then
                IsMaximized = True
                Save(targetForm)
                targetForm.WindowState = FormWindowState.Maximized
                targetForm.FormBorderStyle = FormBorderStyle.None
                targetForm.TopMost = True
                WinApi.SetWinFullScreen(targetForm.Handle)
            End If
        End Sub

        Public Sub Save(ByVal targetForm As Form)
            winState = targetForm.WindowState
            brdStyle = targetForm.FormBorderStyle
            topMost = targetForm.TopMost
            bounds = targetForm.Bounds
        End Sub

        Public Sub Restore(ByVal targetForm As Form)
            targetForm.WindowState = winState
            targetForm.FormBorderStyle = brdStyle
            targetForm.TopMost = topMost
            targetForm.Bounds = bounds
            IsMaximized = False
        End Sub
    End Class
End Namespace

Depois deveria declarar isto :

Dim formstate As New NomeDoProjecto.Org.Vesic.WinForms.FormState

formstate.maximize(me)

mas esta declaraçao faço-a onde? e a parte do

 formstate.maximize(me)

e para chamar a classe?

Nao percebi bem. e que eu quero que ao clicar num botao ela execute o teu codigo....

[cmd]

A declaração fazes na form que queres que fique em fullscreen.

Esse formstate.maxime(me) deves colocar no evento do botão, ou outro controlo, quando quiseres que a form fique grande.

[Leudassdf]

A declaração fazes na form que queres que fique em fullscreen.

Esse formstate.maxime(me) deves colocar no evento do botão, ou outro controlo, quando quiseres que a form fique grande.

A class cria-te a parte ou tambem foi na parte onde se encontra o codigo do form1 por ex?

[Leudassdf]

A class cria-te a parte ou tambem foi na parte onde se encontra o codigo do form1 por ex?

Ja agora ao fazer a declaraçao da-me o seguinte erro.

Type 'futero_gallery.Org.Vesic.WinForms.FormState' is not defined.

O que pode ser?

[Lukas S.]

futero_gallery é o nome do projecto ?

[cmd]

A classe cria-se num ficheiro próprio para a Class.

Não sabes criar classes?

[Lukas S.]

cmd esqueci de te agradecer ... por acaso funcionou e guardei a classe em  .vb pra depois usar noutro programa 😄

[cmd]

Sim funciona 😄 , não tens de quê.

Mas os créditos não são meus, vi isso em algum lado, creio que no The CodeProject, mas não me recordo onde.

[Leudassdf]

A classe cria-se num ficheiro próprio para a Class.

Não sabes criar classes?

sim sei.

O problema e que inicialmente eu tinha um nome no form, depois alterei e pelos vistos deu bug. ja esta resolvido. obrigada cmd!

[cmd]

sim sei.

O problema e que inicialmente eu tinha um nome no form, depois alterei e pelos vistos deu bug. ja esta resolvido. obrigada cmd!

Sempre às ordens 😄

[Leudassdf]

cmd so mais uma pergunta

no  formstate.maximize(me) nao posso colocar em vez de maximizar o form não osso maximizar uma picture box?

[cmd]

Com esse código que passei penso que não.

Podes é tentar alterar o código para fazer isso 😄