[VB6] test su sendmessage

[xegallo]

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
                            (ByVal hwnd As Long, _
                            ByVal wMsg As Long, _
                            ByVal wParam As Long, _
                            ByVal lParam As Long) As Long

private const TTM_SETDELAYTIME = (WM_USER + 3)
Private Const WM_USER = &H400
Private Const TTDT_AUTOPOP = 2
Private Const TTDT_INITIAL = 3

' in una routine
        res = SendMessageLong(m_hwndTT, TTM_SETDELAYTIME, TTDT_AUTOPOP, 20000)
        res = SendMessageLong(m_hwndTT, TTM_SETDELAYTIME, TTDT_INITIAL, 500)

dove res è un long
e m_hwndTT è un handle di finestra valido
vi ritornano 1?

specificare os e service pack

[ladyBlu]

Win2000 Pro. SP4

a me ritorna sempre 0.

[biste]

Originariamente inviato da ladyBlu
Win2000 Pro. SP4

a me ritorna sempre 0.

Idem, VB 6 SP5 naturalmente

[ladyBlu]

Originariamente inviato da biste
Idem, VB 6 SP5 naturalmente

ovviamente si bello