Foxtable(狐表)用户栏目专家坐堂 → 如何用代码设置启动封面图片的文件


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

主题:如何用代码设置启动封面图片的文件

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


加好友 发短信
等级:狐神 帖子:6835 积分:43243 威望:0 精华:0 注册:2009/3/2 14:07:00
如何用代码设置启动封面图片的文件  发帖心情 Post By:2015/10/16 6:42:00 [只看该作者]

如题。

 


图片点击可在新窗口打开查看此主题相关图片如下:未命名.bmp
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/10/16 6:51:06编辑过]

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


加好友 发短信
等级:狐神 帖子:6835 积分:43243 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2015/10/16 6:46:00 [只看该作者]

Image

返回或设置窗口的背景图片
可用GetImage函数从指定的图片文件获得图片,如果文件已经事先复制到管理项目的Images子目录下,则只需指定文件名即可,否则需要包括路径。

示例

Forms("窗口1").Image = GetImage("a.jpg")

 

 

类似这个功能


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2015/10/16 7:54:00 [只看该作者]

在项目下放入1个jpg格式的图片,名字改成  Splash.jpg  就可以了

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


加好友 发短信
等级:狐神 帖子:6835 积分:43243 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2015/10/16 8:49:00 [只看该作者]

这个文件夹下有几张图片,我请教的是如何用代码启用任意一张图片做为启动封面。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/16 9:13:00 [只看该作者]

以下是引用lihe60在2015/10/16 8:49:00的发言:

这个文件夹下有几张图片,我请教的是如何用代码启用任意一张图片做为启动封面。

 

关闭项目的时候,或者afterOPenProject的时候,任意拷贝一张图片替换,下次启动就不同了。

 

FileSys.CopyFile(ProjectPath & "splash.jpg", ApplicationPath & "splash.jpg", True)


 回到顶部