Autor
|
Tema: Cambiar la posición de un msgbox (Leído 6,529 veces)
|
karmany
|
Hola..
Por defecto, cuando utilizamos un msgbox, éste aparece centrado en la pantalla. El problema es que necesito el msgbox en la parte inferior derecha,
¿Alguien sabe cómo hacerlo?
PD. La idea es no utilizar formularios
|
|
|
En línea
|
|
|
|
soplo
Ex-Staff
Desconectado
Mensajes: 3.592
Debian rool'z
|
Hola PD. La idea es no utilizar formularios Un msgbox es una clase de un formulario modal y centrado. Si quieres hacerte uno a medida solo tienes que hacerte una clase a tu medida con las propiedades que te plazcan y situado donde quieras.
|
|
|
En línea
|
Callar es asentir ¡No te dejes llevar!
|
|
|
Sancho.Mazorka
Desconectado
Mensajes: 480
Gamer & Programador
|
toma esto talvez que te sirve! Añade el siguiente código al módulo BAS: Nota: He dejado los comentarios originales en inglés, ya que no necesitan demasiada traducción... espero...
'------------------------------------------------------------------ 'Ejemplo para posicionar un MsgBox (15/Jun/98) ' 'Microsoft TechNet Knowledge Base, PSS ID Number: Q180936 'HOWTO: Position a MsgBox Using a Windows Hook Procedure ' '©Guillermo 'guille Som, 1998 '------------------------------------------------------------------ Option Explicit
Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Public Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, _ ByVal hmod As Long, ByVal dwThreadId As Long) As Long Public Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Public Declare Function GetWindowRect Lib "user32" _ (ByVal hwnd As Long, lpRect As RECT) As Long
Public Const GWL_HINSTANCE = (-6) Public Const SWP_NOSIZE = &H1 Public Const SWP_NOZORDER = &H4 Public Const SWP_NOACTIVATE = &H10 Public Const HCBT_ACTIVATE = 5 Public Const WH_CBT = 5
Public hHook As Long
Function WinProc1(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If lMsg = HCBT_ACTIVATE Then 'Show the MsgBox at a fixed location (0,0) SetWindowPos wParam, 0, 0, 0, 0, 0, _ SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE 'Release the CBT hook UnhookWindowsHookEx hHook End If WinProc1 = False
End Function
Function WinProc2(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim rectForm As RECT, rectMsg As RECT Dim x As Long, y As Long
'On HCBT_ACTIVATE, show the MsgBox centered over Form1 If lMsg = HCBT_ACTIVATE Then 'Get the coordinates of the form and the message box so that 'you can determine where the center of the form is located GetWindowRect Form1.hwnd, rectForm GetWindowRect wParam, rectMsg x = (rectForm.Left + (rectForm.Right - rectForm.Left) / 2) - _ ((rectMsg.Right - rectMsg.Left) / 2) y = (rectForm.Top + (rectForm.Bottom - rectForm.Top) / 2) - _ ((rectMsg.Bottom - rectMsg.Top) / 2) 'Position the msgbox SetWindowPos wParam, 0, x, y, 0, 0, _ SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE 'Release the CBT hook UnhookWindowsHookEx hHook End If WinProc2 = False End Function
Este es el código que hay que añadir al formulario:
' '------------------------------------------------------------------ 'Ejemplo para posicionar un MsgBox (15/Jun/98) ' 'Microsoft TechNet Knowledge Base, PSS ID Number: Q180936 'HOWTO: Position a MsgBox Using a Windows Hook Procedure ' '©Guillermo 'guille Som, 1998 '------------------------------------------------------------------ Option Explicit
Private Sub Command1_Click() Dim hInst As Long Dim Thread As Long 'Set up the CBT hook hInst = GetWindowLong(Me.hwnd, GWL_HINSTANCE) Thread = GetCurrentThreadId() hHook = SetWindowsHookEx(WH_CBT, AddressOf WinProc1, hInst, Thread) 'Display the message box MsgBox "This message box has been positioned at (0,0)." End Sub Private Sub Command2_Click() Dim hInst As Long Dim Thread As Long 'Set up the CBT hook hInst = GetWindowLong(Me.hwnd, GWL_HINSTANCE) Thread = GetCurrentThreadId() hHook = SetWindowsHookEx(WH_CBT, AddressOf WinProc2, hInst, Thread) 'Display the message box MsgBox "This message box is centered over Form1." End Sub
|
|
|
En línea
|
|
|
|
karmany
|
Gracias a los dos..
El código funciona perfectamente, pero, después de probarlo, pienso que es mucho mejor definir un nuevo objeto (clase), ya que es muchísimo más sencillo de utilizarlo. Un saludo a los 2.
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
¿Mod cambiar la posición de las aplicaciones abiertas en KDE?
GNU/Linux
|
Servia
|
2
|
2,597
|
5 Marzo 2012, 18:16 pm
por Servia
|
|
|
CAMBIAR POSICION EN INICIO DEL PROGRAMA
« 1 2 »
Windows
|
FCOSTA
|
11
|
6,745
|
4 Octubre 2014, 00:38 am
por FCOSTA
|
|
|
Cambiar posicion en inicio del programa
.NET (C#, VB.NET, ASP)
|
FCOSTA
|
1
|
1,956
|
4 Octubre 2014, 22:28 pm
por Eleкtro
|
|
|
Cambiar la posición inicial de un Form
Programación Visual Basic
|
Monkeykiller_vb
|
2
|
2,370
|
2 Octubre 2019, 06:18 am
por Monkeykiller_vb
|
|