Access-控制元件解析-列表框-02-獲取選項
阿新 • • 發佈:2018-11-09
系統:Windows 7
軟體:Excel 2010 / Access 2010
- 這個系列介紹常用的控制元件
- 包括在介面端的設定及在程式碼端的實現
Part 1:本篇目標
- 本篇介紹的控制元件為:列表框。涉及功能為:後臺獲取使用者的選擇項
- UI介面存在大量與使用者互動的部分,根據客戶不同的選擇展現不同的資訊
功能動圖
靜圖
Part 2:程式碼
控制元件關聯程式碼
Private Sub 獲取姓名資訊_Click()
frmName = Me.Name
ctrlName = "List0"
colNum = 1
x = 獲取列表框選項(frmName, ctrlName, colNum)
MsgBox "選擇姓名為:" & x
End Sub
核心函式:獲取不同列,改變colNum值即可
Function 獲取列表框選項(frmName, ctrlName, colNum)
Rem>>單選識別
Rem>>
Dim frm
Dim ctrl
Dim chooseRow
Set frm = Forms(frmName)
Set ctrl = frm.Controls(ctrlName)
chooseRow = ctrl.ListIndex 'listIndex 計數不包括標題行
'ListBox.Column(Index, Row),Index表示列資訊,Row表示行資訊,都是從0開始
If chooseRow >= 0 Then
獲取列表框選項 = ctrl.Column(colNum - 1, chooseRow + 1)
Else
獲取列表框選項 = "未選中"
End If
End Function
程式碼截圖
Part 3:部分程式碼解讀
chooseRow = ctrl.ListIndex
,注意是否設定列標題選項,在計數時,是不包括列標題的ListBox.Column(Index, Row)
- 行和列都是從0開始計數
- 與Excel中不同的是,先是列再是行,格式:(列,行)
* ListBox.Column官方解讀*
- 本文為原創作品,如需轉載,可加小編微訊號learningBin
更多精彩,請關注微信公眾號
掃描二維碼,關注本公眾號