->在開發軟體過程中，介面的美觀程度是軟體商品化程度的重要因素。本文介紹一種窗體背景花紋的實作方法，為此，可以方便靈活地設計出富有立體感的美麗的背景。 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()
'得到運行程式路徑名，路徑名後帶反斜杠
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.示範不同的底紋圖案：本文選取了Windows Tiles.bmp圖，讀者也可以選取自己喜愛的其它圖形。程式碼如下：
PrivateSubSSCommand2_Click()'兩種背景圖案交替示範
Ifpictfile=filePath&"Pict1.bmp"Then
pictfile="c:/windows/Tiles.bmp"
Else
pictfile=filePath&"Pict1.bmp"
EndIf
Backpict(pictfile)
EndSub->
