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

用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
约吗?UNITE 2015 BEIJING日程全揭晓! 谷歌扩擴增App搜索結果 已抓取300亿App页面 功耗、联网与交互:可穿戴设备操作系统问题解读 李大学离职京东后:转做投资人,助传统产业“互联网+”转型 Skype Translator实现中英实时语音对话 语音翻译领域又一新突破 如何判断自己是否适合自由职业? 创造&#183;连接&#183;成就:UNITE 2015 BEIJING圆满落幕 IT互联网人才招聘市场特点:人少钱多疯狂抢? React Native并非原生 Instagram Apple Watch应用设计师:对原有App全部重新思考 腾讯网移动端H5页面设计实战分享 Kendo UI和AngularJS常见问题解析 Elevator.js:模拟电梯运行的“返回顶部”JS插件 Java,传奇的一生! 约吗?Java二十周年特别策划——寻找Java大牛! 走近英特尔软件技术王牌之师:系统技术和优化部门 新兴技术袭来,Web开发如何抉择? 新创社交平台Tsu 5周註冊用户破百万秘訣 Google Play:助力中国开发者的海外梦想 JPHP——一款基于JVM的新PHP编译器 舌尖上的CTO——小杨生煎的持续交付 《近匠》滴答清单,跨平台云同步的任务管理工具 DJI与优酷土豆战略合作:提升UGC价值,先内容再营销 Android性能优化典范(二) 从三大运营商联手 看电视游戏背后的现状 【工具推荐】Vert.x——非阻塞、高并发的编程开发框架 Google搜索在确定结果排名时会将网站的移动设备适用性作为考量因素 W3C首次发布SVG标记、SVG轮廓标准工作草案 第七届中国云计算大会 | 首批主会演讲嘉宾和议题公布(表) 安沃传媒创始人王旭东:开发者从移动广告获利的黄金时代已经来临 【舌尖上的CTO】砂锅馄饨的交付件 pb中怎样得到某个字符的asc码? 谢谢 ChangeDisplaySettings最低可以把分辨率和颜色设为多少呀? DataGrid+CheckBox的问题(查了很多例子就是解决不了) 再次提问,sql2000的问题? 请问在vbscript中怎样判断一个数,是否能被3整除 MSN Messenger5.0发送文件到MSN Messenger4.6,为什么总是连接不上? sql2000的问题,谁能知道? 100分:誰有thinking in java 2 的中文電子書和例子代碼,給我一份吧? 关于将图形放大缩小的问题. jsp后缀名大小写问题(急,在线等!) sourceforge主站上不去了,那还有比较大的sourceforge站点?最好是美国的。 如何取得一个程序的内存占用率,cpu使用率等信息呢? 如何解决MSN Messenger5.0不能发送文件给MSN Messenger4.6的问题? 怎样把时间放到数据库表里,格式需要转换吗? 文件操作,帮个忙吧? simple question 60 points wait for your picking 如何卸载rose 分虽小,结得快的啊!讨论一下…… option explicit是什么意思 大哥大姐们!看一下嘛!帮帮我! 又一次被奶牛拒掉,而且有了注册机。 simple question 60 points wait for your picking (菜鸟的问题)在EditBox中怎么换行? 超级难题 SQL如何写??? 如何让WinCE支持DVDROM 請問如何在ASP.NET中實現從客戶機上傳文件到服務器? 新手问:我声明api,但是参数里有我没有定义的类型,pb报错,怎么办 关于Tclientdataset中commandtext的问题 关于按扭的简单问题 调用ejb的错误,请帮忙看看,帮我顶顶也给分,谢谢 关于lei的配置问题 java中 ,换行为\r\n ,空格为什么呢???? 关于快速排序的问题?在线等待!!! 如何在网页上显示动态图表?(送100分) 高兴,散分,收集故事喽,多讲多得,不讲不得。请斑竹留情,不要删除。 一个文件上传的bean编译成功了,但不会使,哪位用过,请给出使用的源代码,或者其它能实现上传的也行,越简单越好并附说明的 我想在触发器中得到对当前表的SQL操作的内容,应该如何实现??v$sql视图中有相关的信息,如何提取?? 心情好好,散分,各位谈谈LINUX和UNIX的感受啊:) Can u help me? 在B/S下如何根据不同用户来相应的mail库 insert into 求解! 各位高手帮帮忙,关于存储过程的问题 请教:VFP6在表单1中,关闭表单1打开表单2。结果显示表单2后,表单1又显示了一下才关闭。怎样让表单1直接关闭呢?谢谢! 很简单的问题--可是我不懂如何用javascript实现弹出窗口(无菜单和工具条的) 请高手帮忙有关“邮件多播”的问题。 《Oracle Pro *C/C++设计》的下载 哪位有最简单的SERVLET的里子,包括添加,查询。。。 水园的人有没有搞过聚会啊? SOS,用脚本连接数据库问题,100分求助,请帮忙。 救救我!SOS!SOS! 请问谁有恩雅的Mp3下载地址吗? 感谢同学的作文 如何写英语日记以提高英语水平 英语,是一门很重要的学科,我们都要认真学习它.对英语感兴趣的那些同学会觉得英语很有趣.那些对英语没兴趣的同学会觉得英语很无聊、但是,无论你喜欢不喜欢英语,你都要认真学习,因为英 keep distance with the beautiful girls keep in touch with和keep up with有什么区别?如题 keep in touch with 是与某人保持联系 keep up with也有这一层的意思,那么他俩有什么区别吗?是用法不同吗? ju:英语音标 读 I never advertent,accidentally fell in love with you,finally will keep your distance. 用be动词适当形式填空(am,is,are) 音标JU;读什么给个土音 There are many tall trees _______ our classroom ,填什么啊 用be动词的适当形式am,is或are填空1."I"__the ninth letter in the ABC.2.It __an English book.3.--__ you a teacher?--No.I__ a nurse.4.20161009__her ID card number. ju用音标怎么读 农村人 三个字用英语怎么说 一路上遇到了不少同伴,这句话是病句吗?是,帮忙修改看看好不好? 英语年月日记法告诉我英国人和美国人两种年月日记法.是年月日,记法,不是年月,日记法例如2008年8月8日用英语怎样表示? 下列说法中错误的一项是?下列说法中错误的一项是 A.《故乡》以“我”的所见所闻为线索,所以作品中的“我”并不是作者,而是小说虚构的人物.B.鲁讯《自嘲》诗中有“横眉冷对千夫指, 修改病句:我爱家乡一望无际的田野和诚实的农民. 改病句:灿烂的阳光柔和地洒向春天的田野,怎么改, love is not to be struck with fright 改病句、一望无际的田野上,麦苗绿油油的,像蓝色的海洋 灿烂的阳光柔和地洒向春天的田野急……用用用用用快回复一天之内 请问无锡哪里有英语角啊?我想锻炼口语 修改病句:我爱家乡一望无际的田野和真诚的农民修改病句:我爱家乡一望无际的田野和诚实的农民。不是真诚的能民 以try to keep up with me开头的英文歌叫什么名字 请问无锡哪里有好的英语角 主要是锻炼口语 背英语笔记要怎么背?是像背英语课文一样背,还是像单词一样背? 冬天快完了,春天就要来,太阳特别温和(修改病句) struck with 这个定语从句为什么用where而不用thatthe voice of china has set up a stage ____some people can achieve their dreams 描写秋的成语(4个) 无锡哪边有练习口语的英语角啊 定语从句中什么时候只能用where不能用that 我现在是高一 我的英语笔记有好多 我该怎样去处理它们呢 笔记太多是不是有什么不好啊 无锡哪里有英语角啊?我想锻炼口语啊!城中公园里没有英语角啊 定语从句中有个题为什么选that 而不选where?you still remember the chicken farm _____ we visitied three month ago? 找人帮写英语日记!普通的就可以,不要太多! 六年级上册语文练习册第36页第二课时的一题怎么做啊 1.You must keep your a_______ with us.2.The old woman looked a______ because she couldn't find her purse.3.It must be something _____ outside.A.eat B.eats C.eating D.ate4.He is wearing a grey s______.1.appointment2.anxious3.C4.shirt 还有好多作业没做 昨天背英语呢 5篇征文6篇日记 怎么办啊帮帮我吧 让我走进你的心,用英语翻译, If you want to keep the boy-----(happily),you must play with him. 同性恋的英文是什么? 为他们的英语翻译 修改病句:此时此刻,我身边又回想着快乐童真的歌声,诲人不倦的心声和尽情嬉闹的身影. 失之交臂怎么解释?怎么造句?它的近义词是什么?…………哈哈哈 There is a tree in front of the classroom 的意思加中文 此时此刻,我耳边又回响着充满墨香的书声,快乐童真的歌声,尽情嬉闹的笑声,诲人不倦的心声;我眼前又浮现出引人入胜的课堂,又去开心的郊游,你追我赶的赛场……仿写这整个句子,用排比的 下面是一组近义词,请你先辨析它们意思上的细微差别,然后造句.模模糊糊—— 迷迷糊糊—— I know how I can learn English well.(改为同义句) 近天郊游,同学们即更高兴又开心地玩了一天【修改病句】 You should write him a letter.改为同义句:You should ____ _____ ____ 大洋州有哪些国家怕劳的面积,地图 此时此刻,我耳边又回响着充满墨香的书声,快乐童真的歌声,尽情嬉闹的笑声,诲人不倦的心声;我(看补充)此时此刻,我耳边又回响着充满墨香的书声,快乐童真的歌声,尽情嬉闹的笑声,诲人 You should { write a letter to him}对大括号里的You should { write a letter to him}对大括号里的句子进行提问.答案的格式要对应What ( )i( “主管护师”一词用英文怎么说? 我眼前又浮现出引人入胜的课堂,热火朝天的劳动,有趣开心的郊游.(用我眼前又浮现出造句) 英语这门学科有趣吗? 护士用的日常单词 英语就是例如打针啊,护理啊之类的,手术 啊就是护士日常用的单词,中英文对照,越多越好 每天坚持写英语日记,英语能提高吗? 英语翻译:据说,新学期又开设了初中化学,这是一门很有趣的学科.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘