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

用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
黑莓47亿美元收购的背后 微软或成最大受益者 搜索大战升级:360搜狗相互起诉对方不正当竞争 诺基亚将于10月22日发布6款新产品 平板Lumia 2520等 从17美元到50美元 Facebook股价上涨背后的两大关键 12个理由:为什么我会认为Android比iOS 7好! AMD推 &quot;Mantle&quot; API 欲释放GPU全部潜能 Salesforce架构:日事务过13亿,2.4万TPS的数据库峰值 久违的iOS,新鲜的SDK,豌豆荚发布云相册 喜大普奔:谷歌15岁了,生日快乐! 传福特CEO Alan Mulally目前最有希望执掌微软 微软计划将WP8和Win8应用商店合并?太好了! 响应开发者要求:Kinect for Windows SDK 1.8发布 OpenStack基金会BD总监:希望有更多的中国公司加入 CTO如何避免决策失控(三):从CEO角度看CTO的应对能力 IT界需求最旺的16项技能 PMC发布8系列RAID卡 找准国内互联网企业需求 早Google一步,eBay数据中心率先搭载了火星上使用的技术 目标专利2000,技术研发人员占55%,斐讯的厚积薄发 SwiftStack CEO:分布式存储的未来 触控陈昊芝:“好声音”标王对移动游戏未来的预测 Office将更强大:微软正开发Office Reader和Office Lens 百度技术专家详解Clouda 并称计划推出相应UI解决方案 少年才俊:看IT界8个不到20岁的科技公司创始人 Oracle与Freescale展开深度合作,Java或将一统物联网? 探秘Google新搜索引擎算法Hummingbird的16个疑惑 如何在开发项目里进行自我激励! 或许很受用:苹果、谷歌和亚马逊等公司的14个怪异面试题 12款不容错过的新款jQuery插件 技术开发者如何看实时Web App开发框架? 高薪技术排行:大数据居首,苹果相关次之,Java、C等相去甚远 谷歌开发网络跟踪新技术:AdID将取代第三方Cookie 请教一下:站点服务器上的服务扩咱展不兼容怎么解决啊,我要疯了。 关于pb调chm格式文件的问题?? to killerdanny 急需解答 关于ActiveX DLL的问题,希望高手帮助 关于文件操作的问题 关于installshield更改所打包的应用程序的ICON的问题!急!!! 请问谁那里有页面规范、代码规范、SQL规范?重金求购 欲寻求项目来作(报酬多少无所谓)!!! 请问各位大虾,在DELPHI中EXE文件的调用方法? 菜鸟问题:忘了如何定义几位的变量?谁能告诉我,谢谢! 如果我要在window.showModalDialog 打开的页面中返回一个值,或者在被打开的页面中改变打开打开者中的某属性该怎么做? 关于木马程序的设计! 新手的问题(关于成员函数使用的位置???) 谁知道那里有ado教程 请高手介绍点用perl操纵mysql的经验和方法,不胜感激 about BCB 的数据库开发问题 请大家详细说一下SQL Select数据源的具体使用方法,书上说的太简单了,用SQL Select数据源建立的数据窗口为什么不能进行增加、删除操作,还不让修改,愁啊! 诸位:这个显示隐藏工具栏状态栏的代码有三处错,可我不知为什么???以指出 怎么将ACCESS2000表中的内容导入到SQLSERVER数据库中 我想把LOCAL声明改为.data? 可不行,为什么? .net似乎对组件编程的支持很强?就是说,似乎省区了很多繁琐的细节? 各位有人可以告诉我怎么实现SMTP用户验证吗? 大家有用这个软件吗?有的话请写下你使用的感觉,有什么不足? CoolSoft HTML Optimizer 谁那里有页面开发规范,重金求购 帮助中HTML文件的链接问题!!! asp.net是否可以用任何一种vs.net语言? 请教---------一个函数返回指针值的问题!!!! 如何可以筛选出被修改过的数据记录。。。。。。 如何在广域网上实现SOCKET通讯,与局域网有什么不同? invocation在Java中怎么翻译啊? oracle中增量导数据的问题!! 过多的异常捕捉会影响程序性能吗? 二个form时怎样用request来收取数据? 在sybase里健好的表如何从新修改? 一个小问题,这个变量是什么类型的??? 使用通讯控件的疑惑 怎样实现在文本文件中修改某一行的其中字符串 Nokia MobileSet中如何让手机识别中文? 注册表坏了怎么办? 大哥们,能否告诉小弟,在 ms sql server2000中如何修改 sa 用户的口令 我的超星不能用了!!! 十万火急:PDF文件修改 大哥们,能否告诉小弟,在 ms sql server2000中如何修改 sa 用户的口令.. 作为初学者,每天的问题太多了?帮我看一下下面的小问题 我上午53,下午58.该不会下马吧????/我相知道什么时候才能知道是否已经Pass,什么时候下证? 有关DELPHI6中使用SKINENGINE??? C++ Builder中多国语言的问题 在哪下载到Exchange 2000 Server Resource Kit? 快捷方式损坏怎样修复? bluesky069(菜鸟一族)你帮助我把那个PBL放到蛛蛛的信箱好不好呢?让大家都可以下在的! 关于图形在格点上平移的小学数学题,越多越好 关于仰角及锐角三角比的应用.如图,在地面A处看一竖直在高台上铁塔PQ的顶点P的仰角为45°,朝铁塔方向前进12米到达B处,又测得P的仰角为60°,Q的仰角为30°,求铁塔PQ的高度. .从A处测得B处的俯角α=18°11′,那么从B处测得A处的仰角β=______. 导线 电源 开关 用电器的作用分别是什么 【初三数学】在地面上一点,测得一电视塔尖的仰角为45°,沿水平方向,再向塔底前进am,在地面上一点,测得一电视塔尖的仰角为45°,沿水平方向,再向塔底前进am,又测得塔尖的仰角为60°,那么电视 请问水箱为2000L容量的太阳能热水器需要多大功率的电加热(冬季或阴天使用)办公楼用的大型太阳能,集热管加独立水箱,2000L的,请问需配置功率多大的电加热,一年大约消耗多少度电?(非电 在电源、用电器、导线、开关中.提供电能的是( ) 消耗电能的是( ) .而开关的作用是( ) 导线直接接在电源两极上,电流不经过用电器的电路叫什么? 看看这个图里面有几个正方形?最好有个公式解释. 1.用导线把用电器的两端直接连接起来,叫做用电器短路.2.用一根导线将电源的两极直接连接起来,叫做电源短路如果配上图就好了 导线直接接在电源两级上,电流不经过用电器的电路叫什么 铁跟硫酸铜反应化学式 石灰水溶质的化学式 为什么串联电路中用一根导线把用电器两端接在一起,电流不通过用电器? 水罐电加热什么方式好 从能量角度分析,电源( )电能,用电器( )电能,开关( )电能,导线( )电能 是用导线直接连接用电器两端?那为什么这个电路图不是短接?为什么电流不会经过?附图 (a+b+c)^2=a^2+b^2+c^2+2ab+2ac+2bc 请问2ab是哪来的啊! 澄清石灰水的化学式 一个电路中可以没有开关吗,只有一个用电器和电源导线 铝与硫酸铜反应化学式 图和题目在这里说明理由 几个溶液中溶质的化学式1、氯化钠溶液2、锌和过量的稀硫酸充分反应的溶液3、过氧化氢溶液4、镁和稀硫酸恰好反应形成的溶液————————————————————————溶液的 家里水龙头放1小时有多少水 平移的定义是什么? RT三角形ABC的斜边BC为一边在三角形ABC的同侧作正方形BCEF 设正方形的中心为O 连接AO 如果AB=4 AO=6根号2 那么AC的长?最上面B 最左C 最右F 最下E 中间 O 左上是 A 写溶液中溶质的化学式食盐水 澄清石灰水 过氧化氢溶液 稀盐酸 浓硫酸 白磷的二硫化碳溶液 铁与硫酸铜溶液恰好完全反应后形成的溶液二氧化碳是碳酸溶液的溶质吗?蔗糖水属于溶液的根本 平移的特征定义 在△ABC中,∠BAC=90°,AB=AC,P是△ABC内一点,PA=2,PB=1,PC=3,求∠APB的度数. 写出下列溶液中溶质的化学式(1)硫酸铜溶液(2)酒精溶液(3)澄清石灰水(4)稀盐酸(5)锌与盐酸恰好完全反应后的溶液(6)生理盐水 生理盐水的化学式 先看清条件,再想想作辅助线. 关于俯角和仰角的问题1.在高为200米的高楼楼顶分别测得一建筑物的顶部和底部的俯角为45°和60°.求建筑物的高度(图是自己画的)2.如图,某人在A出测得铁塔PQ的塔顶P的仰角为α,此人向铁塔 内阻到底是用电器、电源内部的电阻 还是导线的电阻? 在离旗杆20m的地方用测角仪测得旗杆顶的仰角为α,如果测角仪高为1.5m,那么旗杆的高度为____(用含α的三角函数表示) 根据密度 比热容 时间 怎样算功率? 生活中有哪些平移现象 电流过大会引起火灾:在家庭电路中各用电器________联,如果多个用电器同时使用,电路中总电流__________,超过_______和 所能承受的最大电流时,会因产生热量过多,温度过高而引起火灾. 锌与盐酸反应的化学式是? 在日常生活中,你看到过的平移现象有 、 、 、 ;旋转现象有 、 、 、 .平移 升旗杆上的旗、电梯上的人、传输带上的物品、推拉门、推拉窗 旋转 旋转木马、摩天轮、电风扇、转盘、方向盘 家庭电路中的用电器电功率过大,容易发生火灾.这是为什么 写出下列反应后所得溶液中的溶质、溶剂(用化学式表示)将铁钉投入稀盐酸中恰好完全反应后所得的溶液______、______;将铁钉投入过量硫酸铜溶液中,完全反应后所得的溶液________、________;生 生活中哪些是平移现象不要让我去自己查的,要完整. 家庭电路中多个用电器同时使用,容易导致接线过热,甚至引起火灾,请你利用所学过的电学知识解释其中的道理 如果电加热效率是80% 那剩下的20%去哪了?我是说剩下的20%能量去哪了 观察生活周围各处,指出几个平移现象,并加以描述 关于俯角与仰角怎样求OC?OC/tan32°-OC/tan60°=35 电加热和热泵加热那个效率高用电热管或者PTC加热,和用制冷剂的热泵加热,那个效率高?高多少?那个能耗小,小多少?敬请赐教.我知道一个是将电能转换成热能,另一个是传输热能,好似卡诺机,但 日常生活中有哪些平移现象? 电路中用电器被短路 此时这个用电器在电路中相当于导线?教哈 若从点A看点B的俯角为35°10',则从点B看点A的仰角应为多少度 在生理盐水中,它的溶质(化学式)是什么? 将两个用电器串联在电路后再用导线连接其两端是否会短路 某人A看B仰角为30°,那么从B看A的俯角为什么? 如图,折线AOBC是一段围墙,一根5米长的绳子的一端拴在O点处的柱子上,另一端拴着一只小羊.(1)如果OA=6米,OB=3米,BC=4米,∠AOB=90°,∠MBC=60°,求小羊活动的最大区域面积.(π取3结果精确到0.1平 为什么电流优先通过导线而用电器被短路所谓的路线较为“平坦” 老师讲 电流是聪明的 从A处望B的仰角为a 从B处望A的俯角为b 则a,b关系为 平移后的图形是实线还是虚线 小河对岸有一铁塔ab在c处测得塔顶A的仰角为30°面对铁塔前进20米到达D处,测得塔顶A的仰角为45°,求铁塔的高度着急Q V Q 从A处望B处的仰角为a,从B处望A处的俯角为b,则a,b的关系是我知道A+B=90度,但我想知道具体的过程和最好有图解
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn