Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一个表单计时器如何对两个对象控制


  共有4762人关注过本帖树形打印复制链接

主题：一个表单计时器如何对两个对象控制
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		一个表单计时器如何对两个对象控制  发帖心情 Post By：2019/9/29 21:30:00 [只看该作者]

Dim lab1 As WinForm.Label = e.Form.Controls("lblMsg")
If lab1.Width + lab1.Left <= 0 Then
    lab1.left = e.Form.Width
Else
    lab1.left = lab1.left -1
End If


Dim t As Table = Tables("图库")
Dim jls As Integer = t.Rows.Count
If vars("count") = jls Then
    vars("count") = 1
    t.Position = 0
Else
    vars("count") = vars("count") + 1
    If t.Position < t.Rows.Count - 1 Then
        t.Position += 1
    Else
        t.Position = 0
    End If
End If



请问老师，一个窗口上我想设计一个滚动文本，另外有一个表的相片列绑定在相窗口的picturebox,我想同时用计数器让表自动换行来实现图片自动变换，这个不得行，该怎么写呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113480 积分：577889 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/29 22:16:00 [只看该作者]

Dim t As Table = Tables("图库")
If t.Position < t.Rows.Count - 1 Then
        t.Position += 1
    Else
        t.Position = 0
    End If
vars("count") = t.Position+1
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/9/30 7:00:00 [只看该作者]

老师，我测的结果不要表的自动移动标签可以滚动，但用的了表移动就不行，我是想两个的移动速度不一致

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113480 积分：577889 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/30 9:07:00 [只看该作者]

Else
    lab1.left = lab1.left -1
End If

application.doevents

Dim t As Table = Tables("图库")
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2019/10/1 7:39:00 [只看该作者]

Dim lab1 As WinForm.Label = e.Form.Controls("lblMsg")
If lab1.Width + lab1.Left <= 0 Then
    lab1.left = e.Form.Width
Else
    lab1.left = lab1.left -1
End If
application.doevents
Dim t As Table = Tables("图库")
If t.Position < t.Rows.Count - 1 Then
    t.Position += 1
Else
    t.Position = 0
End If



请问老师，现在是时间间隔问题，因为是在同一窗口，lab1是跑马灯文本，要有平滑滚动效果，时间间隔设置为30，图片的变换（记录移动）间隔又需要调慢为30000，也就是如何设置两个不同间隔计时器。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47522 积分：251557 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2019/10/2 8:32:00 [只看该作者]

修改计时器代码,假定计时器间隔是30

Static cnt As integer
cnt = cnt +1
if cnt = 1000 Then
      cnt = 0
      ’移动图片的代码
End  if
'移动标签的代码


参考：
http://www.foxtable.com/webhelp/topics/1061.htm
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询