Mensajes

Código [Seleccionar] Expandir

Dim p As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
Frame1.Caption = ""
Frame1.BackColor = 'aqui puedes poner el color que quieras
Frame1.BorderStyle = 0
Shape1.Width = 0
Shape1.BorderColor = 'aqui puedes poner el color que quieras
Shape1.FillColor = 'aqui puedes poner el color que quieras
Shape1.FillStyle = 0
End Sub

Private Sub Timer1_Timer()
p= p + 10
If Shape1.Width < 5000 Then 'puede ponerle el valor que quieras
Shape1.Width = p
End If
End Sub

jaja  no se paso yo estaba creando un  nuevo tema pero me confundi y salio aqui esta pc esta loca tampoco pego lo que yo queria que pegara no salio nada  ??? voy a crear un nuevo tema ya hora si escribo el ejemplo disculpas no estoy familiarizado aun en este foro  es apenas mi segundo post

bueno vi un post de Sk8er_boy12 donde preguntaba sobre como crear un progress bar y creo que no le contestaron bien a su pregunta quise contestarla pero no pude hacerlo ahi en su post (nunca encontre el puto botoncito de responder por eso cree este nuevo tema ahi a ver si lo lee o le sirve a alguien mas te lo dejo a manera de ejemplo por si quieres hacer copy-paste (cambias los comentarios por valores) hojala les sirva

si dices que te come las letras si escribes rapido porke no usas el keypress y almacenas la tecla pulsada en una variable ahi por muy rapido que escribas no se le va a pasar la tecla pulsa no se si me esplico si no dime y te pongo un ejemplillo ok bye