Hallo,
ich versuche eine LisBox in einem Access Formular vorzuselektieren:
<pre>
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, ByVal lParam As _
Long) As Long
Private Declare Function GetFocus Lib "user32" _
() As Long
Const LB_SETCURSEL = &H186
Private Sub Befehl54_Click()
Dim hWnd As Long
Me.ExplorerView.SetFocus
hWnd = GetFocus
SendMessage hWnd, LB_SETCURSEL, 5, 0&
End Sub
</pre>
Er tut´s aber nicht!
Hat jemand eine Idee warum?
Grüße!
ich versuche eine LisBox in einem Access Formular vorzuselektieren:
<pre>
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, ByVal lParam As _
Long) As Long
Private Declare Function GetFocus Lib "user32" _
() As Long
Const LB_SETCURSEL = &H186
Private Sub Befehl54_Click()
Dim hWnd As Long
Me.ExplorerView.SetFocus
hWnd = GetFocus
SendMessage hWnd, LB_SETCURSEL, 5, 0&
End Sub
</pre>
Er tut´s aber nicht!
Hat jemand eine Idee warum?
Grüße!