当前位置：首页 -> 技术开发 -> 程序开发 -> 用Visual Basic设计窗体背景花纹

用Visual Basic设计窗体背景花纹

时间： 2021-07-31 作者：daque

在开发软件过程中，界面的美观程度是软件商品化程度的一个重要因素。本文介绍一种窗体背景花纹的实现方法，为此，可以方便灵活地设计出富有立体感的美丽的背景。 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

用Visual Basic设计窗体背景花纹

相关推荐

推荐下载

热门阅览

最新排行