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