會(huì)員登錄 - 用戶注冊(cè) - 網(wǎng)站地圖 Office中國(guó)(office-cn.net)，專業(yè)Office論壇
當(dāng)前位置：主頁(yè) > 源碼 > Access源碼示例 > 界面/窗體/控件 > 正文

access按數(shù)字鍵自動(dòng)選取組合框列表框中對(duì)應(yīng)行的數(shù)據(jù)

時(shí)間：2013-12-31 15:16 來源：access911 作者：cg1 閱讀：次
軟件類型：國(guó)產(chǎn)軟件 授權(quán)方式：免費(fèi)軟件 界面語(yǔ)言：簡(jiǎn)體中文 軟件大�。�82 KB 文件類型：.rar 運(yùn)行環(huán)境：Win2003,WinXP,win7,win8 軟件等級(jí)：★★★★☆ 發(fā)布時(shí)間：2013-12-31 插件情況：無插件，請(qǐng)放心使用。 下載次數(shù)：
軟件介紹：
    有的時(shí)候，我們?yōu)榱丝焖龠x擇項(xiàng)，就選用數(shù)字來代替。比如有一個(gè)組合框，行來源是值列表 "文盲;小學(xué);初中;高中;大專;本科;碩士;博士"，按小鍵盤的數(shù)字鍵1，就選擇“小學(xué)”這行，按5就選擇“本科” 這樣的方法。我們往往在函數(shù)的參數(shù)中看到這樣的寫法。
 
 
    那我們可以寫一個(gè)通用函數(shù)，放在組合框或者列表框的 KEYUP 事件中調(diào)用就可以了。無論是值列表、表/查詢、字段都可以應(yīng)用。
 
Function SelectValue(ByRef ComboOrList As Control, ByVal KeyCode As Integer)
'本函數(shù)的作用是根據(jù)用戶在組合框或者列表框上按的數(shù)字小鍵盤的順序，
'選擇列表前10個(gè)中的某一個(gè)
    Debug.Print KeyCode
    With ComboOrList
        If .ControlType <> acComboBox And .ControlType <> acListBox Then
            Debug.Print "不是組合框或者列表框，無法應(yīng)用本功能"
            Exit Function
        End If
        If KeyCode >= 96 And KeyCode <= 105 Then
        '必須是小鍵盤，0鍵=96 --> 9鍵=105
            If .ListCount >= KeyCode - 96 Then
            '如果列表的數(shù)量>= 10
                .Value = .Column(.BoundColumn - 1, KeyCode - 96 - 1)
            End If
        End If    
    End With
End Function
 
Private Sub Combo2_KeyUp(KeyCode As Integer, Shift As Integer)
'調(diào)用方式如下：
    SelectValue Me.Combo2, KeyCode
End Sub
Private Sub List3_KeyUp(KeyCode As Integer, Shift As Integer)
'調(diào)用方式如下：
    SelectValue Me.List3, KeyCode
End Sub
 
頂一下
(1)
100%
踩一下
(0)
0%
下載地址：
注意事項(xiàng)：

☉推薦使用第三方專業(yè)下載工具下載本站軟件，使用 WinRAR v3.10 以上版本解壓本站軟件。
☉如果這個(gè)軟件總是不能下載的請(qǐng)點(diǎn)擊報(bào)告錯(cuò)誤,謝謝合作!!
☉下載本站資源，如果服務(wù)器暫不能下載請(qǐng)過一段時(shí)間重試！
☉如果遇到什么問題，請(qǐng)到本站論壇去咨尋，我們將在那里提供更多 、更好的資源！
☉本站提供的一些商業(yè)軟件是供學(xué)習(xí)研究之用，如用于商業(yè)用途，請(qǐng)購(gòu)買正版。

發(fā)表評(píng)論
請(qǐng)自覺遵守互聯(lián)網(wǎng)相關(guān)的政策法規(guī)，嚴(yán)禁發(fā)布色情、暴力、反動(dòng)的言論。
評(píng)價(jià):