none
Form em Tela cheia no VB.NET (Full Screen) RRS feed

  • Discussão Geral

  •  

    Olá!

       Para criarmos um Form Full Screen  no .Net sem usarmos API do Windows para esconder a barra de tarefas é muito simples.

     

      Exemplo:

     

     Adicione um novo Formulário ao seu Projeto, esse Formulário será o Form que seá exibido em Tela Cheia

     

      Nas Propriedades do novo Formulário sete as propriedades:

    1) FormBorderSytle = None              'Exibe o Formulário sem Borda

    2) StartPosition       = CenterScreen 'Define a Posição inicial do Formulário

    3) KeyPreview         = True              'Habilita que sejam criados atalhos para o Formuário

    4) TopMost             = True              'O Formulário é exibido a frente de qualquer outro que esteja aberto 

    5) WindowsState    = Maximized     'O Formulário será aberto com o janela Maximizada

     

     

    Dica: Para exibir Textos, Imagens, Vídeos etc... em Tela Cheia no Formulário que criamos faremos o seguinte:

     

    Insira no Formulário um RichText ou PictureBox ou Componente do Windows Media Player para .Net ou qualquer outro Objeto que aceite a Propriedade Dock como Fill, obviamente nas propriedades do mesmo objeto que inserirmos vamos setar a propriedade Dock como Fill e caso seja possível sete também a propriedade BorderStyle do Objeto como "None" ou como queira...

     

     

    Option Explicit On

    Imports System.Windows.Forms

     

    No Evento KeyPress do Formulário insirá o código:

     

     Private Sub Frm_Visualizar_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

      If e.KeyChar = Convert.ToChar(27) Then  '27 corresponde ao número decimal da tecla ESC na tabela ASCII

        Me.Hide()    'Esconde o Formulário

        Me.Close()  'Fecha a Formulário

    End If

    End Sub

     

     

    Chamando o Form Full Screen:

     

    Adicione um Botão em outro Form que Chamará o Formulário em Tela Cheia e no Evento_Click() do Botão insira o código a seguir:

     

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    'Pegando a Resolução do monitor

      Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width 

      Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height

     

    'Passamos para o Formulário o Tamanho em que ele será exibido

      Frm_Visualizar.Size = New System.Drawing.Size(intX, intY)

     

    'Exibindo o Formulário em Full Screen

      Frm_Visualizar.Show()

    End Sub

     

     

    Pronto agora execute seu projeto e veja o seu Form em Full Screen sem usar API do Windows para ocultar a barra de tarefas do Windows..!!!

     

    sexta-feira, 20 de junho de 2008 00:04