Cool Msgbox
Publicado por Manuel (3 intervenciones) el 20/01/2017 15:18:58
Hola a todos.
Antes que nada agradeceros y felicitaros por esta página que me ayuda mucho a resolver los diversos problemas que me encuentro en el día a día en VB6.
Mi problema es el siguiente: estoy haciendo un programa que funciona perfectamente, pero que estoy puliendo para dejarlo "bonito" en el aspecto visual, y para esto estoy utlizando esta DLL que me permite crear msgbox personalizados
http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/184-cool-msgbox.htm
Funciona perfectamente en este sencillo código:
El problema que tengo es que quiero que el foco del programa se ponga por defecto en el botón "Si" del msgbox y no veo la manera. De hecho el foco no se pone en ningún botón. Muevo con el ratón y pulso el botón que quiera y funciona, pero yo quiero que se ponga por defecto en el "Si" para poder pulsar Intro directamente.
He de decir que en las propiedades de MBox no aparece ningún setfocus o algo parecido, así que quizás no lo permita.
¿Hay alguien que haya utilizado esta DLL y sepa como hacerlo?
Gracias y un saludo
Antes que nada agradeceros y felicitaros por esta página que me ayuda mucho a resolver los diversos problemas que me encuentro en el día a día en VB6.
Mi problema es el siguiente: estoy haciendo un programa que funciona perfectamente, pero que estoy puliendo para dejarlo "bonito" en el aspecto visual, y para esto estoy utlizando esta DLL que me permite crear msgbox personalizados
http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/184-cool-msgbox.htm
Funciona perfectamente en este sencillo código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim MBox As New clsMessage
Private Sub btnSal_Click()
Dim ret As Long
MBox.Icon = Clasic_Critical
MBox.EstiloMsgBox = isbWindowsXP
MBox.AddButton 0, "Si", False
MBox.AddButton 1, "No", False
MBox.AddButton 2, "Cancelar", False
ret = MBox.MessageBoxEx("¿Quieres guardar los datos?", "Aviso", , , , , , , , , , , , , , , , , , True)
Select Case ret
Case 0
guardar
Case 1
End
Case 2
End Select
End Sub
El problema que tengo es que quiero que el foco del programa se ponga por defecto en el botón "Si" del msgbox y no veo la manera. De hecho el foco no se pone en ningún botón. Muevo con el ratón y pulso el botón que quiera y funciona, pero yo quiero que se ponga por defecto en el "Si" para poder pulsar Intro directamente.
He de decir que en las propiedades de MBox no aparece ningún setfocus o algo parecido, así que quizás no lo permita.
¿Hay alguien que haya utilizado esta DLL y sepa como hacerlo?
Gracias y un saludo
Valora esta pregunta
0
