Como hacer el command button invisible a un determino tiempo

[buxforever]

Como le hago para colocar un boton de comando que aparezca o se active la opcion visible=true solo cual el value de una barra de progreso este en 100

[dwin]

hammmmmm

no he usado mucho la barra de progreso pero tengo una idea

if barra.value = 100 then

boton1.enable = true

end if

asi de simple

lo de

barra.value

no estoy tan seguro q sea asi, pero tu checalo, ahi esta la idea,
solo plasmala en tu programa

[seba123neo]

esta bien como te dijeron antes, solo que vos queres que se haga visible, seria asi entonces:

Código vb:

if barra.value = 100 then
 
boton1.Visible = true
 
end if
 

saludos.

[buxforever]

lo trate de poner mejor de esta forma si corre pero el boton no se habilita al llegar el count de 100 de la barra de progreso

If XP_ProgressBar1.Count = "100" Then
ChameleonBtn1.Enabled = True
Else
ChameleonBtn1.Enabled = False
End If

[jmiguel85]

¿En qué evento lo estás poniendo?, y ¿Qué barra de progreso estás poniendo?, ya que la progressbar de Windows, se carga con la propiedad value, al parecer tú código está bien, solo me queda duda con el Count, probablemente usas otra barra

[seba123neo]

no conozco ninguna barra de progreso con la propiedad .Count ..la propiedad es .Value y el codigo debe ir en un Timer obviamente...y no va entre comillas el valor es un numero no un string...

por el nombre que le pusiste a la barra me inmagino que es el control de usuario de la barra de progreso con diferentes estilos no??...

tambien chequea que no estes creando una matriz de controles..porque el Count aparece cuando creaste una matriz de controles...

saludos.

[buxforever]

si en una ocx aparte efectivamente pero si le pongo .value me marca error dentro del timer asi esta todo actualmente

Dim i As Integer

Private Sub ChameleonBtn1_Click()
Form17.Show
Unload Form23
End Sub

Private Sub Form_Load()
If XP_ProgressBar1.Count = "100" Then
ChameleonBtn1.Enabled = False
Else
ChameleonBtn1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
Dim X As Integer

If XP_ProgressBar1(0).Value >= XP_ProgressBar1(0).Max Then
For i = 0 To XP_ProgressBar1.Count - 1
XP_ProgressBar1(i).Value = 100
Next
Else
For i = 0 To XP_ProgressBar1.Count - 1
XP_ProgressBar1(i).Value = XP_ProgressBar1(i).Value + 1
Next
For X = 100 To XP_ProgressBar1.Count - 1
XP_ProgressBar1(X).ShowText = XP_ProgressBar1(X).ShowText
Next
End If

End Sub

[dwin]

buenoooooo

solo una observacion, apoco en la parte de :

For i = 0 To XP_ProgressBar1.Count - 1
XP_ProgressBar1(i).Value = 100
Next

no te marca error en el next?

no es

Next I

digo... y podrias decir donde merito te manda el error?

[buxforever]

aunque lo dudes no me marca error

[buxforever]

Problema Resuelto

[seba123neo]

comenta que era?

[buxforever]

Lo resolvi con el progress bar original de visual basic en igual de un ocx y si funciono como habian dicho que lo colocara