Quando você cria um formulário no Visual Basic , você decide em cima de um tamanho ideal e construir a forma de acordo. A menos que você restringir os usuários de redimensionar o formulário , você deve explicar o que acontece com ele , se um usuário re- dimensiona a tela ou como seu formulário é exibido para usuários com diferentes resoluções de tela do que o seu próprio. Você pode escrever um sub que re- dimensiona o formulário e seus controles e chamar o sub sempre que você precisar . Instruções
1
Abra a janela de código do seu projeto. Declare um novo Private Sub e criar duas variáveis para manter os valores de X e Y para o re -size:
Sub ResizeForm Privado ( Formulário ByVal )
Dim XSize As Integer
Dim ysize as Integer
2
Digite as seguintes linhas , a primeira , para evitar um acidente de programa para os controles que não podem ser re- size e segundo para evitar o re-size ocorra se a forma já está minimizada ou maximizada :
On Error Resume Next
Se Form.WindowState < > 0 Then Exit Sub
3
Digite o seguinte linhas para definir a origem da forma re -sized ( no canto superior esquerdo do formulário ) para o canto superior esquerdo da tela, e para ampliar o próprio formulário :
Me.Top = 0 < br >
Me.Left = 0
Me.Height = Me.Height * ysize
Me.Width = Me.Width * XSize
4
Digite as seguintes linhas para percorrer os controles presentes na forma de re- tamanho -los e acabar com o sub . Isso irá redimensionar as larguras e alturas de vários controles , enquanto mantém seus alinhamentos intacta :
For i = 0 To Me.Controls.Count - 1
Me.Controls (i) . = left Me.Controls (i) . Esquerda * XSize
Me.Controls (i) . top = Me.Controls ( i) . Principais * ysize
Me.Controls (I). Altura = Me.Controls (i). Altura * ysize
Me.Controls (I). Largura = Me.Controls (I). Largura * XSize
Next i
End Sub