[Resolvido]Ajustar Formulário via VBA

Boa tarde,

Isso deve ser facil fazer, mas até agora nao consegui.
Preciso ajustar o tamanho do formulário depois que eu fizer aparecer uma ListBox.(Ela está pequena e na hora que aparece
eu aumento o tamanho da listBox). Só que no Formulário nao tem a propriedade Height, vi que na propriedade Detalhe(onde eu preciso
que aumente) tem a propriedade Height.

mas alterando o valor dele, não acontece nd. Preciso desabilitar alguma coisa no formulário pra poder redimensionar?


Grato,

Segue um exemplo do que eu quero fazer!

http://www.speedyshare.com/files/21617756/bd1.accdb

Ola Kleyton;

Utilize o procedimento InsideHeight para aumentar ou diminuir a altura de um formulário.

Me.Form.InsideHeight = Me.Form.Width * 1.4

Veja se ficou ao seu gosto;

http://dl.dropbox.com/u/771097/bd1_OLD.rar

Código:

Private Sub cmbTipoFiltro_Change()
On Error GoTo fim
   
    Me.txtFiltro = ""
    Me.txtFiltro2 = ""
 
    Select Case cmbTipoFiltro.Text
        Case "Cliente"
            cmbCliente.Visible = True
            lstStatus.Visible = False
            lblStatus.Visible = False
            If cmdConsultar.Top > (cmbCliente.Top + 420) Then
                lstStatus.Height = lstStatus.Height - 1700
                cmdConsultar.Top = cmdConsultar.Top - 1700
                cmdFechar.Top = cmdFechar.Top - 1700
               
          Me.Form.InsideHeight = lstStatus.Height + 2700

            End If
        Case "Status"
            cmbCliente.Visible = False
            lstStatus.Visible = True
            lblStatus.Visible = True
           
          Me.Form.InsideHeight = lstStatus.Height + 4300

            If cmdConsultar.Top < lstStatus.Top + 1900 Then
                lstStatus.Height = lstStatus.Height + 1700
                cmdConsultar.Top = cmdConsultar.Top + 1700
                cmdFechar.Top = cmdFechar.Top + 1700
            End If
        Case Else
            cmbCliente.Visible = False
            lstStatus.Visible = False
            cmbTipoFiltro.SetFocus
            MsgBox ("Selecione uma opção Valida!")
    End Select
   
fim:
Exit Sub
End Sub


Ficou otimooo...

Valeu JPaulo!

Obrigado pelo retorno amigo, o fórum agradece.

Aproveitei e coloquei um exemplo na sala de Repositório de Exemplos, para as feras.

Daria pra deixar o tamanho da listBox mais automático?

Digamos que tenho uma listbox que pode ter 10, 20, 30 linhas... cada hora vai ter um tamanho X
dai o tamanho dela variaria de acordo com a quantidade de linhas, pra sempre poder mostrar tudo, e não ficar aquele espaço em branco enorme em baixo também...
ficar sempre certinho..

tem como fazer isso?

Eu testei aqui e funcionou. Usando a quantidade de itens e multiplicando por 290.
Ai vc tera que testar por qual numero multiplicar de acordo com a fonte que você está usando
no listBox

lstStatus.Height = lstStatus.ListCount * 290

olá amigo, onde foi que você colocou esse código?
em qual evento?

Código:

Private Sub cmbTipoFiltro_Change()
On Error GoTo fim
   
    Me.txtFiltro = ""
    Me.txtFiltro2 = ""
 
    Select Case cmbTipoFiltro.Text
        Case "Cliente"
            cmbCliente.Visible = True
            lstStatus.Visible = False
            lblStatus.Visible = False
            If cmdConsultar.Top > (cmbCliente.Top + 420) Then
              lstStatus.Height = lstStatus.ListCount  / 290 'Acho que nem precisa ter essa linha, pois sera sempre ajustado
                                                              'pela quantidade de itens no ListBox.Portanto nao precisaria diminuir.
                cmdConsultar.Top = cmdConsultar.Top - 1700
                cmdFechar.Top = cmdFechar.Top - 1700
               
          Me.Form.InsideHeight = lstStatus.Height + 2700

            End If
        Case "Status"
            cmbCliente.Visible = False
            lstStatus.Visible = True
            lblStatus.Visible = True
           
          Me.Form.InsideHeight = lstStatus.Height + 4300

            If cmdConsultar.Top < lstStatus.Top + 1900 Then
                lstStatus.Height = lstStatus.ListCount  * 290
                cmdConsultar.Top = cmdConsultar.Top + 1700
                cmdFechar.Top = cmdFechar.Top + 1700
            End If
        Case Else
            cmbCliente.Visible = False
            lstStatus.Visible = False
            cmbTipoFiltro.SetFocus
            MsgBox ("Selecione uma opção Valida!")
    End Select
   
fim:
Exit Sub