DIMINUIR COM O FORM
Gente eu gostaria de saber como é que se faz para quando eu restauro para baixo o formulário, para que os componentes que tem dentro dele não fiquem cortados, o que eu quero é que todos os componentes fiquem proporcionalmente do mesmo tamanho do Form. Obrigado.
Rafael Portal
Rafael Portal
Utilize aopção resize do form
exemplo
Private Sub Form_Resize()
Lista.Move 0, 0, Me.Width - 115, Me.Height - (mdiMain.SBar.Height + Frame.Height + 200)
Frame.Move 0, Lista.Height, Lista.Width, Frame.Height
cmdAction(2).Move Frame.Width - (cmdAction(2).Width + 130), 220
cmdAction(1).Move (cmdAction(2).Left - cmdAction(2).Width), 220
cmdAction(0).Move (cmdAction(1).Left - cmdAction(1).Width), 220
L(0).Move 100
cmbCampo.Move L(0).Left + L(0).Width + 50
L(1).Move cmbCampo.Left + cmbCampo.Width + 100
txtString.Move L(1).Left + L(1).Width + 50
End Sub
esse é um exemplo que eu uso de um form child dentro de um mdiform
exemplo
Private Sub Form_Resize()
Lista.Move 0, 0, Me.Width - 115, Me.Height - (mdiMain.SBar.Height + Frame.Height + 200)
Frame.Move 0, Lista.Height, Lista.Width, Frame.Height
cmdAction(2).Move Frame.Width - (cmdAction(2).Width + 130), 220
cmdAction(1).Move (cmdAction(2).Left - cmdAction(2).Width), 220
cmdAction(0).Move (cmdAction(1).Left - cmdAction(1).Width), 220
L(0).Move 100
cmbCampo.Move L(0).Left + L(0).Width + 50
L(1).Move cmbCampo.Left + cmbCampo.Width + 100
txtString.Move L(1).Left + L(1).Width + 50
End Sub
esse é um exemplo que eu uso de um form child dentro de um mdiform
Tópico encerrado , respostas não são mais permitidas