Foxtable(狐表)用户栏目专家坐堂 → 一个主窗体设置背景图片自动切换怎么写代码


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

主题:一个主窗体设置背景图片自动切换怎么写代码

帅哥哟,离线,有人找我吗?
xieyangyang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:82 积分:637 威望:0 精华:0 注册:2014/1/26 19:35:00
一个主窗体设置背景图片自动切换怎么写代码  发帖心情 Post By:2014/2/10 15:25:00 [只看该作者]

主窗体设置背景图片自动切换怎么写代码?

 

 

说明:Images文件里有设计好的背景图片(1.2.3.4.5)张.打开系统和主窗体,背景图片在30秒内自动循环切换1-5张图片或更多

 


 回到顶部
帅哥哟,离线,有人找我吗?
xieyangyang
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:82 积分:637 威望:0 精华:0 注册:2014/1/26 19:35:00
  发帖心情 Post By:2014/2/10 15:27:00 [只看该作者]

背景图片可以在局域网下同步更新自动循环切换?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/10 15:31:00 [只看该作者]

计时器里使用代码设置即可

e.Form.baseform.controls(e.Form.name).backgroundimage=getimage("C:\Users\foxtable1\Desktop\上传图片请参考这里.gif")

 回到顶部
帅哥,在线噢!
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/2/10 15:38:00 [只看该作者]

注意用静态变量:

 

Static i as integer

if i = 0 then

   i = 1

end if

 

e.Form.baseform.controls(e.Form.name).backgroundimage=getimage("C:\Users\foxtable1\Desktop\" & i & ".gif")

 

i = i + 1

if i = 6 then

  i = 1

end if


 回到顶部
帅哥哟,离线,有人找我吗?
xieyangyang
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:82 积分:637 威望:0 精华:0 注册:2014/1/26 19:35:00
  发帖心情 Post By:2014/2/10 15:39:00 [只看该作者]

谢谢!狐爸

 回到顶部
帅哥哟,离线,有人找我吗?
xieyangyang
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:82 积分:637 威望:0 精华:0 注册:2014/1/26 19:35:00
  发帖心情 Post By:2014/2/10 15:52:00 [只看该作者]

狐爸    还是不可以啊?

 回到顶部
帅哥哟,离线,有人找我吗?
xieyangyang
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:82 积分:637 威望:0 精华:0 注册:2014/1/26 19:35:00
  发帖心情 Post By:2014/2/10 15:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140210155340.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/10 15:54:00 [只看该作者]

上例子,我看你是怎么做的.

 回到顶部
帅哥哟,离线,有人找我吗?
xieyangyang
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:82 积分:637 威望:0 精华:0 注册:2014/1/26 19:35:00
  发帖心情 Post By:2014/2/10 15:59:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140210155914.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/2/10 22:31:00 [只看该作者]

这样写,Forms("xxx").baseform.backgroundimage = getimage("d:\test.jpg")

 回到顶部
总数 12 1 2 下一页