Visual Basic - Mover msgbox a coordenadas libres

Life is soft - evento anual de software empresarial
 
Vista:

Mover msgbox a coordenadas libres

Publicado por Jose Manuel (10 intervenciones) el 06/04/2001 03:31:39
Hola a todos/as y saludos desde España,
Alguién sabría decirme como puedo controlar las coordenadas de pantalla, donde por ejemplo, aparece un msgbox.Lo digo, porque quiero que un msgbox salga en un sitio determinado de mi pantalla y no lo sé hacer ni lo encuentro en la ayuda.En fin si sabeis algo no dudar en mandarmelo.
Muchas gracias a todos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mover msgbox a coordenadas libres

Publicado por nn (5 intervenciones) el 06/04/2001 04:36:55
Fabricate un formulario con la mismas caracteristicas de un msgbox.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RTA

Publicado por José Ariel (165 intervenciones) el 06/04/2001 15:58:31
Si te llega esto completo ponelo en un modulo.
crea un msgbox nuevo (TImsgbox) con mas paramentros, entre los cuales estan las cordenadas donde aparece la ventana

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Type HookParms
WindowOwner As Long
xPos As Long
yPos As Long
hHook 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 GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function IsWindow Lib "user32" (ByVal hwnd 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar