para Baltasar con respecto al reloj + una pregunta

matamala
22 de Noviembre del 2003
perdon por el mensaje anterior se me pasó poner el teme que era para tí Baltasar.
aqui está:
te he mandado el proyecto relog con todos los fuentes para tú modificación.

y ahora la pregunta.?

como hago para que me funcione bien el puñetero escroll con mediaplayer.
quiero decir tengo un escroll que debe de subir y baja el volumen de el despertador.
escroll1, Max= 2500
Min= -600
luego en condigo:
Private Sub HScroll1_KeyPress(KeyAscii As Integer)
MediaPlayer1.volume = HScroll1.Value - 2500
End Sub

Private Sub HScroll1_Scroll()
MediaPlayer1 = HScroll1.Value - 600
End Sub.
pero en ocasiones me dá error error error modifico en tiempo de ejecución los datos 2500 ó -600 y hasta el proximo error error error.

porcierto en el post que me contestaste anteriormente la solicitud era que si quiero el ejemplo de como hacer que solo entren datos con este formato en un textbox:
22:01:12.
gracias

Baltasar
22 de Noviembre del 2003
Te he preparado una solución para la introdución de datos en formato de hora:minutos:segundos. Me gustaría aclarar que no es más que un simple ejemplo, ya que seguramente tendrá fallos si copiamos y pegamos, si cortamos usando el ratón, etc etc; pero de lo que se trata es de dar una muestra de lo que se podría hacer.

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then KeyCode = 0
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then
If Len(Text1) = 2 Or Len(Text1) = 5 Then
Text1 = Text1 + ":"
Text1.SelStart = Len(Text1)
Else
If Len(Text1) >= 8 Then
KeyAscii = 0
End If
End If
ElseIf KeyAscii = 8 Then
If Len(Text1) = 4 Or Len(Text1) = 7 Then
Text1 = Left(Text1, Len(Text1) - 2)
KeyAscii = 0
End If
Text1.SelStart = Len(Text1)
End If
End Sub

Como puedes comprobar, no puedes borrar hacia la derecha, lo he hecho para no complicarme la vida. Pero ya te he comentado, se trata de un ejercicio.