status.bas

来自「Winsock的多客户服务器源代码,比较好的WINSOCK应用示例!」· BAS 代码 · 共 7 行

Attribute VB_Name = "status"
Sub update_status(message As String)
'this updates the status window with any new messages
main.status.AddItem "[" & f_time & "] " & message
main.status.ListIndex = (main.status.ListCount - 1)
End Sub