下面介绍一种窗体背景花纹实现的方法。在窗体上建立一个网格控件，设定网格行不可见，去掉固定行和固定列，用程序实现网格控件与窗体同样大小，并随窗体大小的改变而改变。然后设计一个花纹图案，形成BMP位图文件(本文程序使用文件Pict1.bmp)，或者从其它图象中截取一段图案,也可以利用Windows系统提供的图案（如c:\windows\Tiles.bmp)，将其调入Picture控件。设定网格的每个单元与该图案大小相同，使单元的数量正好覆盖整个窗体背景，再将所有单元均显示该图案。通过子程序Backpict()实现以上过程，不论图案大小、窗体大小，程序都能自动调整网格控件大小和网格单元大小及单元数量。该程序在VisualBasic4.0上调试成功。
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,选取其中的三维命令按钮SSCommand,建立两个按钮
SSCommand1.Caption=“退出”
SSCommand2.Caption=“更换背景”（演示不同的背景图案）
它们的属性Picture可调用与背景相同或不同的图案，如果使用普通的命令按钮控件Command也可，只是命令按钮无背景图案。
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()
PrivateSubForm_Load()
得到运行程序路径名，路径名后带反斜杠
IfRight(App.Path,1)<>"\"Then
filePath=App.Path&"\"
Else
filePath=App.Path
EndIf
窗体初始显示由Tiles.bmp基本图案组成的背景
pictfile="c:\windows\Tiles.bmp"
backpict(pictfile)
EndSub
7.退出程序命令按钮
PrivateSubSSCommand1_Click()
End
EndSub
8.演示不同的底纹图案
PrivateSubSSCommand2_Click()
两种背景图案交替演示
Ifpictfile=filePath&"Pict1.bmp"Then
pictfile="c:\windows\Tiles.bmp"
Else
pictfile=filePath&"Pict1.bmp"
EndIf
Backpict(pictfile)
EndSub->
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
