[電腦討論]

(VB6.0)用VB控制RFID

本帖最後由 風箏惡魔 於 2009-6-13 19:59 編輯

以下這段程式是放在驅動RFID的元件控制項裡面的
我想問的是這段裡面詳細的內容是什麼意思

Private Sub RWM600x_OnTagEvent(ByVal nEvent As Integer, ByVal nDSFID As Integer)
    Dim bUID(7) As Byte ' Byte Array for UID, Size 8 Bytes (0~7)
    Dim szUID As String
    Dim I As Long
    Select Case nEvent
    Case TAG_PRESENT    'Case TAG_PRESENT好像是在寫讀取到tag後做一些顯示的動作,不過那些程式是什麼意思呢
        With RWM600x
            .GetCurrentUID VarPtr(bUID(0))
            szUID = BytesToHexRev(bUID)   'szUID卡號
                    List1.AddItem szUID
            Label6.Caption = "卡片數:" + Str(List1.ListCount)
        End With
    Case TAG_REMOVED   '這段是tag離開後的動作
        With RWM600x
             .GetCurrentUID VarPtr(bUID(0))
        End With
        szUID = BytesToHexRev(bUID)
        List1.RemoveItem (SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(szUID)))
        Label6.Caption = "卡片數:" + Str(List1.ListCount)
    End Select
End Sub

我想問的是這些程式每一行的作用...怎麼書上都沒教這些,還是我找錯書了,都沒找到...
喜歡這篇文章嗎?
回覆 2
您需要登入後才可以回帖 登入 | 註冊會員

本版積分規則 回覆 15 個字以上可拿獎勵,
規則詳見此

精選熱門商品

提示訊息
go_top