【PB案例学习笔记】-25制作一个带底图的MDI窗口

写在前面

这是PB案例学习笔记系列文章的第25篇，该系列文章适合具有一定PB基础的读者。

通过一个个由浅入深的编程实战案例学习，提高编程技巧，以保证小伙伴们能应付公司的各种开发需求。

文章中设计到的源码，小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git

需要源代码的小伙伴们可以自行下载查看，后续文章涉及到的案例代码也都会提交到这个仓库【pb-project-example】

如果对小伙伴有所帮助，希望能给一个小星星⭐支持一下小凡。

一、小目标

通过本案例我们将制作一个带有底图的MDI窗口。通过这个案例我们可以制作出带底图的窗口，使窗口更加美观

二、创作思路

一般来说，在MDI窗口中无法放入底图，但通过本案例，我们建立一个标准的窗口来加载图片，MDI窗口启动时，打开这个窗口，就如同在MDI窗口中加载图片一样。最终效果如下

三、创建程序基本框架

① 新建examplework工作区

② 新建exampleapp应用

③ 新建w_main窗口，将其Title设置为主窗口

由于文章篇幅原因，以上步骤不再赘述，如果忘记怎么操作的小伙伴可以翻一翻该系列第一篇文章

④ 新建w_pic窗口

将窗口的Visible属性设置成True,其他属性均为False WindowType属性设置为popup!,并在窗口中添加Picture

控件，将其命名为p_1，如下图所示

⑤ 新建w_sheet 窗口

将其Title属性设置成“子窗口”

⑥新建m_main菜单，如下图所示

四、编写w_pic代码

① 在w_pic窗口中定义实例变量，代码如下

boolean    isFullScreen
integer      oldwidth,oldheight

② 在w_pic窗口中定义init函数init(string as_picture,boolean as isfullscreen) returns (none)代码如下

p_1.OriginalSize	= true
p_1.pictureName = as_picture

oldheight = p_1.height
oldwidth = p_1.width

p_1.originalSize = false

this.resize(this.width,this.height)

③ 在w_pic窗口的open事件中添加如下脚本

isfullscreen = true
oldheight = p_1.height
oldwidth = p_1.width

④ 在w_pic窗口中添的Resize事件中添加如下代码

p_1.setredraw(false)

if isFullScreen then
	p_1.x = 0
	p_1.y = 0
	p_1.resize(newwidth,newheight)
else
	p_1.resize(oldwidth,oldheight)
	
	integer ax,ay
	
	ax = (newwidth - oldwidth) / 2
	if ax < 0 then ax = 0
	ay = (newheight - oldheight) / 2
	if ay < 0 then ay = 0
	
	p_1.x = ax
	p_1.y = ay
end if

p_1.setredraw(true)

五、编写w_main窗口代码

① 在w_main窗口中添加实例变量

w_pic               mdipicture
string       mdiPictureName
boolean     mdiIsFullScreen

② 在w_main中定义如下函数

setpicture (string as_picture,boolean as_isfullscreen) returns (none),具体代码如下

mdipicturename = as_picture
mdiisfullscreen = as_isfullscreen

if isvalid(mdipicture) then 
	mdipicture.init(mdipicturename,mdiisfullscreen)
	mdipicture.resize(this.width,this.height)
end if

③ 在w_main窗口的Resize事件中添加如下代码

if isvalid(mdiPicture) = false then
	opensheet(mdipicture,this)
	mdipicture.init(mdipicturename,mdiisfullscreen)
	mdipicture.x = 0
	mdipicture.y = 0
end if
mdipicture.resize(newwidth,newheight)

六、编写m_main菜单代码

① 在m_main菜单的Open命令的Clicked事件中添加如下代码

w_sheet sheet
opensheet(sheet,parentwindow)

② 在m_main 菜单的Exit命令的Clicked事件中添加如下代码

CLOSE(PARENTWINDOW)

③ 在m_main 菜单的Layer命令的Clicked事件中添加如下代码

parentwindow.ArrangeSheets ( Layer!  )

④ 在m_main 菜单的Cascade命令的Clicked事件中添加如下代码

parentwindow.ArrangeSheets ( Cascade!   )

七、exampleapp应用Open添加如下代码

①开发界面左边的System Tree窗口中双击exampleapp应用，在其Open事件中输入如下代码

OPEN(w_main)
w_main.setpicture("back.bmp",true)

② 在根目录下准备back.bmp图片

八、运行程序

经过上面一堆操作，代码编写后。来检验一下我们的劳动成果

本期内容到这儿就结束了， ★,°:.☆(￣▽￣)/$:.°★ 。 希望对您有所帮助

我们下期再见 (●’◡’●) ヾ(•ω•`)o