09/12/2003, 20:49
|
 | | | Fecha de Ingreso: junio-2003
Mensajes: 875
Antigüedad: 20 años, 11 meses Puntos: 5 | |
| duda con un progressbar en vb6
tengo esta accion para un boton y me gustaria saber como puedo hacer que la barra de progreso avance mediante en envio de datos se cumple...lo hice asi pero no se si esta correcto me ayudan..
Private Sub abrir_Click()
On Error GoTo error
ProgressBar1.Value = 0
Dim abrir_cd As String
abrir_cd = abrir.Name
Winsock1.SendData abrir_cd
Text2.Text = Text2.Text + "Abriendo la unidad de Cd..." & vbCrLf
ProgressBar1.Value = 50
If SendData <> 1 Then
Text2.Text = Text2.Text + " <La unidad se abrio>" & vbCrLf
Else
Text2.Text = Text2.Text + " <Error en el host>" & vbCrLf
End If
ProgressBar1.Value = 100
Exit Sub
error:
Text2.Text = Text2.Text + "Error en la Comunicación.." & vbCrLf
Shape1.FillColor = &HFF&
End Sub
salu2
__________________ La mejor manera de aprender es por medio de un aprendizaje significativo.... http://www.cocert.cl |