Enter鍵（Enter鍵）進行快速判斷

Enter鍵（Enter鍵）進行快速判斷

    在其位，謀其政。做一顆螺絲釘，就發揮螺絲釘穩穩當當的功能。做軟體，為了盡可能地為使用者着想，增強使用者體驗度，增添附加值，進一步做些努力。

    本文介紹我在機房收費系統中的Enter鍵實作上下機操作。以VB.NET作示例，而Enter鍵（Enter鍵）的判斷代碼在其他文法也是适用的。

判斷Enter鍵的代碼為：e.KeyCode = Keys.Enter或e.keyCode = “13”

執行個體：

'輸入卡号，Enter鍵(“Enter”鍵)，上下機
    Private Sub txtCardID_KeyDown(sender As Object, e As KeyEventArgs) Handles txtCardID.KeyDown
        Dim UpDown As String = vbNull
        Dim i As Integer = 1
        Dim myList As List(Of Entity.MainEntity)
        Dim logon_en As New Entity.LogonEntity
        Dim updoing_en As New Entity.MainEntity

        Dim main_bll As New BLL.MainBLL

        '捕獲界面卡号
        logon_en.CardID = txtCardID.Text.Trim
        logon_en.State = "使用"
        myList = main_bll.select_doing()

        '調用查詢系統資料庫方法，傳入系統資料庫實體，傳回系統資料庫實體将原來的實體覆寫
        logon_en = main_bll.select_logon(logon_en)
        '判斷泛型（實體集）中實體個數
        If myList.Count > 0 Then
            Do While i < myList.Count Or i = myList.Count
                updoing_en = myList.Item(i - 1)
                '核查“卡号”是否在【正在上機表】中
                If updoing_en.CardID = txtCardID.Text.Trim Then
                    UpDown = "Down"
                    Exit Do
                End If
                i = i + 1
            Loop

            If UpDown = "Down" Then
                '标記保持不變
                UpDown = "Down"
            ElseIf logon_en.CardID = txtCardID.Text.Trim Then
                '修改标記
                UpDown = "Up"
            Else
                '清空标記
                UpDown = "Null"
            End If
        Else
            '【正在上機表】無資料，那就直接，試試“上機”，按正常“上機”的程式走
            UpDown = "Up"
        End If

        '如果單擊的按鈕為“Enter”鍵（Enter鍵）
        If e.KeyCode = Keys.Enter Then
            If UpDown = "Up" Then
                btnUp_Click(sender, e)   '等價于 = 敲擊“上機”按鈕
            ElseIf UpDown = "Down" Then
                btnDown_Click(sender, e)   '等價于 = 敲擊“下機”按鈕
            End If
        End If
    End Sub

           

      本執行個體用到了按鍵代換，就是相當于按下A鍵，進行判斷，在若符合條件a等價于按了A鍵；若符合條件b則等價于按了B鍵。