vfp6主菜单背景图片的设置
背景是白屏,想设置成图片
2017-02-24 17:36
2017-02-24 17:50
2017-02-24 19:01
2017-02-25 14:47
[此贴子已经被作者于2017-2-26 05:19编辑过]

2017-02-25 22:03
程序代码:public SYSDESKTOPSIZE
SYSDESKTOPSIZE=SROWS()+SCOLS()
_SCREEN.ADDOBJECT("IMAGE1","IMAGE") &&在桌面上创建image1用于显示图片
_SCREEN.ADDOBJECT("TIMER1","TIMER1") &&在桌面上创建timer1用于控制图片大小
_SCREEN.IMAGE1.TOP = -4
_SCREEN.IMAGE1.LEFT = -4
_SCREEN.IMAGE1.HEIGHT = _Screen.Height + 4
_SCREEN.IMAGE1.WIDTH = _Screen.Width + 4
_SCREEN.IMAGE1.STRETCH = 2
_SCREEN.IMAGE1.PICTURE='030.jpg'
_SCREEN.IMAGE1.VISIBLE=.T.
_SCREEN.TIMER1.ENABLED=.T.
_SCREEN.TIMER1.INTERVAL=1000
DEFINE CLASS TIMER1 AS TIMER
LEFT=10
TOP=10
PROCEDURE TIMER
_SCREEN.IMAGE1.TOP = -4
_SCREEN.IMAGE1.LEFT = -4
_SCREEN.IMAGE1.HEIGHT =_SCREEN.HEIGHT + 4
_SCREEN.IMAGE1.WIDTH = _SCREEN.WIDTH + 4
IF SYSDESKTOPSIZE#SROWS()+SCOLS()
SYSDESKTOPSIZE=SROWS()+SCOLS()
ENDIF
ENDDEFINE
2017-02-26 10:57
2017-02-26 15:11
2017-02-27 10:30
2017-02-27 15:24
2017-03-09 14:55