• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:4.2.0
软件大小:45M
更新时间:2025-11-06

按键精灵iOS版
立即下载

软件版本:2.4.2
软件大小:29.2M
更新时间:2025-09-24

按键手机助手
立即下载

软件版本:4.5.0
软件大小:242M
更新时间:2025-11-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[已解决] 求教悬浮窗 [复制链接]

1#
问一下怎么能把调试输出的信息弄一个悬浮窗可以让别人看 刚学看不懂求教求教。

本主题由 超级版主 瑞祥幽冥狼 于 2025/12/31 8:38:53 执行 审核帖子 操作
2#

[[----FW----(22)
http://bbs.anjian.com/showtopic-698048-1.aspx

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
3#

感谢 就是调试信息怎么显示到悬浮窗里面 有点看不懂

4#

  1. Dim 启动时间=TickCount()
  2. Call 浮窗初始化()
  3. For Q = 1 To 10
  4. 消息 Q
  5. Delay 1000
  6. Next


  7. Function 浮窗初始化()
  8. FW.NewFWindow "提示窗", 0, 720, 1280, 20
  9. FW.AddTextView "提示窗", "提示1", "这里显示运行时间", 0, 0, 360, 20
  10. FW.AddTextView "提示窗", "提示2", "这里显示提示内容", 360, 0, 360, 20
  11. FW.SetBackColor "提示1", "#F0F4F8"
  12. FW.SetBackColor "提示2", "#C8CCD9"
  13. FW.SetTextSize "提示1", 8
  14. FW.SetTextSize "提示2", 8
  15. FW.Show("提示窗")
  16. End Function
  17. Function 消息 (内容)
  18. FW.SetText "提示2", "当前:" & 内容
  19. FW.SetText "提示1", "计时:" & Round ((TickCount() - 启动时间) / 60000,2)&"分钟"
  20. End Function
复制代码

发新话题 回复该主题