巴彦淖尔天气30天:VB示例:用VisualBasic设想窗体背景花纹-
来源:百度文库 编辑:偶看新闻 时间:2024/05/07 05:23:44
开发软件过程中,界面的美妙程度是软件商品化程度的一个重要因素。本文引见一种窗体背景花纹的实现方法,为此,能够方便灵活地设想出富有立体感的美丽的背景。
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
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
谁会用Microsoft VisualBasic编程
谁能把vb中的示例应用程序Vbmail发给我 ?
谁能把vb中的示例应用程序Vbmail发给我?
在哪里可以找到 VB 2005 的代码示例呀?
VisualBasic程序设计课后习题
VisualBasic 6.0那里下载?
怎么样通过VisualBasic做倒极时器
电脑里的示例图片和示例音乐有什么用么?删了十部也行啊?
谁能给几个asp.net(VB)的示例程序阿
我想要一个用SQL Server数据库的简单示例,
求:用access2003做的注册登录系统数据库示例
求:用access2003做的注册登录系统数据库示例
求C++ MFC用CDC绘图的示例代码
个人简历示例
求visualbasic的下载地址
USB设想头可以在用的时候随便插拔吗?
什么牌子的设想头最好用啊?
为什么我的设想头用不起来?
用设想头录象,怎么把音乐加进去呢!
创业设想
动物园设想
运动会设想!
采访设想
为什么用QQ珊瑚虫外挂选了始终显示设想头,头像后还是没有设想头?