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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ProgressBar com um PictureBox
gugump
IÇARA
SC - BRASIL
Postada em 13/09/2008 16:32 hs         
Olá galera, já tentei de tudo! A unica coisa que consegui foi pegar o ScaneWidth de um PictureBox e fazer um Label se mover! Isso fico uma baita de uma gambiarra... E eu como odeio gambiarra:

Eu estava vendo que se eu colocar PictureBox1.Width = 50, ela vai ficar no tamanho 50 de todo o tamanho que ele tinha... Então quer dizer que já é um sinal!

Mas não consigo fazer ela se mover... O MOVER que falo é ela ir almentando...

Eu tenho um label que indica um valor de 0% até 100%, e preciso que o Width total dessa PictureBox seja = 100

E a porcentagem que vai sendo indicada no Label é o valor que a PictureBox1 vai crescendo!

Isso é possivel? Até mais e obrigado
     
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 14/09/2008 05:19 hs            
Voce já fez com o Controle Image, colocando a propriedade Stretch = True   ????
 
vlu//
   
gugump
IÇARA
SC - BRASIL
ENUNCIADA !
Postada em 15/09/2008 18:24 hs         
Hummm, interessante ehheheh!

Não sabia disso... Mas o problema agora é o seguinte: Acabo de perder meus arquivos, pois mudei de PC e os animais dos técnicos não salvaram meu HD

E estou usando uma UserControl, mas eu pretendo usar uma imagem, fazer um layout do ProgressBar mais agradavel

Você poderia me dar um exemplo usando o Stretch = True e fazendo a PictureBox andar?

Até mais.
   
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 16/09/2008 00:27 hs            
Não sei se o Picture Funciona, mas com Image, coloque em um Timer
No Form Load
Image1.Stretch = True
Image1.Top = 0
Timer1.Enabled = True
Timer1.Interval = 250   ' milionésimo de segundo
 
Private Sub Timer1_Timer()
      If Image1.Top > Altura Máxima que Quiser Then
             Image1.Top = Altura Minima Que Quiser
      Else
             Image1.Top = (Image1.Top + 20)
      End If
End Sub
 
Bem, o resto é sua criatividade e necessidade, complete como quiser com Left, Height, Width.
 
vlu//
 
 
 
 
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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