主题:屏幕图片设置
jlxszzhbc
[专家分:0] 发布于 2008-05-19 00:45:00
在系统主程序中设置屏幕的图片背景:_screen.picture="picture\bj.bmp"
可是图片的尺寸与屏幕尺寸不一致.我想让图片的尺寸自动与屏幕的尺寸一
样大.请问怎样可以做到?谢谢!
回复列表 (共4个回复)
沙发
hw2007name [专家分:4790] 发布于 2008-05-19 11:14:00
我想最好添加一个IMAGE控件来显示你的图片,把IMAGE控件的Stretch设置为2(变比填充),同时还要调IMAGE控件的WIDTH和HEIGHT的值与_SCREEN的WIDTH和HEIGHT的值对应.如:
_SCREEN.ADDOBJECT("IMAGE1","IMAGE")
_SCREEN.IMAGE1.WIDTH=_SCREEN.WIDTH
_SCREEN.IMAGE1.HEIGHT=_SCREEN.HEIGHT
_SCREEN.IMAGE1.PICTURC="F:\picture\bj.bmp"
_SCREEN.IMAGE1.VISIBLE=.T.
&&&但有一点,此方法不能达到当窗口大小变化时不能自动调此IMAGE控件的大小.我解决此问题的方法是直接用一个单独的表单并在表单中添加IMAGE控件来达到目的.在表单的RESIZE中添加调整IMAGE大小的代码.
板凳
jinlonggao [专家分:17130] 发布于 2008-05-19 14:37:00
.stretch = 2
.anchor = 15
3 楼
hw2007name [专家分:4790] 发布于 2008-05-19 14:57:00
.anchor = 15&&是VFP9才有吧,学习了!有这个属性就方便多了.
4 楼
hw2007name [专家分:4790] 发布于 2008-05-19 15:00:00
***这样就可以了
_SCREEN.ADDOBJECT("IMAGE1","IMAGE")
_SCREEN.IMAGE1.WIDTH=_SCREEN.WIDTH
_SCREEN.IMAGE1.HEIGHT=_SCREEN.HEIGHT
_SCREEN.IMAGE1.PICTURC="F:\picture\bj.bmp"
_SCREEN.IMAGE1.stretch = 2
_SCREEN.IMAGE1.anchor = 15
_SCREEN.IMAGE1.VISIBLE=.T.
我来回复