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

用Visual Basic设计窗体背景花纹

HTML文档下载 WORD文档下载 PDF文档下载
用Visual Basic设计窗体背景花纹
山东省德州市德城区工商银行 胥智强
德州市立医院 曹秀英

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

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
Google Cast SDK正式版发布:自动适配,修复Bug 频受红杉资本青睐,商业智能初创公司Birst靠的是什么? 2013百度世界大会要点精华回顾 WebApp开发框架Clouda、轻应用... 对新手有用的JavaScript开发小建议 磨剑三载,且看从容应对14.3万TPS的Twitter是怎样炼成的! 兰亭集势:被高估的“长尾式采购” 谁说WP手机不行?微软称已成拉丁美洲第二大移动平台 Windows 8之父Steven Sinofsky加盟风投机构A16Z SDCC 2013演讲议题抢先看 腾讯、阿里、支付宝、网易…… [开源推荐]Google开源基于Deep Learning的word2vec工具 【开源专访】DWZ团队:致力打造最简单的Web前端开发方式 Linux黑客车库创业:服务器操作系统CoreOS颠覆互联网 时间序列数据处理的角逐:MongoDB vs. Cassandra 移动周报:Sphinx游戏引擎的前世今生 联想K900评测:英特尔X86兼容性明显提升(组图) 小米手机-HAXLR8on硬件黑客马拉松:32小时的创客狂欢 鲍尔默宣布下台后,微软应该做好这几件事情 IGT张奇伟:从空间物理到博彩游戏研发 Bing即将推出新功能 用户可直接在搜索结果页购买商品 【开源专访】郑晔谈Moco框架的前世今生以及Java编程之道 CTO俱乐部第108期下午茶:电商在微信上的现状与未来 SDCC 2013讲师议题确定 门票即将售罄(图) 简化工作流程,10款必备的HTML5开发工具 六大领域考评鲍尔默微软掌舵能力,只一“C”尔? 剥离自雅虎的Hortonworks:低调发展,三年融资近1亿美元 Google的中国梦如何死于傲慢与不得力公关 [回顾]昨日黄花,那些被人们遗忘的11个操作系统 管理企业级API的7个最佳实践 Java 与 .NET 的平台发展之争 英特尔正在开发3D深度感知摄像头 可读出人类的情绪等 从数据平台到运营平台:国产开源移动统计Cobub Razor发布0.6版本 急等答案 ,请问数据库中 的Null和零值有什么区别,请给详细解释一下 w18ily是不是现在的这个江湖无赖? 在linux下拨号怎么自动获得dns? 菜鸟都说:这个问题太菜了! 高手请进! delphi调用VC写的dll问题 corba达人快来帮忙!!!!! 不用JavaMail能在页面上直接发信给用户吗? 图像 up有分 大哥大姐们!小弟碰见了感情问题,大家帮帮小弟好吗,郁闷中……痛苦中……这里真的有一种家的温馨,所以小弟畅谈心扉,望大哥大姐帮忙! vc6的mfc里有CUIntArray、CStringArray,为什么没有CFloatArray,自己写怎样实现? 请问fastreport破解版哪里有下载? 这是我作的jsp和bean作的程序为什么不能运行:这一次发的是运行错误的信息。 谁敢拍着自己胸口摸着良心说没有用过马甲的 麻烦了:) 如何建立一个button清空文本框? 关于在RedHat2.1As上安装Oracle9i(9.0.1)的错误问题,帮帮我吧,火烧眉毛了! 急等答案 ,请问数据库中 的Null和零值有什么区别,请给详细解释一下 用FLASHGET无法下载. 趁着各位斑竹到任,赶紧把几个悬而未决的问题提出来,呵呵! com+的调用方式 哪位大侠知道今年计算机等级考试二级C语言还是用Turbo C2。0吗?还是在Dos环境下吗?(100相赠) 关于多媒体定时器的问题,各位进来看看 session出的问题,高手请进来!! 请问,大连雅奇培训如何?请指点。。。。。。 怎样用header()做下载文件? 关于检测组合键的程序怎样写? 菜鸟问题!!!页面显示后台数据 请问软件包LEDA -- library of the data types and algorithms 哪里有下载的? 如何获得当前页面中的所有Textbox控件集合? 如何对两个表操作???谢谢! java的程序在写Dreamweaver 4里写完不可以直接用,是不是 打印的问题 DELPHI5的资源编辑器用起来很不爽,有没有好点的? 帮帮忙~~~~ 请问软件包LEDA 哪里有下载的?谢谢 ado连接远程数据库是以文件共享方式,还是c/s方式啊? 有没有工作的JAVA程序员吗? 简单的语法问题 vb还是不太会用 求教 最菜的问题 如何保存无法保存的网页? 只要每人献出一点爱,人人都能成为程序员 呵呵,又有问题了 苦恼,大家帮忙啊 关于声音处理的一个问题 求英文资料,急!!! 帮忙解释一下程序,谢谢:) 怎样实现这样的存储过程?高手快来! 用过websnap的进来看一下,巨简单! 调试版本与发布版本的区别? 1、10克氟化钠,用多少毫升水正好溶开成液体?再少了就溶不开了. 2、用双氧水多少能把10克氟化钠溶化成水 如何保证试验仪器设备状态正常 蝙蝠是什么动物?哺乳动物还是卵生动物? 如何理解加权平均资本成本 谁知道耐磨擦试验机的产品用途及特点? 地震中的父与子中出现:无论发生什么,我总会跟你在一起. 为什么为确定得到的是纤维素分解菌,还需要进行发酵产纤维素酶的实验,不是应该产纤维素吗? 纤维素多的食物指什么呢 青蛙和鹅用什么繁殖后代鲸鱼和人类是什么生. 纤维素能用纤维素酶水解,再供给微生物发酵制成乳酸,最后聚合制造聚乳酸吗?请说明理由,否则一律无效! 纤维素高的食物是什么 鹅用什么繁殖 设计一个实验,利用诱变育种的方法,获得产生纤维素酶较多的菌株.1、共4步骤,是什么?2、...设计一个实验,利用诱变育种的方法,获得产生纤维素酶较多的菌株.1、共4步骤,是什么?2、诱变组中菌 什么原因会发生泥石流? 为什么动物的白化种这么常见? 酒精和汽油哪个更易燃? 牙齿最多的哺乳动物 有什么简单的变废为宝的方法哦 南平市冬天最高温度 没有牙齿的哺乳动物是什么 将污染通过什么方法变废为宝呢? 为啥会发生泥石流 哺乳动物牙齿分化的意义? 从高楼相隔一秒先后释放两个相同材质制成的小球假设小球做自由落体运动则它们在空中各个时刻的间距怎样化 为何会发生泥石流? 为什么会发生泥石流?怎么导致的? 在空中的某点A,让小球自由落体,到达地面的时间为0.8s,仍在A点以vA的初速度竖直上抛小球,需要1.6s才能在空中的某点A,让小球自由落体,到达地面的时间为t=0.8s,仍在A点以V的速度竖直上抛小球, 是什么原因会发生泥石流? 人类以后会进化吗? 为什么,当绿色的光射到红纸上,纸会成黑色,而当红色的光射到绿色的纸上,纸就变成了黄色?这两个不是一样的吗麻烦说清楚点 26个字母能给组成多少个不同的4位字母 如abcd syeb 这样能组合出来多少个 为什么会发生泥石流? 地震中的父与子中心思想是什么? “自高处下落的物体,一定会落在偏西的地方”为什么不证明地球在自转? 牛顿有没有结婚 向哥哥借500元,向姐姐借500元,买双鞋花了970元,剩了30元,还姐姐10元,还哥哥10元,自己还有10元,一共990元,剩下的10元去哪里了? 有同样大小的红黄黑珠共97个,它们依次按3个红珠,2个黄珠,4个黑珠的顺序排列,第97个珠子是什么颜色? 甘肃为什么会发生泥石流 在姐姐那借500元钱在哥哥那借500元钱、买鞋花970元剩30元还姐姐10元还哥哥10元,自己剩10元欠哥哥490元欠姐姐490元490+490=980加上自己剩的10元等于990元那10元哪去了? k相邻的字母 甘肃舟区是因什么原因发生泥石流的. 生活中的摆动有哪些?诸如钟表摆动、秋千、台秤的指针,还有什么是摆动的呢? 嵊州是浙江哪个地区的 叶绿素是怎么在植物体形成的? 在台秤上放一个空的金鱼缸,然后用玻璃杯盛满水,一杯一杯地往里倒.当倒进2杯水时,台秤上的指针指向600克,当倒进5杯水时,台秤上的指针指向750克.当倒进8杯水时,台秤上的指针指向多少克? 浙江嵊州的小吃街在哪里,哪里可以逛街啊,玩一玩啊什么的,大的齐全的超市,除了国商还有哪里,麻烦地址具体点, 甘肃曲舟发生泥石流的因素有哪些?请回答者要有简明的概括力度(请混工分的敬而远之) 哺乳动物有几类 我想知道浙江嵊州市里面有没有一个叫嵊州府或嵊州庙的?我没有去过嵊州,也从来没听过嵊州这个名字,因为我是广东的,可是我梦见我去到了这个地方,里面有很多不同的菩萨,我出来看了一下 三角形的三个顶点是A(6,3)、B(9,3)、C(3,6),求它的三个内角的度数做的好,我会加分的, 九星连珠会发生什么 英文字母t 应该先写哪一笔 已知三角形顶点为A(2,0),B(-1,4),C(5,1)求三角形三个内角及面积 大肠杆菌培养及计数在对培养的大肠杆菌进行活菌计数时,发现琼脂表面有乳白色微偏暗的直径约4~5mm的菌落,琼脂底部与培养皿接触的面上有浅色较浅的白色直径约3mm的菌落,而琼脂内的菌落 把质量为m的物体从地面竖直向上抛出,抛出时物体的初动能为Ek0,物体从抛出到落回地面的过程中受到的空气阻力的大小恒为重力的0.2倍,求:(1)物体可上升的最大高度H(2)物体运动到高度 物体由静止开始自由下落,经2S落到地面,不计空气阻力 取g=10m/s^2下列判断正确的有A物体从40M的高处开始下落的B物体从20M的高处开始下落的C物体落地的速度大小为20m/sD物体落到时的速度大小 怎么用血球计数板和鉴别培养基鉴别大肠杆菌? 物体从离水平地面h高处水平抛出,落地时间的速度方向与水平面成θ角,那么,物体水平抛出的初速度是 上弦月和下弦月 色光的合成,列举.如:红加绿合成黑…… 贝卢斯科尼被爆已与28岁女友完婚偷渡客残杀5人 凸显底层华人困境普京登顶权势榜 只怪奥巴马不争气美国航班飞行中将 允许使用部分电子设莫斯科市民发起“落叶保卫战”英欲对外国购房者征重税“歧视胖子” 香奈儿艺术总监惹官司埃及多地爆发大规模反对军方游行墨西哥总统号召全民减肥印度开建“全球最高”塑像印度开建“全球最高”塑像 呼吁民众捐斯诺登找到工作 在俄社交网站上班英国检方称《世界新闻报》曾窃听哈里王“歧视胖子” 香奈儿艺术总监惹官司戴“谷歌眼镜”开车遭传讯偷渡客残杀5人 凸显底层华人困境普京登顶权势榜 只怪奥巴马不争气首个完整境外诈骗集团被批捕新一轮伊核对话可能取得重要进展奥巴马豪华座驾“野兽”细节曝光 具备印度真的脏乱差吗?撕去贴在印度身上的三分钟教学!三句话带你玩转MACD!台湾之光 华航新世代计划获德国iF设未履行完义务劳动 \"太阳花学运\"敲定政权交接仪式细节 马办:16日会两岸再次热线 夏立言:感谢大陆对台南重视灾后重建 蓝绿\"立委\"提案修静悄悄《中国花文化史》疯狂着装日老白退货洪战辉:资助贫困生、做公益,一直在用看亚欧大PK鹿死谁手郑州召开生态建设和环境治理工作动员大合肥今年端出41道“民生大餐”韩国政府:支持开城韩企渡难关爱情路上容易多曲折的面相新年理财正当时龚清概被免去国台办副主任职务加盟国安白岩松、敬一丹等点赞\"王宽家\" 史上最精彩
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘