Mi formulario que simule un MsgBox real
He hecho un formulario que me muestra los mensajes de errores personalizados, y los muestro en diferentes diseños: color negrita, subrayado, etc.; lo que no se puede hacer con MsgBox del Visual Basic.
Pero el problema está en que no detiene ningún evento como lo hace MsgBox, por ejemplo:
Private Sub txtTexto_Click()
If Len(txtTexto.Text) >= 10 Then
frmMensajeError.Mostrar "No se puede ingresar...", -1, "Inserción", Me.Caption
End If
End Sub
Private Sub txtTexto_LostFocus()
txtTexto.Text = "(Algún código)"
End Sub
Donde el formulario frmMensajeError, lo muestro de manera modal.
El problema está en que cuando invoca al formulario, se desencadena inmediatamente el evento LostFocus, lo que no sucede cuando en su lugar (del formulario) coloco el MsgBox que no respeta nada.
Habrá alguna forma, alguna API tal vez, que evite que se ejecute cualquier código cuando se invoque a este formulario.
Estaré muy agradecido por la respuesta.
Pero el problema está en que no detiene ningún evento como lo hace MsgBox, por ejemplo:
Private Sub txtTexto_Click()
If Len(txtTexto.Text) >= 10 Then
frmMensajeError.Mostrar "No se puede ingresar...", -1, "Inserción", Me.Caption
End If
End Sub
Private Sub txtTexto_LostFocus()
txtTexto.Text = "(Algún código)"
End Sub
Donde el formulario frmMensajeError, lo muestro de manera modal.
El problema está en que cuando invoca al formulario, se desencadena inmediatamente el evento LostFocus, lo que no sucede cuando en su lugar (del formulario) coloco el MsgBox que no respeta nada.
Habrá alguna forma, alguna API tal vez, que evite que se ejecute cualquier código cuando se invoque a este formulario.
Estaré muy agradecido por la respuesta.
{"Lat":-6.72427940336034,"Lng":-79.8108673095703}
2 Respuestas
Respuesta de Roberto Alvarado
1
Respuesta de carloscharly
1