list 始终显示滚动到最后，最好不是控制listindex显示最后一项

Question

list 始终显示滚动到最后，最好不是控制listindex显示最后一项有其他方法吗？

Answer 1

使用SendMessage  API 
  
--------------------------------------------------------------
程序，犹如人生。

Answer 2

cangwu_lee(小橙子) ( ) 信誉：98    Blog  2006-12-20 19:12:46  得分: 0  
 
 
   使用SendMessage  API 
  
--------------------------------------------------------------
程序，犹如人生。  
 可以具体点吗？

Answer 3

Private Const LB_SETCURSEL As Long = &H186
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As LongPrivate Sub Command1_Click()
SendMessage List1.hwnd, LB_SETCURSEL, 6, 0 '6是你要想你设置的数
End SubPrivate Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "4"
List1.AddItem "5"
List1.AddItem "6"
List1.AddItem "7"End Sub

Answer 4

用 ListIndex 有什么不好？我一直这样做：list1.ListIndex = list1.NewIndex
list1.ListIndex = -1