Hola

En el siguiente enlace:
Interceptar los eventos de mouse en un combobox

encontré un artículo que habla sobre el tema que hago mención en el título de este mensaje. Lo he estado estudiando, pero no acabo de entender cuál es el momento en qué podemos determinar cuando el Mouse pasa por encima de un combo.
Agradecería que me ayuden en este tema.

__________________
Saludos
Desde La Habana
Cuba

Bueno, es que los combo no disponen de eventos MouseOver, así que la única opción es construirlos mediante ´clasificación con las API.

Si utilizas el código que aparece en el enlace (no lo he probado) seguramente te funcionará aunque la subclasificación desde VB6 suele ser algo retorcida y no recomendable. Fíjate que incluso en el código que te propone el enlace, el´parámetro para detectar el paso del cursor (WM_MOUSEMOVE), lo tienen marcado como comentario. !!Algún problema han debido tener!!


Mi consejo:

Si por razones plenamente justificadas has de detectar cuando el Mouse pasa por encima del Combo...utiliza el método descrito...(Eliminando el parámetro comentado), de lo contrario no lo toques.


PD: Como se hace la subclasificación para añadir eventos inexistentes..fíjate en este código.


Le indicamos al sistema de mensajes de windows que detecte cuando ocurre 'algo' en el objeto HWND (En nuestro caso el Combo), y que cuando ocurra ejecute el código existente en el puntero establecido por Adressof WinProc, es decir, obligamos al sistema operativo a ejecutar una función de nuestro código (retrollamada o gancho).

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Gracias Acalanto por la respuesta y, sobre todo, por la explicación de esa parte del código.
He estado haciendo interrupciones del código para verlo paso a paso y no da ningún resultado, ni con el código comentado abierto, por eso este hilo que inicié.

No obstante, he encontrado una solución en otra página:
Programación en castellano. Foros de debate. Visual Basic programacion gratis

Haciendo algunos cambios de acuerdo a mi necesidad, el código queda así:

En un módulo:

Public Type POINTAPI
X As Long
Y As Long
End Type

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long

Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Function Handle() As Long
Dim coord As POINTAPI
Dim punto&
punto = GetCursorPos(coord)
Handle = WindowFromPoint(coord.X, coord.Y)
'si Handle es igual al Handle del combo
If Handle = NombreForm.NombreCombo.hwnd Then
'aquí el código para cuando el Mouse pase por encima del combo
End IfEnd Function

En el formulario donde se encuentra el combo, colocar un Timer

En el Timer poner:

Private Sub Timer1_Timer()
Handle
End Sub

Esto es todo, y gracias una vez más.

__________________
Saludos
Desde La Habana
Cuba