📄 m51.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=9>
<div align=center class=H1> <font color="#FFFFFF">Visual Basic窗体背景花纹的实现</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=76>
<p align="left"> <br>
</font></p>
我们在开发软件过程中，为提高软件的商品化程度，感觉到界面的美观程度是一个软件能
否获得成功的一个重要因素，我们仔细研究了一些成功的商品化软件，从这些软件上可以 看到,程序窗口背景能显示出非常美丽的、富有立体感的花纹。而采用VisualBasic3.0或4.0
进行窗体设计，若只按照系统提供的功能，只能从有限的几种颜色中选择一种颜色或采用 程序绘制一些简单的线条。而想实现立体感很强的纹理图案，一般只能采用窗体的PICTURE
属性调用位图文件，使用这种方法实现有许多缺点,其一是窗体大小受位图大小的限制， 调整起来麻烦，不具有通用性和灵活性；其二是浪费资源，因为花纹图案基本上是重复图案，
采用与窗体同样大小的位图是一种浪费。 下面介绍一种窗体背景花纹实现的方法。在窗 体上建立一个网格控件，设定网格行不可见，去掉固定行和固定列，用程序实现网格控件与
窗体同样大小，并随窗体大小的改变而改变。然后设计一个花纹图案，形成BMP位图文件(本 文程序使用文件Pict1.bmp)，或者从其它图象中截取一段图案,也可以利用Windows系统提
供的图案（如c:\windows\Tiles.bmp)，将其调入Picture控件。设定网格的每个单元与该图 案大小相同，使单元的数量正好覆盖整个窗体背景，再将所有单元均显示该图案。通过子程
序Backpict()实现以上过程，不论图案大小、窗体大小，程序都能自动调整网格控件大小和 网格单元大小及单元数量。该程序在VisualBasic4.0上调试成功。
1.新建窗体Form1,属性如下：<br>
Caption=“背景花纹的实现”<br>
Borderstyle=3(无最大、最小化按钮） 2.建网格控件Grid1,它的位置和大小将在程 序中设置（与Form1同样大）,属性为：<br>
Enabled=False（焦点不会落在网格控件Grid1 上）<br>
Fillstyle=1（改变所有单元Text特性）<br>
Fixedcols=0（无固定行）<br>
Fixedrows=0（无固定列）<br>
Gridlines=False（网格行不可见），<br>
Visible=True 3.建立图象控件Picture1,程序运行时将背 景花纹基本图案放入其中，属性为<br>
Visible=False（不可见）<br>
Autosize=True（自动调整大小） 4.控件中加入Sheridan 3D Controls,选取 其中的三维命令按钮SSCommand,建立两个按钮<br>
SSCommand1.Caption=“退出”<br>
SSCommand2.Caption=“更换背景”（演示不同 的背景图案） 它们的属性Picture可调用与背景相同或不同 的图案，如果使用普通的命令按钮控件Command也可，只是命令按钮无背景图案。
5.建立背景图案形成子程序： <br>
Dim pictfile As String '位图文件名<br>
<br>
Dim FILEPATH As String ' 文件路径<br>
<br>
Sub Backpict(pictfile) <br>
<br>
picture1.ScaleMode = 3<br>
<br>
Form1.ScaleMode = 3<br>
<br>
picture1.Picture = LoadPicture(pictfile)<br>
<br>
'网格控件覆盖整个窗体背景<br>
<br>
grid1.Top = -1<br>
<br>
grid1.Left = -1<br>
<br>
grid1.Width = Width<br>
<br>
grid1.Height = Height<br>
<br>
grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) + 1<br>
<br>
grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) + 1<br>
<br>
'所有单元大小等于基本图案大小<br>
<br>
For i = 0 To grid1.Cols - 1<br>
<br>
For j = 0 To grid1.Rows - 1<br>
<br>
grid1.ColWidth(i) = picture1.ScaleWidth * 15<br>
<br>
grid1.RowHeight(j) = picture1.ScaleHeight * 15<br>
<br>
Next j<br>
<br>
Next I<br>
<br>
'选定所有单元<br>
<br>
grid1.SelStartCol = 0<br>
<br>
grid1.SelStartRow = 0<br>
<br>
grid1.SelEndCol = grid1.Cols - 1<br>
<br>
grid1.SelEndRow = grid1.Rows - 1<br>
<br>
grid1.Picture = Picture1.Picture<br>
<br>
End Sub<br>
<br>
6. 窗 体 主 程 序 <br>
Private Sub Form_Load()<br>
<br>
Private Sub Form_Load()<br>
<br>
'得到运行程序路径名，路径名后带反斜杠<br>
<br>
If Right(App.Path, 1) <> "\" Then<br>
<br>
filePath = App.Path & "\"<br>
<br>
Else<br>
<br>
filePath = App.Path<br>
<br>
End If<br>
<br>
'窗体初始显示由Tiles.bmp基本图案组成的背景<br>
<br>
pictfile = "c:\windows\Tiles.bmp"<br>
<br>
backpict (pictfile)<br>
<br>
End Sub<br>
<br>
7. 退出程序命令按钮 <br>
Private Sub SSCommand1_Click()<br>
<br>
End<br>
<br>
End Sub<br>
<br>
8. 演示不同的底纹图案 <br>
Private Sub SSCommand2_Click()<br>
<br>
'两种背景图案交替演示<br>
<br>
If pictfile = filePath & "Pict1.bmp" Then<br>
<br>
pictfile = "c:\windows\Tiles.bmp"<br>
<br>
Else<br>
<br>
pictfile = filePath & "Pict1.bmp"<br>
<br>
End If<br>
<br>
Backpict (pictfile)<br>
<br>
End Sub </font></span>
<p align="left"> <br>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -