Private Sub 全選_Click()
    Me.列表框.SetFocus
    Me.列表框.Selected(0)=True  '如果有列標題則為Selected(1)
    DoEvents
    SendKeys "^+{END}", True
End Sub

Private Sub 取消全選_Click()
    Me.列表框.SetFocus
    SendKeys "{F2}", True
End Sub

(責任編輯：admin)

• ·關于 Partition 函數(shù)在分組查詢中的應
• ·Access算術運算符的含義和說明表
• ·mid函數(shù)的另類用法
• ·access制作程序運行進度框
• ·Function與Sub的異同（函數(shù)調(diào)用）
• ·Access判斷某個數(shù)值是否為某個數(shù)據(jù)類型
• ·select case后面語句塊的值的四種格式
• ·vba條件語句的兩種表示方法
• ·Access幾種數(shù)據(jù)類型初始化的值
• ·Access vba null與＂＂空字符串的區(qū)別
• ·access vba 數(shù)據(jù)類型表
• ·Access變量的命名規(guī)則
• ·Access中EXIT Sub與End Sub的區(qū)別
• ·Access vba中參數(shù)前關鍵字ByRef和ByVal
• ·Access列表框快速全選的技巧【最快】
• ·vba函數(shù)的數(shù)據(jù)類型強制轉換