players.bas

来自「局域网语音大厅系统源代码」· BAS 代码 · 共 19 行

Attribute VB_Name = "players"
Public Sub getPlayers(lst As ListBox)
    On Error Resume Next
    
    
    lst.Clear
    
    Set eP = dp.GetDPEnumPlayers(sessionGUID, DPENUMPLAYERS_ALL)

    Dim i As Integer
    
    For i = 1 To eP.GetCount
        lst.AddItem eP.GetShortName(i)
    Next i
    
    'Set eP = Nothing

End Sub