Como redimensionar uma forma visual basic para caber na tela

Quando você cria um formulário no Visual Basic, você decidir sobre um tamanho ideal e construir a forma de acordo. A menos que você restringir os usuários de redimensionamento de sua forma, você deve explicar o que acontece com ele, se um usuário re-tamanhos da tela ou como o formulário aparece para os usuários com diferentes resoluções de tela do que o seu próprio. Você pode escrever uma sub que re-dimensiona o formulário e seus controles e chamar o sub sempre que precisar.

  • Abra a janela de código do seu projeto. Declare um novo Private Sub e criar duas variáveis ​​para manter os valores X e Y para o re-size:

    Private Sub ResizeForm (Form ByVal)

    Dim XSIZE As Integer

    Dim YSize As Integer

  • Digite as seguintes linhas, o primeiro para evitar uma colisão programa para os controles que não pode ser re-sized eo segundo para evitar a re-size ocorra se o formulário já está minimizada ou maximizada:

    On Error Resume Next

    Se Form.WindowState <> 0 Then Exit Sub

  • Digite as seguintes linhas para definir a origem do formulário re-sized (no canto superior esquerdo do formulário) para o canto superior esquerdo da tela, e ampliar o próprio formulário:

    Me.Top = 0

    Me.Left = 0

    Me.Height = Me.Height * YSize

    Me.Width = Me.Width * XSIZE

  • Digite as seguintes linhas para percorrer os controles presentes no formulário para re-size-los e acabar com o sub. Isso irá redimensionar as larguras e alturas de vários controles, enquanto mantém seus alinhamentos intacta:

    Para 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

    Proximo eu

    End Sub

De esta maneira? Compartilhar em redes sociais:

LiveInternet