[VBA编程中打开、关闭窗体]在一个程序中往往包含多个窗体，窗体在程序中用代码互相关联，形成了一个有机的整体；可见，窗体操作在VBA中是很重要的。 窗体操作有两个重要的命令：DoCmd．openform(打开窗体)和DoCmd...+阅读

在开发软件过程中，界面的美观程度是软件商品化程度的一个重要因素。本文介绍一种窗体背景花纹的实现方法，为此，可以方便灵活地设计出富有立体感的美丽的背景。

1.新建窗体Form1,属性如下：

Caption=“背景花纹的实现”

Borderstyle=3(无、最小化按钮）

2.建网格控件Grid1,它的位置和大小将在程序中设置（与Form1同样大）,属性为：

Enabled=False（焦点不会落在网格控件Grid1上）

Fillstyle=1（改变所有单元Text特性）

Fixedcols=0（无固定行）

Fixedrows=0（无固定列）

Gridlines=False（网格行不可见），

Visible=True

3.建立图象控件Picture1,程序运行时将背景花纹基本图案放入其中，属性为：

Visible=False（不可见）

Autosize=True（自动调整大小）

4.控件中加入Sheridan3DControls,选取其中的三维命令按钮SSmand,建立两个按钮：

SSmand1.Caption=“退出”

SSmand2.Caption=“更换背景”（演示不同的背景图案）

它们的属性Picture可调用与背景相同或不同的图案，如果使用普通的命令按钮控件mand也可，只是命令按钮无背景图案。

5.建立背景图案形成子程序：

DimpictfileAsString'位图文件名

DimFILEPATHAsString'文件路径

SubBackpict(pictfile)

picture1.ScaleMode=3

Form1.ScaleMode=3

picture1.Picture=LoadPicture(pictfile)

'网格控件覆盖整个窗体背景

grid1.Top=-1

grid1.Left=-1

grid1.Width=Width

grid1.Height=Height

grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth)1

grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight)1

'所有单元大小等于基本图案大小

ForI=0Togrid1.Cols-1

Forj=0Togrid1.Rows-1

grid1.ColWidth(I)=picture1.ScaleWidth*15

grid1.RowHeight(j)=picture1.ScaleHeight*15

Nextj

NextI

'选定所有单元

grid1.SelStartCol=0

grid1.SelStartRow=0

grid1.SelEndCol=grid1.Cols-1

grid1.SelEndRow=grid1.Rows-1

grid1.Picture=Picture1.Picture

EndSub

6.窗体主程序：

PrivateSubForm_Load()

'得到运行程序路径名，路径名后带反斜杠

IfRight(App.Path,1)""Then

filePath=App.Path&""

Else

filePath=App.Path

EndIf

'窗体初始显示由Tiles.bmp基本图案组成的背景

pictfile="c:windowsTiles.bmp"

backpict(pictfile)

EndSub

7.退出程序命令按钮：

PrivateSubSSmand1_Click()

End

EndSub

8.演示不同的底纹图案：本文选取了WindowsTiles.bmp图，读者也可以选取自己喜爱的其它图形。代码如下：

PrivateSubSSmand2_Click()'两种背景图案交替演示

Ifpictfile=filePath&"Pict1.bmp"Then

pictfile="c:windowsTiles.bmp"

Else

pictfile=filePath&"Pict1.bmp"

EndIf

Backpict(pictfile)

EndSub