以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助] 显示在线好友  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121148)

--  作者：zcgmxf --  发布时间：2018/6/30 8:08:00 --  [求助] 显示在线好友 老师，如何在一个文本框中显示 所有好友状态？谢谢！ Dim txt As WinForm.TextBox = Forms("好友状态").Controls("TextBox1") For Each bd As QQBuddy In QQClient.Buddies \'显示好友名和在线状态     If bd.Online = True Then          txt.Value = bd.Name & ":在线"     Else         txt.Value = bd.Name & ":不在线"     End If Next 上面的代码只能显示一个。

--  作者：有点蓝 --  发布时间：2018/6/30 9:07:00 --   If bd.Online = True Then          txt.Value = txt.Value & bd.Name & ":在线, "     Else         txt.Value = xt.Value & bd.Name & ":不在线,"     End If