網頁

2019年10月5日 星期六

Access VBA - ListBox Object 列表框對象(二)

Access VBA - ListBox Object 列表框對象(二):

ListBox Object(列表框對象)的屬性和使用,一般的 ListBox 是將多項關聯資料放在列表內,讓用家自行選擇。在選擇列表框時,BoundColumn 屬性通知 Microsoft Office Access 要將哪個列的值用作控制項的值。如果控制項綁定到欄位,則列中由 BoundColumn 屬性指定的值存儲在由 ControlSource 屬性指定的欄位中 Long 型,可讀/寫。
 
ListBox Object(列表框對象)
選擇列表框 → 放置在對話框位置 → 右 Click → 屬性 → 更改列表屬性 → 事件 → 更新後→ 事件過程 → Click … → 進入 VBA → 寫入程式代碼

執行 VBA
選擇列表框 Sales,MsgBox 便顯示為 2
ListBox Object VBA 程式代碼:
Option Compare Database
Option Explicit

Private Sub ListBox_Department_DblClick(Cancel As Integer)
MsgBox (Me.ListBox_Department.ListIndex)
End Sub

Private Sub ListBox_Department_GotFocus()
Dim strItem As String
strItem = "Admin    ;0"

Me.ListBox_Department.RowSourceType = "Value list"
Me.ListBox_Department.AllowValueListEdits = False
Me.ListBox_Department.Height = 10
Me.ListBox_Department.ColumnCount = 2

Me.ListBox_Department.AddItem "Marketing;1", 0
Me.ListBox_Department.AddItem "Sales    ;2", 1
Me.ListBox_Department.AddItem strItem, 0
End Sub


BoundColumn 属性使用以下设置:
设置
说明
0
ListIndex 屬性值(而非列值)存儲在當前記錄中。第一行的 ListIndex 屬性值為 0,第二行為 1,依此類推。從列表框或下拉式列示方塊的列表框部分中選擇項時,Access 設置 ListIndex 屬性。如果只對存儲一系列數位感興趣,則將 BoundColumn 屬性設置為“0,並且使用控制項的 ListIndex 屬性值可能非常有用。
1 或更高
(預設值為 1)指定列中的值成為控制項的值。如果控制項綁定到某個欄位,則此設置存儲在當前記錄中的該欄位中。不能將 BoundColumn 屬性設置為大於 ColumnCount 設置的值。

1. ListBox - 事件(Events):
事件
Description
AfterUpdate
更新後
BeforeUpdate
更新前
Click
點擊
DblClick
雙擊
Enter
輸入
Exit
退出
GotFocus
獲得焦點
KeyDown
按向下鍵
KeyPress
按鍵
KeyUp
按向上鍵
LostFocus
失去焦點
MouseDown
鼠標按下
MouseMove
鼠標移動
MouseUp
鼠標按上

2. ListBox - 方法(Methods):
方法
Description
AddItem
加入資料
Move
移動
RemoveItem
刪減資料
Requery
重新查詢
SetFocus
設定焦點
SizeToFit
合適尺寸
Undo
復原

3. ListBox - 屬性(Properties):
屬性
Description
AddColon
添加冒號
AfterUpdate
更新後
AllowValueListEdits
允許值列表編輯
Application
應用
AutoLabel
自動標籤
BackColor
背景顏色
BackShade
背景陰影
BackThemeColorIndex
背景主題顏色索引
BackTint
背景色調
BeforeUpdate
更新前
BorderColor
邊框顏色
BorderShade
邊框陰影
BorderStyle
邊框樣式
BorderThemeColorIndex
邊框主題顏色索引
BorderTint
邊界色調
BorderWidth
邊框寬度
BottomPadding
底部填充
BoundColumn
綁定欄
Column
ColumnCount
欄數目
ColumnHeads
欄標題
ColumnHidden
隱藏欄
ColumnOrder
欄順序
ColumnWidth
欄寬度
ColumnWidths
欄寬度
Controls
控制
ControlSource
控件源
ControlTipText
控制提示文字
ControlType
控制類型
DefaultValue
默認值
DisplayWhen
顯示時間
Enabled
啟用
EventProcPrefix
事件處理前綴
FontBold
粗字體
FontItalic
斜字體
FontName
字體名稱
FontSize
字體大小
FontUnderline
字體下劃線
FontWeight
字體粗細
ForeColor
前顏色
ForeShade
前陰影
ForeThemeColorIndex
前主題顏色索引
ForeTint
前色調
Format
格式
GridlineColor
網格線顏色
GridlineShade
網格線陰影
GridlineStyleBottom
網格線樣式底部
GridlineStyleLeft
網格線樣式向左
GridlineStyleRight
網格線樣式右
GridlineStyleTop
網格線樣式頂部
GridlineThemeColorIndex
網格主題顏色索引
GridlineTint
網格線色調
GridlineWidthBottom
網格線底部寬度
GridlineWidthLeft
網格線左寬度
GridlineWidthRight
網格線右寬度
GridlineWidthTop
網格線寬度頂部
Height
高度
HelpContextId
幫助文字內容ID
HideDuplicates
隱藏重複項
HorizontalAnchor
水平錨
Hyperlink
超鏈接
IMEHold
輸入法保持
IMEMode
輸入法模式
IMESentenceMode
輸入法句子模式
InheritValueList
繼承值列表
InSelection
在選擇中
IsVisible
可見
ItemData
項目資料
ItemsSelected
選擇的項目
LabelAlign
標籤對齊
LabelX
標籤X
LabelY
標籤Y
Layout
佈局
LayoutID
版面編號
Left
LeftPadding
左填充
ListCount
列表計數
ListIndex
列表索引
ListItemsEditForm
清單項目編輯表單
Locked
鎖定
MultiSelect
多重選擇
Name
名稱
NumeralShapes
數字形狀
OldBorderStyle
舊邊框樣式
OldValue
舊數值
OnClick
點擊
OnDblClick
雙擊
OnEnter
輸入時
OnExit
退出口
OnGotFocus
聚得焦點
OnKeyDown
按向下鍵
OnKeyPress
按鍵按下
OnKeyUp
按向上鍵
OnLostFocus
失去焦點
OnMouseDown
按下鼠標
OnMouseMove
鼠標移動時
OnMouseUp
按鼠標上鍵
OnUndo
復原
Parent
父系
Properties
屬性
ReadingOrder
閱讀順序
Recordset
記錄
RightPadding
右填充
RowSource
行源
RowSourceType
行源類型
ScrollBarAlign
滾動條對齊
Section
部分
Selected
選擇
ShortcutMenuBar
快捷菜單條
ShowOnlyRowSourceValues
僅顯示行源值
SmartTags
智能標籤
SpecialEffect
特殊效果
StatusBarText
狀態欄文字
TabIndex
跳位索引
TabStop
跳位停位
Tag
標籤
ThemeFontIndex
主題字體索引
Top
高度
TopPadding
高度填充
ValidationRule
驗證規則
ValidationText
驗證文字
Value
VerticalAnchor
垂直錨
Visible
可見
Width
寬度

Version : Microsoft Office Access 2007

相關網址:
※ Docs/ Office/ VBA Reference/ Access/ Object model/ ListBox object

相關網址:
※ Access - 開始使用 Microsoft Office Access 2007(一)
※ Access - 在 Access 2007 中建立表單(二)
※ Access - 在 Access 2007 編程 VBA(三)
※ Access - 在 Access 2007 語系錯誤訊息(四)
※ Access VBA - TextBox Object 文本框對象(一)
※ Access VBA - ListBox Object 列表框對象(二)
※ Access VBA - ComboBox Object 組合框對象(三)
※ Access VBA - CommandButton Object 按鈕命令對象(四)
※ Access VBA - CheckBox Object 復選框對象(五)
※ Access VBA - Create a Table 建立資料表(六)
※ Access VBA - Create a Form 創建窗體(七)
※ Access VBA - Add a Subform to Existing Form 在主表單加入子窗體(八)
※ Access VBA - Create a Simple Report 創建一個簡單報表(九)
※ Access VBA - Display Report 報表顯示輸出(十)
※ Access VBA - Export Tables to Excel File 將資料匯出至 Excel 檔案(十一)
※ Access VBA - Export Tables to Other File Format 將資料匯出至其他文件格式(十二))

2019年 10月 5日 天氣報告
氣溫:27.0@ 20:10
相對濕度:百分之 79%
天氣:漸轉多雲

沒有留言:

張貼留言