微信公眾號原文

系統：Windows 7
軟體：Excel 2010 / Access 2010

• 這個系列介紹常用的控制元件
• 包括在介面端的設定及在程式碼端的實現

Part 1：本篇目標

1. 本篇介紹的控制元件為：列表框。涉及功能為：後臺獲取使用者的選擇項
2. 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：部分程式碼解讀

1. chooseRow = ctrl.ListIndex，注意是否設定列標題選項，在計數時，是不包括列標題的
2. ListBox.Column(Index, Row)
   ，列表框可以看成一個Excel表格，不同的是
   
   • 行和列都是從0開始計數
   • 與Excel中不同的是，先是列再是行，格式：（列，行）

* ListBox.Column官方解讀*

- 本文為原創作品，如需轉載，可加小編微訊號learningBin

更多精彩，請關注微信公眾號
掃描二維碼，關注本公眾號