用VisualBasic设计窗体背景花纹

在软件开发过程中，界面的美观程度是软件商业化的重要因素。介绍了一种窗口背景图案的实现方法，可以方便灵活地设计出具有立体感的漂亮背景。
1。用以下属性创建一个新的窗体form 1:
Caption = "背景图案的实现"
Borderstyle=3(否，最小化按钮)
2。构建一个网格控件Grid1，它的位置和大小将在程序中设置(和Form1一样大)。该属性为:
Enabled=False(焦点不会落在网格控件Grid1上)
Fillstyle=1(更改所有单元格文本属性)
Fixedcols=0(无固定行)
Fixedrows=0(无固定列)[/br/ Gridlines=False(网格线不可见)，
Visible=True
3。建立一个图像控件Picture1，程序运行时将背景图案的基本图案放入其中。属性为:
Visible=False(不可见)
Autosize=True(自动调整大小)
4 .在控件中添加Sheridan3DControls，选择三维命令按钮SSCommand，设置两个按钮:
SSCommand1。Caption= "Exit"
SSCommand2。Caption= "Change the background "(显示不同的背景图案)
他们的属性图片可以调用与背景相同或不同的图案，即使你使用普通的命令按钮控件命令，但是命令按钮没有背景图案。
5。建立背景图案形成子程序:
DimpictfileAsString '位图文件名
dimfilepathstring '文件路径
subbackpict(pictfile)
picture 1 . scale mode = 3
1 .形式。' scale mode = 3
picture 1 . picture = load picture(pictfile)
'网格控件覆盖整个窗体背景
Grid 1 . top =-1
Grid 1 . left =-1
Grid 1。Width=Width
grid1Height=Height
grid1。Cols=Int(Form1。缩放宽度/图片1。ScaleWidth)1
grid1。Rows=Int(Form1。比例尺高度/图片1。ScaleHeight)1
'所有单元格大小都等于基本模式大小
for I = 0 togrid 1 . cols-1[/Br/]for j = 0 togrid 1 . rows-1[/Br/]grid 1 . col width(I)= picture 1 . scale width . 15[/Br/]grid 1 . row height(j)= picture 1 . scale height * 15[/Br/]nextj[/Br/]nexti[/Br/]'选择所有单元格[/Br/]主窗体程序:[ PrivateSubForm_Load()
'获取正在运行的程序的路径名，后面跟一个反斜杠
IfRight(App。Path，1)"然后
file path = app . path & " "
else
file path = app . path
endif
'表单最初显示由Tiles.bmp基本图案组成的背景
Pictfile = " c:window stiles . BMP "
back PICT(Pictfile)
end sub
7 .退出程序命令按钮:
privatesubsomand1 _ click()
End
End
8 .演示不同的底纹图案:本文选取了WindowsTiles.bmp的图示，读者也可以选择其他喜欢的图形。代码如下:
privatesubcomand2 _ click()'交替演示两种背景图案
if pictfile = file path & " PICT 1 . BMP " then
pictfile = " c:window stiles . BMP "
else[/br pictfile = file path & " PICT 1 . BMP "
EndIf
back PICT(PICT file)
end sub