msgbox

hola, Gil !

... utilizo el msgbox con vbYesNo
... se pueden cambiar las etiquetas de los botones del msgbox
... en lugar de que aparezcan ... "Yes" y "No" ... personalizar estas etiquetas

visita: http://vbnet.mvps.org/code/hooks/me...oxhook.htm

saludos,
hector.

Gracias por la respuesta Hector, lo que olvide mencionar
es que se trata de VBA y la pagina que me proporcionaste
es de VB.NET, crees que exista alguna forma de aplicar al
msgbox de VBA

Saludos
Gil Romero

hola, Gil !

... utilizo el msgbox con vbYesNo
... se pueden cambiar las etiquetas de los botones del

msgbox

... en lugar de que aparezcan ... "Yes" y "No" ...

personalizar estas etiquetas

visita:

http://vbnet.mvps.org/code/hooks/me...oxhook.htm

saludos,
hector.
.

hola, Gil !

... olvide mencionar que se trata de VBA
... la pagina que me proporcionaste es de VB.NET
... alguna forma de aplicar al msgbox de VBA

-> [casi todas] son 'llamadas' a las API's de windows y... son [totalmente] 'aplicables/funcionales' en vba
[les 'sobra' una que otra constante, pero... NO 'estorban'... las puedes 'dejar ahi']
-> puedes 'hecharlo a andar' [en vba] con los 'pasos' que te sugiero al final de este mensaje...
=> REQUIERE excel 2000 o 'superior' <= OJO

si cualquier duda... ¿comentas?
saludos,
hector.
-
1.- copia todas las lineas que se exponen en la pagina en un modulo de codigo 'normal' de vba
->excepto las que menciona para el formulario<- [las vamos a 'sustituir' por una macro 'normal']
2.- elimina TODOS los comentarios [puedes guardarlos en un archivo de texto para 'analizarlos']
3.- en la 'ultima' funcion [Function MsgBoxHookProc(ByVal uMsg As Long etc.]
-> 'personaliza' [segun tus necesidades]...
el texto del cuadro de mensajes ->SetWindowText wParam, "VBnet MessageBox Hook Demo"<-
el texto de los botones ->SetDlgItemText wParam, IDABORT / IDRETRY / IDIGNORE<-
[en el ejemplo se esta personalizando el texto de los botones 'abortar', 'reintentar' e 'ignorar']
y... el texto del mensaje 'mismo' ->IDPROMPT<-
4.- [finalmente...] agrega una macro [en sustitucion del codigo del formulario] +/- como la siguiente:
mismo modulo de codigo 'normal' ==Sub Prueba()
Select Case MessageBoxH(0, GetDesktopWindow())
Case IDABORT: MsgBox "Acciones al pulsar en Abortar..."
Case IDRETRY: MsgBox "Acciones al pulsar en Reintentar..."
Case IDIGNORE: MsgBox "Acciones al pulsar en Ignorar..."
End Select
End Sub