VB中实现平铺与拉伸MDI窗口的背景图.doc

Microsoft Visual Basic 的MDI窗口虽然可以通过窗口的PICTURE属性设置窗口的背景图，使程序美化了不少。但是图片加载之后当窗口在不同的分辨率下，会出现缺口的现象，比如在800*600下设计的图片，到了1024*768下右边和下边就会出现一块空余（背景色露了出来，非常难看）。并且当窗口的大小被用户改变的时候，图片也会被载断，使原本设计的很漂亮的图片变的“惨不妨睹”；笔者在开发项目的过程中经过摸索，写出了跟 Windows 的设置桌面背景比较类似的功能。好东西不敢独享，写出来与大家共同提高。 ???????作者：崔占民??????? EMAIL：CUIZM@163.COM???????2004.6.8 ? 以下是程序代码: Option Explicit MDI窗口代码 /============================================================================\|???????????????????????????? 作者:崔占民 2003.6.21????????????????????????? ||????????????????????????????? EMAIL:CUIZM@163.COM?????????????????????????? || 添加一个MDI主窗口,一个普通的窗口,设置为MDI的子窗口(MDIChild属性设置为TRUE) || 添加一个模块,用于设置打开文件对话框的API函数及结构???????????????????????? || 在MDI主窗口中加一个菜单,菜单名为背景,其下添加四项子菜单,分别为:选择背景图, || 默认背景,拉伸与平铺,其代码如下所示???????????????????????????????????????? ||??????????????????????????????????????????????????????????????????????????? |\============================================================================/ Private Sub MDIForm_Load()On Error Resume Next??? Dim ls_tmp As String??? ??? 读取注册的设置,是拉伸还是平铺,然后设置菜单项??? ls_tmp = GetSetting(OrientZiXun, BackGround, LaShen)??? If ls_tmp = True Then??????? mnuPull.Checked = True??????? mnuLay.Checked = False??? Else??????? mnuPull.Checked = False??????? mnuLay.Checked = True??? End IfEnd Sub Private Sub MDIForm_Resize()On Error Resume Next??? frmBack.SetBack??? frmBack.HideEnd Sub 设置缺省图片Private Sub mnuDefault_Click()??? If MsgBox(您确定要清除当前背景，而选用默认背景吗？, VBQuestion + vbYesNo) = vbNo Then Exit Sub??? Screen.MousePointer = 11??? DoEvents??? ??? SaveSetting OrientZiXun, BackGround, PathValue, ??? frmBack.SetBack??? frmBack.Hide??? ??? Screen.MousePointer = 0End Sub 平铺背景Private Sub mnuLay_Click()??? mnuPull.Checked = False??? mnuLay.Checked = True??? SaveSetting OrientZiXun, BackGround, LaShen, False??? frmBack.SetBack??? frmBack.HideEnd Sub 拉伸背景Private Sub mnuPull_Click()??? mnuPull.Checked = True??? mnuLay.Checked = False??? SaveSetting OrientZiXun, BackGr