VFP中怎样实现表单背景图片在表单普通显示和最大化时都能够以全图显示 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → VFP中怎样实现表单背景图片在表单普通显示和最大化时都能够以全图显示

标题：VFP中怎样实现表单背景图片在表单普通显示和最大化时都能够以全图显示

取消只看楼主

陶然愚者

等　级：新手上路
帖　子：151
专家分：8
注　册：2012-12-13
结帖率：100%

楼主

已结贴√ 问题点数：10 回复次数：11

VFP中怎样实现表单背景图片在表单普通显示和最大化时都能够以全图显示

如题，请各位老师指点。谢谢！

搜索更多相关主题的帖子: 背景图片　能够　表单　

2013-01-31 15:04

陶然愚者

等　级：新手上路
帖　子：151
专家分：8
注　册：2012-12-13

第 2 楼

得分:0

以下是引用TonyDeng在2013-2-2 15:34:50的发言：

贴图，在init中设置stretch是不够的，那只能在窗体启动时有效，当用户拉伸窗体边框时就失效了。

对头......

2013-02-04 08:11

陶然愚者

等　级：新手上路
帖　子：151
专家分：8
注　册：2012-12-13

第 3 楼

得分:0

回复 6楼 TonyDeng

非常妙。能提供原代码，讲解下实现方法吗？

2013-02-04 08:25

陶然愚者

等　级：新手上路
帖　子：151
专家分：8
注　册：2012-12-13

第 4 楼

得分:0

回复 9楼 TonyDeng

谢谢！拷贝下来慢慢学习领会......

2013-02-04 14:14

陶然愚者

等　级：新手上路
帖　子：151
专家分：8
注　册：2012-12-13

第 5 楼

得分:0

T版的方法的确很专业，可惜这种纯代码的方法要消化还需要时日。昨日在网上看到一种方法，貌似也可实现标题所述目的：
第一步：用图片编辑软件将作为背景的图片修改为与表单大小相同；

第二步：在表单中添加图片控件，设置其Picture属性为想作为背景的图片文件名（含文件后辍和文件存放路径），设置其Stretch属性为2（变比填充）；

第三步：在表单的Activate事件和Resize事件中分别添加如下代码：
WITH thisform.Image1
    .top=0
    .left=0
    .height=thisform.height
    .width=thisform.width
ENDWITH

此方法貌似更加简单易懂。

2013-02-06 09:02

陶然愚者

等　级：新手上路
帖　子：151
专家分：8
注　册：2012-12-13

第 6 楼

得分:0

回复 3楼 wzxc

这个表单没有实现标题所要求的目的哦

2013-02-06 09:20

陶然愚者

等　级：新手上路
帖　子：151
专家分：8
注　册：2012-12-13

第 7 楼

得分:0

以下是引用sdta在2013-1-31 18:31:19的发言：

表单INIT事件
THISFORM.ADDOBJECT('IMAGE1','IMAGE')
WITH THISFORM.IMAGE1
     .WIDTH = THISFORM.WIDTH
     .HEIGHT = THISFORM.HEIGHT
     .VISIBLE = .T.
     .STRETCH = 2
     .PICTURE=SYS(5)+SYS(2003)+'\2.JPG'
ENDWITH

这段代码貌似应当放在表单的Activate事件和Resize事件中吧？不知对不？

2013-02-06 09:23

陶然愚者

等　级：新手上路
帖　子：151
专家分：8
注　册：2012-12-13

第 8 楼

得分:0

就是因为看不懂源代码，听T版这样将部分代码抽取出来解说以后才好象有点明白了。
   PROCEDURE Activate
        This.Resize
    ENDPROC
    这段代码的意思就是在表单的“Activate”事件中添加“This.Resize”这行代码，也就是执行与表单的“Resise”事件相同的事件代码，不知对不对？
    之前那么多代码行，慢慢对照帮助文件进行翻译，仍然不知道如何下手，在表单设计器环境下应该如何操作，直到昨天在网上看到一位老师以文字形式解说之后觉得比较简单易懂。
    碰到这样的学生，作为老师，一定感觉很头疼吧