POSICIONADO IMAGE

IRENKO 09/05/2012 15:07:42
#401661
Pessoal, em um form tenho um picturebox e dentro dele um objeto image. Abaixo eu coloco esse Picture1 no tamanho da tela no caso o Form1 é tela cheia.

Private Sub Form_Resize()

With Picture1
.Width = Form1.Width
.Left = 0

End With

Image2.Left = Picture1.Width - 18180
End Sub

O Width do Picture1 é de 19200 em um monitor de 21 polegadas, posicionei o objeto image em 1020, pergunto: se o monitor for menor como faço esse calculo automaticamente? Isso pq pode mudar o tamanho da tela do monitor.

[ô]Image2.Left = 1020
Image2.Left = Pic_BarraTop.Width - 18180
[ô]Label1.Caption = Pic_BarraTop.Width
Label1.Caption = Image2.Left
End Sub
MARCELO.TREZE 09/05/2012 15:20:51
#401664
você quer centralizar o IMAGE dentro do PICTURE automaticamente, é isso? pois não entendi direito.
IRENKO 09/05/2012 15:26:19
#401665
Não, posicionar o objeto image sempre no canto direito, dentro do Picture1 respeitando o tamanho do Form.
FILMAN 09/05/2012 15:48:02
#401670 Resposta escolhida
Tenta isso aqui

Private Sub Form_Resize()
Picture1.Left = 0
Picture1.Top = 0
Picture1.Width = Me.ScaleWidth
Picture1.Height = Me.ScaleHeight
Image1.Top = (Picture1.ScaleHeight - Image1.Height) / 2
Image1.Left = Picture1.ScaleWidth - Image1.Width
End Sub



qualquer duvida posta ai
IRENKO 09/05/2012 15:56:43
#401672
FILMAN, deu certo! Só vou fazer ums testes.
NIKYTS 09/05/2012 16:00:22
#401673
Irenko, pelo que percebi acho que é isto...
 With Picture1
        .Left = 0
        .Width = Me.ScaleWidth
    End With
    
    With Image2
        .Left = Picture1.ScaleWidth - .Width
    End With
IRENKO 09/05/2012 16:21:40
#401677
Certo os dois. Fico grato!
Tópico encerrado , respostas não são mais permitidas
Voltar