问一下，如何知道listbox显示的第一行是整个listbox中的第几行？

Question

高手指教啊

Answer 1

Private Const LB_GETTOPINDEX = &H18E
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Command1_Click()
  MsgBox Str(SendMessage(List1.hwnd, LB_GETTOPINDEX, 0, 0))
  
End SubPrivate Sub Form_Load()
  Dim i As Integer
  For i = 1 To 30
   List1.AddItem "sdfasdf" + Format(i, "0")
  Next i
End Sub

Answer 2

Private Sub List1_Click()
    MsgBox List1.ListIndex + 1
End Sub
记得给我分啊！

Answer 3

：) visualzuo(左左) ( )的不错。