如何設置一個MS訪問列表框的默認滾動是頂部

我有MS Access窗體2010多選列表框，我有選擇這樣如何設置一個MS訪問列表框的默認滾動是頂部

For i = 0 To CategoriesList.ListCount - 1 
If InStr(1, ",2,3,17,6,22,13,10,48,39,18,", ("," & CategoriesList.ItemData(i) & ",")) Then 
CategoriesList.Selected(i) = True 
End If 
Next i

其中工程默認值的常規完美，現在的事情是，列表框只有三個項目的高度，並具有總48個IEMS，一旦我做根據上述程序，在列表框中顯示的最後三個項目是默認（滾動到下）

我如何讓默認的列表框滾動到頂部？

來源

2013-07-18 fred Karming

您可以通過設置ListIndex爲1（第一項）做到這一點，但它需要的列表框具有焦點：

Me.List6.Selected(8) = True 
Me.List6.Selected(9) = True 
Me.List6.SetFocus 
Me.List6.ListIndex = 1

如果您設置的ListIndex到找到的第一個項目（i），那麼它將使其成爲列表中的頂部（顯示）項目。

來源

2013-07-18 23:10:22

爲此，無需將焦點置於列表框中，反向循環列表項。由於代碼將在第一項上結束，列表框將滾動到頂部：

For i = (CategoriesList.ListCount - 1) to 0 Step -1 
    If InStr(1, ",2,3,17,6,22,13,10,48,39,18,", ("," & CategoriesList.ItemData(i) & ",")) Then 
    CategoriesList.Selected(i) = True 
    End If 
    Next

來源

2013-09-23 18:08:14

如何設置一個MS訪問列表框的默認滾動是頂部

回答

相關問題