O TOOLBAR PODE MUDAR DE POSICAO???

MARCOS 27/07/2005 20:15:21
#96311
Bom dia!
Algum colega,sabe me informar qual propiedade do ToolBar,permite que eu
posicione o mesmo onde quizer no formulário?
USUARIO.EXCLUIDOS 27/07/2005 21:39:49
#96316
Resposta escolhida
Boa noite MARCOS, quanto a ssua dúvida no toolbar temos a propriedade Align que controla o posicionamento do objeto tool bar:
A propriedade align pode ser definida como:

0-vbAlignNone : Nessa posição você que controlará o tamanho da TollBar e o posicionamento dela em qualquer posição do Form.

1-vbAlignTop : Escolhendo essa opção o VB automaticamente irá posicionar a ToolBar na parte superior do Form e também irá redimensioná-la sempre que o tamanho do Form for alterado. (independentemente de estar em design mode ou run time)

2-vbAlignBottom : Essa se iguala ao vbAlignTop diferindo apenas em que a ToolBar será alinhada na parte inferior do Form.

3-vbAlignLeft : Semelhante a vbAlignTop e vbAlignBottom, alinhando a ToolBar ao lado esquerdo do Form.

4-vbAlignRiight: Igual as três opções anteriores, alinhando a ToolBar ao lado esquerdo do Form.

Então como você pà'de perceber é bem simples so alterar a propriedade Align para 0-vbAlignNone e arrastar a ToolBar pra onde você quiser. Só não se esqueça que nessa posição quando o form for redimensionado a ToolBar continuará parada. Para resolver este problema você temas seguintes soluções:

1º -> Caso não haja a necessidade do usuário redimensionar o formulário, ou você queira desabilitar essa função você pode utilizar a propriedade BorderStyle do Form slecionando a opção 1-Fixed Single assim o VB impede que o formulário seja redimensionado e oculta os botões minimizar e maximizar. (Caso queira habilitar o mizimizar mude a opção MinButton do Form para True)

2º -> Caso precise deixar disponível o botão maximizar/restaurar e o redimensionamento do formulário você podera utilizar o evento Resize(este evento ocorre quando mudamos o tamanho do Form) para fazer modificações na ToolBar sempre que o Form for redimensionado.

Exemplo:

Private Sub Form_Resize()
Toolbar1.Width = Form1.Width - 120
End Sub

Esse código ira ajustar a largura da Tool bar à  largura do Form sempre que o mesmo for redimensionado. Lembrando que para que a ToolBar não fique maior que o form em momento algum a propriedade left dela deverá ser igual a 0.

hehe espero que tenha te ajudado [S20]
Tópico encerrado , respostas não são mais permitidas