用VisualBasic設計窗體背景花紋

2019-11-18 17:50:06

字體：大中小

來源：轉載

供稿：網友

->在開發軟件過程中，界面的美觀程度是軟件商品化程度的一個重要因素。本文介紹一種窗體背景花紋的實現方法，為此，可以方便靈活地設計出富有立體感的美麗的背景。
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.窗體主程序：
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->