Добрый вечер народ!
Бъюсь уже второй день, весь инет перерыл и местный форум тоже, нифига не нашел :(
Проблема в следующем:
надо програмно устанавливать первый видимый итем(item) в листбоксе, вроде ничего сложного, но нифига не работает, проверял в Spy++ при вызове SendMessage в lResult возвращается 0!, хоть ты тресни. Аналогичная ситуация даже с SendMessage(GetFocus, LB_GETSELCOUNT, 0&, 0&), возвращается зироу.
Я уж подумал, что листбокс ваще никаким действиям не поддаётся, однако WM_VSСROLL он хавает и скролится хоть вверх, хоть вниз:)
Внизу этот злосчастный код, люди поможите чем можите :)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Global Const LB_SETTOPINDEX = &H197
Global Const LB_GETSELCOUNT = &H190
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function GetFocus Lib "user32" () As Long
Private Sub Test
me!Streets_list.SetFocus
SendMessage GetFocus, LB_SETTOPINDEX, 10 , 0
end sub
MultiSilect = Simple
RowSource = Query/Table
вот собственно краткие сведения о проблеме.
