说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用Visual Basic窗体背景花纹的实现

HTML文档下载 WORD文档下载 PDF文档下载
用Visual Basic窗体背景花纹的实现
作者:曹秀英
我 们 在 开 发 软 件 过 程 中, 为 提 高 软 件 的 商 品 化 程 度, 感 觉 到 界 面 的 美 观 程 度 是 一 个 软 件 能 否 获 得 成 功 的 一 个 重 要 因 素, 我 们 仔 细 研 究 了 一 些 成 功 的 商 品 化 软 件, 从 这 些 软 件 上 可 以 看 到, 程 序 窗 口 背 景 能 显 示 出 非 常 美 丽 的、 富 有 立 体 感 的 花 纹。 而 采 用Visual Basic 3.0 或4.0 进 行 窗 体 设 计, 若 只 按 照 系 统 提 供 的 功 能, 只 能 从 有 限 的 几 种 颜 色 中 选 择 一 种 颜 色 或 采 用 程 序 绘 制 一 些 简 单 的 线 条。 而 想 实 现 立 体 感 很 强 的 纹 理 图 案, 一 般 只 能 采 用 窗 体 的PICTURE 属 性 调 用 位 图 文 件, 使 用 这 种 方 法 实 现 有 许 多 缺 点 , 其 一 是 窗 体 大 小 受 位 图 大 小 的 限 制, 调 整 起 来 麻 烦, 不 具 有 通 用 性 和 灵 活 性; 其 二 是 浪 费 资 源, 因 为 花 纹 图 案 基 本 上 是 重 复 图 案, 采 用 与 窗 体 同 样 大 小 的 位 图 是 一 种 浪 费。

下 面 介 绍 一 种 窗 体 背 景 花 纹 实 现 的 方 法。 在 窗 体 上 建 立 一 个 网 格 控 件, 设 定 网 格 行 不 可 见, 去 掉 固 定 行 和 固 定 列, 用 程 序 实 现 网 格 控 件 与 窗 体 同 样 大 小, 并 随 窗 体 大 小 的 改 变 而 改 变。 然 后 设 计 一 个 花 纹 图 案, 形 成BMP 位 图 文 件( 本 文 程 序 使 用 文 件Pict1.bmp), 或 者 从 其 它 图 象 中 截 取 一 段 图 案, 也 可 以 利 用Windows 系 统 提 供 的 图 案( 如c:\windows\Tiles.bmp), 将 其 调 入Picture 控 件。 设 定 网 格 的 每 个 单 元 与 该 图 案 大 小 相 同, 使 单 元 的 数 量 正 好 覆 盖 整 个 窗 体 背 景, 再 将 所 有 单 元 均 显 示 该 图 案。 通 过 子 程 序Backpict() 实 现 以 上 过 程, 不 论 图 案 大 小、 窗 体 大 小, 程 序 都 能 自 动 调 整 网 格 控 件 大 小 和 网 格 单 元 大 小 及 单 元 数 量。 该 程 序 在Visual Basic 4.0 上 调 试 成 功。

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()
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. 演示不同的底纹图案
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
缺省值和可选参数 -VB资料 确定当前 WIN95 的启动状态-VB资料 让TextBox的输入具备overwrite(覆盖)的功能 -VB资料 让密码轻松显示 -VB资料 让文本框输入完后,直接跳入下一行 -VB资料 VB如何编制带有不定个数参数的过程。 VB如何充分扩充VB功能 VB如何传递不固定个数的叁数? VB如何打开和关闭光驱门 VB如何导出收藏夹到文件或者导入文件到收藏夹 VB如何得到磁盘上剩余空间的值 VB如何得到应用程序的资料! VB如何调用chm格式的帮助文件 VB如何调用控制面版中的应用程序 VB如何动态更新数据报表 VB如何改变 NT 预设的打印机? VB如何改变 Windows 预设的打印机 VB如何关闭其他程序 VB如何过滤键盘录入 VB如何获得Windows95已经运行的时间 VB如何检测左右键同时按下? VB如何检查您的电脑是否打开 ActiveDesktop? VB如何将程序建立成“启动”文件夹的捷径? VB如何将程序建立成「启动」资料夹的捷径。 VB如何结束 Shell 所启动的程序? VB如何拦截键盘输入 如何判定VB调用的一个EXE程序已经结束. VB如何判断某一个Drive是否为光碟机? VB如何清空回收站? VB如何取得汉字的区位码 VB如何去优化你的VB程序 谁是雍亲王,出来说话!!! 在WSAD5.0里怎么添加类型为MYSQL的数据源 高手们,帮帮我噢(解决立刻给分) 全中国程序员联和起来。 如何在web的FORM1模式下画一条线段 界面贴图问题 为什么我用Server.MapPath(""),返回不了任何东东? 上手指路,高分相送 asp怎样连到SQL Server 2000?给100分,在线等 ASP.NET和SQL 哪位兄弟有用asp.net做的OA完整的例子...大家快来.. 关于dllhost占用系统资源的问题! Kylix是否和Delphi一样有RTF控件可以处理丰富文本? 小弟想考程序员!各位大哥指点一下嘛!有要考的交流一下嘛! 查询条件的问题?? 从事共享软件开发的进来谈谈做共享的辛酸好吗? TListView中某一SubItem怎末实时更新?在线等。。 http://www.000163.com/的空间能不能信得过? 请帮忙哟,在线急等 asp.net下如何用c#编写程序实现调用数据库中的多个表显示在datagrid 如何调用存储过程来删除表中的列名???? 给一个变量赋空值的问题 如何在DirectDraw显示Edit,输入文字?? 贴子回复次数大于跟给分次数是什么意思啊?让不让结啊?? 结交delphi爱好者! 请各位高手给我指点一下方向? 如何在Sybase数据库中获得刚插入的那条记录的主键? 怎样获得菜单项(menuitem)名? 简单问题 请问如果有一个dll文件,我想知道里面有什么函数,但我又没有说明书,有什么工具么? 报表设计器怎末没有在外接程序菜单中显示出来呀?? 如何知道选哪个? 急,如何将图标保存在一个数组中,并将它显示出来? struts配制数据源中如何指定url编码? 在csdn设立开放源代码的项目 妈的!等咱有了钱... zt 请问那位大哥有在linux用mysql管理前端啊 client script动态改变表单的问题 我从网上下载了一个例程,可是太大了,不知道从哪里开始读 如何能在程序的线程被kill的时候将定义的变量写入文件保存 有做过图书馆管理系统的请进(VB+SQL Server)C/S结构 请问这样一行代码是什么意思? 简单问题给100分 在csdn如何改变字体,还有,如果不必自动登陆? 关于创建共享库(.so)的问题,高手帮忙 关于如何限定一个文本框的数据类型 超出一个月未结贴的名单公布 用DATAGRID的绑定列能传一个ID给下一下FROM吗? 模板应用时出现的图片不能显示出来的问题? 这么简单的问题 就20分吧 郁闷...辞过职的人帮帮我 I kinda dig it International confidence 截距有正负呗? 伟大、朴实、隐蔽、搜索的近义词是什么 人体哪些部位的长度具有特殊关系 急. 什么是数据完整性?一般包含哪三类数据完整性?分别使用什么完整性机制来保证? "I kinda dig it ."和"Beat the hell out of me. 中国宫廷画和文人画在中国美术史上所起的作用和不足之处 如何用封锁机制保证数据的一致性 一个黄鳝洞有几条黄鳝 婷字怎么组词 2013年福州初一历史复习题纲,要全的,发文件也可以. 如何辨别野生黄鳝与饲养的黄鳝?菜市场卖黄鳝有野生的也有饲养的,但是不知道野生的和饲养的有什么外观上的差异? “婷”字怎样组词? 谁能为我描述一下中国法治的现状,发展进程,发展过程中的优点和不足之处.如题,要写一篇相关的论文. 如何在稻田里找黄鳝洞 2010年世界经济不稳定,不确定因素主要有哪些 劝学原文是什么琵琶行原文是什么 师说原文是什么 一辆四轮车共行120尺,则前轮比后轮多转6圈,若把前轮的周长扩大1/5,再按原路行驶,则前轮比后轮多转4圈,问前后轮周长各多少? 婷组词()婷或婷()规范练习急用! 腾讯客服电话人工台号码多少? 俺今天下午上啥课?有知道的么? 婷怎么组词?一定要在今天 有关我国破产法不足之处 一般情况下现在上到第几课了?课文名是? 2010年世界经济存在哪些不稳定不确定因素 如何用天文望远镜我有个天文望远镜 是我哥给的 我全装好了 黑呼呼的一片什么都看不见 怎么弄啊 哥哥在家的时候他弄好我看过月亮 但是只能看见月亮吗 什么样的才能稍微看清点其他星星 如图,竖直放置的螺线管与导线abcd构成回路.导线所围区域内有一垂直于纸面向里的匀强磁场,螺线管下方水平桌面上有一导体圆环.当导线abcd所围区域内磁场的磁感应强度随时间按图中哪一图 ‘婷’能组什么词 猜一动物 物理怎样学才更简单? 螨虫是什么,长什么样,大小如何,在人身体的哪一个部位?我想弄一点,咋弄? 猜一种动物夫子仁道儒子牛 龟舞蛇腾苍海游 长眠灵洞紫气生 玄妙佳作闯九州 谁能教教我微元在物理解题中的应用?rt 看看这个是什么动物.看到朋友发的,有谁知道叫什么 唱歌时身体哪个部位发生才是正确的?.如何能加强?如题. 教我解答 大家看看这是个什么动物? 精细的近义词是什么? 谁能教教我这道题? 好的答案给好评 哪位能告诉我只是一种什么动物, 根的生长主要依靠分生区的什么和伸长区的什么 我买的警用手电筒,为什么用了几个月后射出来的光斑中间有个黑圈圈,而且还越来越大. which什么意思 分生区和伸长区使根生长的机理有何不同 萧燕上午八点半从家出发去离家时二千米的外婆家.10:30 行全程2/5按照这样的速度,小燕14:00之前能到家吗?把一百人分成四队,第一队人数是第二队的3/4,第一队是第三队的5/4,第四队有多少人? 视频里看到的,有谁知道这个是什么动物嘛? 能够使根生长的是分生区还是伸长区? 警用手电甩一甩灯泡为什么有声音? 求视频,关于动物的猎豹奔跑的视频就像网址的视频那样.要慢动作的 清晰 超过10(20)秒 +10(20)分 天文望远镜怎么用? 杠杆的画法一找---二画---三作--- 大家看看这是什么动物 反写一路上影子总跟着我它为什么会变来变去 物理杠杆回答技巧在考试时,遇到问调节杠杆在水平位置平衡,其目的是?如何辨别填瞎弄出杠杆自身重力对实验的影响或便于在杠杆上直接读出力臂的大小 大家看看这是什么动物`` 急!我们正在讨论 请大家尽快给出答案谢谢了!原来是可蒙犬```真遗憾啊``` 昔日、伟大、隐蔽、谨慎、朴实、搜索的近义词是什么?快! 第四题,要说明 请大家看看这个是什么动物?好可爱的 什么是数据一致性和完整性,如何保证 企业被强拆讨说法遭踢皮球 对方扬言:美国在罗马尼亚反导基地开工建设孟全国大罢工第二天又有4人死亡长兴废旧铅蓄电池“涅槃重生” 废水处粤高院判美IDC公司构成垄断 赔偿华俄外长:俄愿意与美国就反导问题寻找折约40名尼日尔移民因汽车抛锚在撒哈拉北海道频现“熊出没”都是橡树减产惹的日本滋贺县调查显示老年人受虐情况多来古老东京车站鲜花生气勃勃 花团锦簇画俄官员:与中国免签证旅游交流能避免非英国男子涉嫌侵入美政府计算机系统遭逮英国男子涉嫌侵入美政府计算机系统遭逮内蒙古鄂尔多斯官方回应当地近三成煤企上海自贸区满月:实施12项开放措施 IPCC中国宣讲会:21世纪末全球气美国多名政客支持监听行为 称总统不必西班牙外交部召见美国大使 要求其解释韩国陆军前方哨所一士兵中枪身亡 军方澳大利亚一墓园将举行”恐怖”派对 迎冯小刚好莱坞星光大道留手印 成内地导无证废品站被端 氧化厂停产整改既练“硬功底” 又锻“软实力”三大难题拖了工程后腿大关官员性侵幼女案最新进展:昭通检方下午来学脊柱侧弯如何矫正每日碎碎念余姚“穿高档鞋让人背”干部被免职明年3月书法课将进小学和初中一套福利房让离婚12年夫妻闹上法庭处在“挣扎期”的云南养老产业17名中国船员遇险获救半夜回家 小伙莫名遭人打昏老总购280万元房屋行贿官员嫌小要4烧烤摊上 父子俩被人围着砍2013年度卫生执法监督专项稽查工作明日起 云秀路片区停水12小时青年被杀 引发莫斯科千人骚乱全省主要城市天气预报公交车上长出菌子 网友感叹“不愧是植40人获释 95人遣送回国广西谋建中越跨境合作区
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘