1.获得屏幕的大小
environment env
integer rtn
rtn = GetEnvironment(env)
IF rtn <> 1 THEN RETURN
x=(PixelsToUnits(env.screenwidth,XPixelsToUnits!) - this.width) /2
y=(PixelsToUnits(env.screenheight,YPixelsToUnits!) - this.height)/2
this.move(x,y)
environment env
integer rtn
rtn = GetEnvironment(env)
IF rtn <> 1 THEN RETURN
width=PixelsToUnits(env.screenwidth,XPixelsToUnits!)
height=PixelsToUnits(env.screenheight,YPixelsToUnits!)
x=0
y=0
2.取pb版本
3.取操作系统
4.判断是16还是32位系统
obj.classname 取类名字符串
obj.typeof 取类型 枚举
environment env
integer rtn
rtn = GetEnvironment(env)
IF rtn <> 1 THEN RETURN
x=(PixelsToUnits(env.screenwidth,XPixelsToUnits!) - this.width) /2
y=(PixelsToUnits(env.screenheight,YPixelsToUnits!) - this.height)/2
this.move(x,y)
environment env
integer rtn
rtn = GetEnvironment(env)
IF rtn <> 1 THEN RETURN
width=PixelsToUnits(env.screenwidth,XPixelsToUnits!)
height=PixelsToUnits(env.screenheight,YPixelsToUnits!)
x=0
y=0
2.取pb版本
3.取操作系统
4.判断是16还是32位系统
obj.classname 取类名字符串
obj.typeof 取类型 枚举