Office中国论坛/Access中国论坛

标题: QQ在线状态如何做在窗体里？ [打印本页]

作者: tz-chf 时间: 2009-8-26 10:12
标题: QQ在线状态如何做在窗体里？
这个样子如何做在窗体里，代码是网页的。

作者: liwen 时间: 2009-8-26 10:25
加一个网页控件,只显示这个标志

作者: liwen 时间: 2009-8-26 12:38
If M = 1 Then
W1.Refresh
Else
W1.Navigate "about:blank"
      W1.Document.writeln "<HTML>"
      W1.Document.writeln "<HEAD>"
      W1.Document.writeln "<TITLE>"
      W1.Document.writeln "QQ在线"
      W1.Document.writeln "</TITLE>"
      W1.Document.writeln "</HEAD>"
      W1.Document.writeln "<BODY >"
      W1.Document.writeln "<tr><a target=""_blank"" href=""http://wpa.qq.com/msgrd?V=1&Uin=83799119&Site=腾讯互动黄页&Menu=yes"">"
      W1.Document.writeln "<img border=""0"" SRC=""http://wpa.qq.com/pa?p=1:83799119:1"" alt=""点击给我发送消息"">QQ:83799119</a><br></tr>"
      W1.Document.writeln "</BODY>"
      W1.Document.writeln "</HTML>"
      M = 1
      End If

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)