Msgbox que cierre solo

Hola
vetea mi pagina
http://www.clikear.com/webs/accessbhuo/, seccion buscador y mete la palabra MSGBOX
a ver si hay suerte.


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/



"iDeafix" escribió en el mensaje news:be13me$dd8$

Estoy usando el temporizador de un formulario. El problema es que muestro un
msgbox antes de realizar la acción.

Hasta que no pincho en [Aceptar] no sigue la ejecución.

Me gustaría que siguiera la ejecución del temporizador o bien, que el msgbox
se cerrase él solito a los diez segundos (a menos, claro está, que un
humano, primate o cualquier otro ser vivo dotado de movimiento apriete
[aceptar] antes que se acaben los diez segundos) L'ssiento, hoy estoy coñón
;o)

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003

estooo, buho:

Lo que sale, acojona un poco así de primeras:

¿Que hago con esto? ¿Donde lo pego? ¿ein?

Option Explicit
Const MB_DEFBOTON1 = &H0&
Const MB_DEFBOTON2 = &H100&
Const MB_DEFBOTON3 = &H200&
Const MB_ICONOASTERISCO = &H40&
Const MB_ICONOEXCLAMACION = &H30&
Const MB_ICONOHAND = &H10&
Const MB_ICONOINFORMACION = MB_ICONOASTERISCO
Const MB_ICONOPREGUNTA = &H20&
Const MB_ICONOSTOP = MB_ICONOHAND
Const MB_OK = &H0&
Const MB_OKCANCEL = &H1&
Const MB_YESNO = &H4&
Const MB_YESNOCANCEL = &H3&
Const MB_ABORTRETRYIGNORE = &H2&
Const MB_RETRYCANCEL = &H5&


Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal
hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType
As Long) As Long


Function Mi_Msgbox(ByVal Ventana As Long, ByVal TextoCaja As String, ByVal
Titulo As String, ByVal BotonesIconos As Long)
'si deseamos un Msgbox no Modal, bastará pasar como parametro Ventana=0
Dim Retval
Retval = MessageBox(Ventana, TextoCaja, Titulo, BotonesIconos)
End Function






"Búho" escribió en el mensaje
news:#
Hola
vetea mi pagina
http://www.clikear.com/webs/accessbhuo/, seccion buscador y mete la palabra
MSGBOX
a ver si hay suerte.


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/



"iDeafix" escribió en el mensaje
news:be13me$dd8$

Estoy usando el temporizador de un formulario. El problema es que muestro

un

msgbox antes de realizar la acción.

Hasta que no pincho en [Aceptar] no sigue la ejecución.

Me gustaría que siguiera la ejecución del temporizador o bien, que el

msgbox

se cerrase él solito a los diez segundos (a menos, claro está, que un
humano, primate o cualquier otro ser vivo dotado de movimiento apriete
[aceptar] antes que se acaben los diez segundos) L'ssiento, hoy estoy

coñón

;o)

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003

Si la verdad que esas llamadas a la API son la leche.
De verdad, quedate con el ejemplo de Juan (El que te pegué mas abajo), utilizando el Windows Script Host. No tienes que referenciar absolutamente nada, simplemente copiar, pegar el codigo, personalizarle un poco a tus necesidades ya funcionar.


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/



"iDeafix" escribió en el mensaje news:be15mu$j26$

estooo, buho:

Lo que sale, acojona un poco así de primeras:

¿Que hago con esto? ¿Donde lo pego? ¿ein?

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003

Si jejeje.


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/



"Juan M. Afan de Ribera" escribió en el mensaje news:

Este, este es el bueno, jeje

Saludos desde Barcelona
Juan M. Afan de Ribera
<MVP Ms Access>

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003