Ayuda con text box

28/05/2010 - 19:06 por J. Ricardo Hdz. | Informe spam
Hola
tengo 3 textbox´s en un form, cada textbox representa un turno por ejemplo
TxtDia horario de 6:00 a 14:00hrs
TxtTarde horario de 14:00 a 22:00hrs
TxtNoche horario de 22:00 a 6:00hrs.
y tengo un boton para grabar la informacion, lo que necesito saber es como
dejar habilitado solamente el textbox que le corresponda al turno en curso,
esto con el fin de evitar que las personas de otro turno editen lo del turno
anterior o posterior.


Saludos y Gracias por su ayuda..

Preguntas similare

Leer las respuestas

#1 aa
29/05/2010 - 00:33 | Informe spam
Txtturno1.enabled = turno1
txturno2.enabled=turno2

turno1 seria una variable que te indica que el operador es del turno 1 y el
turno2 en ese caso seria false.
"J. Ricardo Hdz." wrote in message
news:
Mostrar la cita
#2 gustavo gutierrez
29/05/2010 - 14:07 | Informe spam
On 28 mayo, 17:33, "aa" wrote:
Mostrar la cita
Hola,
Puedes poner un timer para estar testeando la hora cada pocos segundos
y según la hora del dia decides dejar unos textboxes con enabled a
false (o locked a true).

Saludos!
#3 J. Ricardo Hdz.
29/05/2010 - 18:26 | Informe spam
Gustavo, tendras algun ejemplo, en el que tome en cuenta la hora del sistema
de la pc y la compare con las horas del tunro
Saludos

"gustavo gutierrez" wrote:

Mostrar la cita
#4 gustavo gutierrez
30/05/2010 - 14:30 | Informe spam
On 29 mayo, 11:26, J. Ricardo Hdz.
wrote:
Mostrar la cita
Time es un Variant que puedes forzar a un double. De este modo es
menos complicado el manejo de horas ( y de fechas):
En un form pones un control timer, 1 label llamado lblHora y 3
textboxes txtDia, txtTarde y txtNoche. Al control timer le pones la
propiedad interval en 10 para que se dispare el evento cada 10
milisegundos, (o cualquier intervalo que tu quieras, siempre y cuando
sea <= 1000), y en el evento timer del control pones algo como esto:
Private Sub Timer_Timer()
lblHora.Caption = Time
Select Case int(time*24)
Case 6
txtDia.Locked = False
txtTarde.Locked = True
txtNoche.Locked = True
txtDia.BackColor = vbGreen
txtTarde.BackColor = vbRed
txtNoche.BackColor = vbRed
Case 14
txtDia.Locked = False
txtTarde.Locked = True
txtNoche.Locked = True
txtDia.BackColor = vbGreen
txtTarde.BackColor = vbRed
txtNoche.BackColor = vbRed
Case 22
txtDia.Locked = False
txtTarde.Locked = True
txtNoche.Locked = True
txtDia.BackColor = vbGreen
txtTarde.BackColor = vbRed
txtNoche.BackColor = vbRed
End Select
End Sub

El label es para mostrar la hora. los cambios de color son para que
veas el estado de locked de los textboxes. Pruébalo con otros horarios
para que veas como cambia. Tambien puedes hacer el select con la hora
directamente:

Select Case time
Case "06:00:00"
.
.
Case "14:00:00"
...
end Select
aunque en este caso deberás revisar la configuración de hora de tu
computadora para que tengas formato militar. Personalmente, prefiero
la primera opción.

Saludos!
#5 gustavo gutierrez
30/05/2010 - 14:39 | Informe spam
On 30 mayo, 07:30, gustavo gutierrez
wrote:
Mostrar la cita
Perdón. Me equivoqué con el asunto de los locked de cada textbox. De
cualquier modo, ya tu sabrás cual quieres bloquear en cada horario: a
las seis desbloquear el txtdia y bloquear los otros, a las 14
desbloquear el txtTarde , etc..

saludos!
Ads by Google
Search Busqueda sugerida