vf数据库
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
请教:如何将一个图片作为表单的背景图片?
(1)在表单添加《image1》控件。
(2)《image1》控件的init写入:
(3)WITH thisform.image1
(4).Anchor=15 && 这是 vf 9 的属性;vf 6 要另写代码,当表单变化时,《image1》控件尺寸也要做出相应变化。
(5).Stretch=2
(6).Picture="图.bmp"
(7)ENDWITH
(8)将一幅与屏幕最大的尺寸相等或大于屏幕最大的尺寸的图设置为:
(9)thisform.Picture="图.bmp"
(10)非常感谢你的热情帮助。我按照你介绍的方法设置表单运行后,表单中并没有显示背景图片,只是显示了一个图像控件,不知是什么原因,烦请再次赐教
Picture 属性的路径一定要正确。(如果是相对路径,路径是否正确!)
你写入一个绝对路径,检查是否正确!
.Picture="绝对路径\图.bmp"
如果正确,就是图文件的相对路径错误!!!
(11)如果图片和表单“尺寸大小相同或很相近”直接设置表单的Picture 属性为指定的图片也可以!(12)添加表单背景图片在表单属性中的Picture设置图片绝对路径就可以了
我是用main程序加背景图片,可总是显示不出来,大家看看是什么原因?
oHandler=NEWOBJECT("MyHook")
BINDEVENT(_SCREEN,"Resize",oHandler,"Resize")
_Screen.AddObject("Image1","BackImage")
_Screen.AddObject("Label1","labClass")
_Screen.AddObject("Label2","label")
DEFINE CLASS BackImage AS Image
Name="Image1"
Top=0
Left=0
Height=_Screen.Height
Width=_Screen.Width
Picture="BackGround.jpg"
BackStyle=0
Stretch=2
Visible=.T.
ENDDEFINE
(13)貌似事先定义的Visible属性在main窗口不起作用的,必须再写一句(14)_screen.image1.visible=.t.