Como reconfigurar um formulário em Visual Basic para que caiba na tela

Escrito por laura gittins | Traduzido por aline kachel araujo
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como reconfigurar um formulário em Visual Basic para que caiba na tela
Mantenha o seu formulário em Visual Basic alinhado. (legal form image by max blain from Fotolia.com)

Quando você faz um formulário em Visual Basic, você pode escolher o melhor tamanho e construir o formulário de acordo com essa base. A não ser que você impeça que os usuários redimensionem o formulário, é bom levar em conta o que acontece caso um usuário troque o tamanho da tela, ou então como o formulário aparece para usuários com resolução de tela diferente da sua. Você pode escrever um "sub" para redimensionar o formulário e os seus controles sempre que for necessário.

Nível de dificuldade:
Moderadamente fácil

Outras pessoas estão lendo

Instruções

  1. 1

    Abra a janela de códigos do seu projeto. Declare um novo sub privado e crie duas variáveis que tenham os valores X e Y para a redimensão.

    Private Sub ResizeForm(ByVal Form)

    Dim XSize As Integer Dim YSize As Integer

  2. 2

    Insira as linhas abaixo, a primeira é para evitar que um programa force comandos que não podem ser redimensionados e a segunda linha evita que o redimensionamento ocorra em formulários que já estejam minimizados ou maximizados.

    On Error Resume Next If Form.WindowState <> 0 Then Exit Sub

  3. 3

    Insira as linhas abaixo para definir a origem no formulário redimensionado (canto superior esquerdo do formulário) no canto superior esquerdo da tela e para aumentar o próprio formulário.

    Me.Top = 0 Me.Left = 0 Me.Height = Me.Height * YSize Me.Width = Me.Width * XSize

  4. 4

    Insira as linhas a seguir para fazer um loop para redimensionar os controles do formulário. O comando vai redimensionar as alturas e larguras de diversos controles, mas mantendo os alinhamentos intactos:

    For i = 0 To Me.Controls.Count - 1 Me.Controls(i).Left = Me.Controls(i).Left * XSize Me.Controls(i).Top = Me.Controls(i).Top * YSize Me.Controls(i).Height = Me.Controls(i).Height * YSize Me.Controls(i).Width = Me.Controls(i).Width * XSize Next i

    End Sub

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível