用Visual Basic设计窗体背景花纹

发布: 2007-7-14 20:28 | 作者: 佚名 | 来源: 网络转载 | 查看: 17次 | 进入软件测试论坛讨论

在开发软件过程中，界面的美观程度是软件商品化程度的一个重要因素。本文介绍一种窗体背景花纹的实现方法，为此，可以方便灵活地设计出富有立体感的美丽的背景。
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. 控件中加入Sheridan 3D Controls, 选取其中的三维命令按钮SSCommand, 建立两个按钮：
SSCommand1.Caption=“ 退出”
SSCommand2.Caption=“ 更换背景”（演示不同的背景图案）
它们的属性Picture 可调用与背景相同或不同的图案，如果使用普通的命令按钮控件Command 也可，只是命令按钮无背景图案。

5. 建立背景图案形成子程序：
Dim pictfile As String ’ 位图文件名
Dim FILEPATH As String ’ 文件路径
Sub Backpict(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
’ 所有单元大小等于基本图案大小
For i = 0 To grid1.Cols - 1
For j = 0 To grid1.Rows - 1
grid1.ColWidth(i) = picture1.ScaleWidth * 15
grid1.RowHeight(j) = picture1.ScaleHeight * 15
Next j
Next I
’ 选定所有单元
grid1.SelStartCol = 0
grid1.SelStartRow = 0
grid1.SelEndCol = grid1.Cols - 1
grid1.SelEndRow = grid1.Rows - 1
grid1.Picture = Picture1.Picture
End Sub

6. 窗体主程序：
Private Sub Form_Load()
’ 得到运行程序路径名，路径名后带反斜杠
If Right(App.Path, 1) <> "\" Then
filePath = App.Path & "\"
Else
filePath = App.Path
End If
’ 窗体初始显示由Tiles.bmp 基本图案组成的背景
pictfile = "c:\windows\Tiles.bmp"
backpict (pictfile)
End Sub

7. 退出程序命令按钮：
Private Sub SSCommand1_Click()
End
End Sub

8. 演示不同的底纹图案：本文选取了Windows+Tiles.bmp 图，读者也可以选取自己喜爱的其它图形。代码如下：
Private Sub SSCommand2_Click()注释：两种背景图案交替演示
If pictfile = filePath & "Pict1.bmp" Then
pictfile = "c:\windows\Tiles.bmp"
Else
pictfile = filePath & "Pict1.bmp"
End If
Backpict (pictfile)
End Sub