USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Redimensionar imagem JPG
filhinho
PONTA PORÃ
MS - BRASIL
Postada em 03/01/2006 09:08 hs            
Alou galera

Tem como redimensionar uma imagem jpg de forma que se adapte ao tamanho do picturebox???

Obrigado pela atenção??
     
filhinho
PONTA PORÃ
MS - BRASIL
Postada em 03/01/2006 09:09 hs            
foi mau ai

É Obrigado pela atenção

HEHE
     
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
Postada em 03/01/2006 13:07 hs            
Bem se precisar de mais detalhes sobre redimensionar partes da imagem tem estas dicas :
 

"O pior inimigo que você poderá encontrar será sempre você mesmo."
     
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
Postada em 03/01/2006 13:10 hs            
Se for em tempo de execução:
Acho que o que vc precisa é de um splitter. Se for abaixo está um
 exemplo, para testar crie um projeto com um form vazio e 3 pictureboxes, 
picture1 a esquerda, picture2 no meio e picture3 a direita, eles devem estar 
posicionados corretamente no form. Feito isso cole o código abaixo que deve
 funcionar.


Private Sub Form_Load()

    Picture2.Width = 120
    Picture2.DragMode = 1
    Picture2.MousePointer = 9
    
    Picture1.BorderStyle = 0
    Picture3.BorderStyle = 0
    
End Sub

Private Sub Form_Resize()

    Picture2.Height = Me.ScaleHeight
    Picture1.Height = Me.ScaleHeight
    Picture3.Height = Me.ScaleHeight
    Picture3.Width = Me.ScaleWidth - Picture1.Width - 30
    
End Sub

Private Sub Picture3_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    
    If X > 0 Then
        Picture2.Left = Picture2.Left + X
        Picture1.Width = Picture1.Width + X
        Picture3.Left = Picture2.Left + Picture2.Width
        Picture3.Width = Abs(Picture3.Left - Me.ScaleWidth)
    End If
    
End Sub

Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    
    Picture2.Left = X
    Picture1.Width = X
    Picture3.Left = X + Picture2.Width
    Picture3.Width = Abs(Picture3.Left - Me.ScaleWidth)

End Sub


Vc pode trocar picture1 e picture3 pelos seus controles ou até colocar 
mais de um controle dentro de picture1 e picture3 e reposiciona-los no 
evento Resize


"O pior inimigo que você poderá encontrar será sempre você mesmo."
     
filhinho
PONTA PORÃ
MS - BRASIL
Postada em 03/01/2006 15:33 hs            
Geronimo

Valeu pela dica, mas o que eu realmente quero é que a imagem troque o seu tamanho (se ajuste ao tamanho do picturebox) e não redimensionar o picture box.

O programa que to fazendo é de registro de crachas e o que to querendo é ajustar a foto na imagem de 3x4 (aproximadamente), e eu tenho muitas fotos que são muito grande e que estão armazenados em um banco de dados mysql.

Resumindo: Como eu faço para que uma imagem de 800x600 seja mostrada como 100x85 em um picture box???

     
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
Postada em 03/01/2006 16:09 hs            

"O pior inimigo que você poderá encontrar será sempre você mesmo."
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página