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

用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
移动开发者走向全能开发者的五大技能 360和西部数码战略合作 一键开启为国内30万家网站提供免费安全服务 中兴携手英特尔发布基于X86的Geek手机 应用生态建设仍需努力 微软将WP周期延长至36个月 明年推企业功能包 Gartner:全球PC出货量二季度下滑11% 联想成全球最大PC厂商 用来简化开发任务的20个JavaScript类库 煎饼,娇妻,Belief:黄太吉的移动互联网营销 AWS大降价:最高打两折 推荐十款超赞的Google Chrome扩展插件 在团队中进行单元测试/TDD的12条经验 小米游戏中心6月数据报告:页游转手游怎么搞? 司机请专心:安全是车载APP要解决的大问题 Windows 8之父Steven Sinofsky:跨平台开发会为什么越来越难? 一些达成共识的JavaScript编码风格约定 语义技术——微软、谷歌和Facebook的必争之地 初创公司PlumGrid:前思科工程师的“逆袭之战” Firefox OS智能手机继续扩张 德国市场今日开售 如果让莎士比亚、海明威编写JavaScript代码 开源的数据可视化JavaScript图表库:ECharts 已迭代1.3亿年的分布式系统——Anternet 软硬整合:14个可改变世界的Kickstarter项目 是时候放弃MySQL的五大理由 比特币钱包Coinbase推出即时交易功能,无需银行转账手续 回收不活跃邮箱续:雅虎高管称能保证前用户信息和数据安全 移动周报:IT民工携娇妻转战传统行业,黄太吉的移动互联网营销 独立游戏开发的传奇!LIMBO开发商Playdead公司CEO专访 Firefox OS模拟器4.0正式发布 支持模拟触摸事件 莫轻言已成功部署大数据,也许你离达标还相去甚远! 基于Java的四大开源测试工具 Firefox OS:称霸移动市场?我们的计划更长远! 支撑5亿用户、1.5亿活跃用户的Twitter最新架构详解及相关实现 我用MFC编写了一个ActiveX控件,如何实现安全接口? 如何实现 XP 中目录窗口左边那种菜单 有关界面设计的两个问题? drawString时怎样规定一个区域,在这个区域内的文字显示,超出的不显示 急!在线等!Excel文件导入的问题。找不到可安装的ISAM 结识搞PHP的朋友 关于cell组件 郁闷当中,谁能给个用vb做DLL然后在DLL中增加数据库记录,在asp调用的例子。 singleton模式实现的问题 100分 谁讲一下定点数和浮点数的区别 急急急.请各位大虾帮帮忙啊! 請問語句的意思,謝謝 (Oracle8i)以SYSMAN登录控制台 斑竹9我! 求教高手!!!TEXTBOX与DATAGRID的问题 求助!关于用74LS181模拟8位机的资料!(散分啦,小弟急用啊!) 我的WINDOWS2003的DIRECTX 3D功能用不了,为什么? 如何用命令来修改设置计算机的ip,网关和dns等内容 不知道到那里问,借个人气了 托架的图标 散分! 如何建立一个这样的数据窗口? 上次未解决的问题(附源程序,及时结贴)(输入地址时http://ip/default.asp能正常使用,但是用http://ip则只能显示首页) 这个分页查询的SQL语句有什么问题?高分求教!!! 怎样求一个集合的子集? 我应该怎么做(项目经理请进,至少代表全国大部分公司的问题),一个年轻软件开发人员的问题 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 怎样在注册表里删除OFFICE 数据库不同,sql语句也有限制吗? 我在使用化境上传组件时碰到的问题,希望大家帮着看看,解决一下,高分求助 listview中的item能否变灰,也就是使某些项不能选 高分求各位高手急求!!!MP3问题 我的2k(PRO)我的电脑打不开,控制面版也打不开,其余的一切正常。这是为什么? 配置问题 关于上网,上传,二个大问题,高手请进,急! 一个打包问题 如何在asp里实现点一个按钮带动另一个软件的运行?急! 散分! 什么是核辐射?核辐射的定义? KHS,NaCl,NaHSO4,Na2CO3,分别属于什么.钠盐:酸式盐:无氧酸盐:含氧酸盐:用以上四种物质填空 为什么断路器处于合位时地刀必须分开 地刀可以遥控吗 核辐射的现象的影响以及含义 1脱脂乳2白砂糖3乳酸亚铁4维生素A5维生素D第一题,属于营养素的有哪些?填序号.第二题,以上什么物质可以补充铁原素?填序号 断路器的N极为什么要设计成先合后分? 风( )( ),马( )( )的三子词语()里是叠词 三个完全相同的玻璃缸装满水,其中A只有水,B里漂浮这一只小鸭子,C水中漂浮着一只大鸭子,求它们的质量若把他们放到台秤上称量,可知他们的质量( )A (a)最大 B (b)最大 C (c)最大 D 一 模仿《一只贝》的作文 400字作文 用唐维波三子写诗句? 河里有4只大鸭子,5只小鸭子.后来走了5只鸭子,走的鸭子中至少有几只小鸭子? 擦过干了的油漆的抹布,油漆没擦下来,抹布还能在擦桌子吗,会不会通过皮肤吸入苯,抹布还能再用吗? 用唐微波三子写诗句? 若大鸭子5元1只,中鸭子3元一只,小鸭子1元3只.用100元能分别买大、中、小鸭子各多少只(要求每种至少买一只)的方案. 湿的抹布擦桌子为什麽比干的擦得乾净? 核辐射是什么? 一个西瓜,切3刀(必须切透),切完是4块,吃完剩五块皮,问如何下刀?西瓜皮也算一块 宇宙大爆炸主要的依据是什么 核辐射是什么意思 怎么切一个西瓜?切三刀,有四块,吃完有五块皮? 请问宇宙大爆炸的三个科学事实是什么啊 宇宙大爆炸理论是谁提出来的? 怎样用一把尖刀将一个西瓜切成4块,吃完西瓜后还剩5块西瓜皮. 红色海绵球魔术怎么变的就是用手在桌上把一个红色海绵球在中间撵几下,变成两个,两个变三个,手里握出一大把来,十多个,怎么回事 为什么切开西瓜会流水?记得初中刚学生日时老师说是西瓜流出来的水是细胞液,可我觉得细胞那么小,尺寸就算相对刀刃的厚度也根本不是一个数量级的,怎么可能就那么巧就被刀刃切开了呢? 高压大电解电容负负相串做无极性电容高压大电解电容器负负相串做无极性电容用会出现什么问题吗? 僵组什么词 以下别称与城市对应不正确的是:A.泉城——济南B.羊城——广州 C.荣成——重庆D.日光城——拉萨 脱氨基和转氨基过程在那个细胞器或哪些细胞器里进行? 我想知道到,我在此先感谢你们了2K 求中国城市别称大全(例如济南叫泉城) 钳形表怎么查电流 用下面的字组词 勉( )( )( )( )( ) 僵( )( )( )( )( ) 你知道下列城市的别称吗?选一选:水城、春城、冰城、日光城、瓜城、泉城、煤城、石头城.1南京()2抚顺()3昆明()4济南()5哈尔滨()6拉萨()7吐鲁番()8苏州() 丽丽和佳佳做游戏,在一个边长为1dm的正方形地上画地盘丽丽先画去正方形的1/3,佳佳画去剩下的1/2,然后丽丽又画去剩下的1/3,佳佳又画去剩下的1/2 ,这样两个分别画3次,整个正方形还剩下 2K+ 中2的意思 下面的别称各指哪个城市? 春城—— 花城—— 山城—— 泉城—— 蓉城—— 芳芳和丽丽有两条都是2米的彩带,芳芳减去三分之二米,丽丽减去三分之二,余下的彩带,那条长? 怎样可以减少静电 化学中怎么判定水溶液中的离子共存 干旱受受什么天气系统影响? 两质点间只有内力,角动量是否改变 如何判断“离子在溶液中大量共存?”“离子在强碱性溶液中可以大量共存?求老师~要会考了,我还是搞不懂TAT 三防服等防核辐射的服装能防多大的核辐射呢? 既然相对质心静止的参考系是零动量参考系,那么对于这样的参考系,角动量是否也恒为零(或者恒不变)? 为什么光不会照到UFO? 椰子落入海水中会下沉吗? 零动量参考系是什么 汉朝三宫遗址 金汤湾海水温泉怎么样 初动量为0的系统质心位置变化吗?初动量不为零的系统质心运动情况如何? 写不同的词并造句 瓷器形容人是什么意思? 英语翻译 :总之世界上没有任何东西比光的传播速度更快 建筑施工为什么要设护坡道?你怎样建筑施工? 形容人像瓷娃娃是什么意思 僵怎么组词 狄丽丽丽丽丽丽丽是哪首歌 哪里能下载《探索发现之宇宙大爆炸》 花王纸尿裤区分?1、日本本土花王;2、在中国销售的日本原装进口花王(包装侧面贴有中文的一张标签,其他地方均日文);3、台湾版花王、4、香港版的花王;以上几种花王,都有什么区别?产地 WTA南京挑战赛张帅夺冠 排名超郑洁ATP总决赛抽签:费德勒没躲开小德 林书豪哈登合演19分大逆转 火箭开局中国非制造业商务活动延续升势 内需增中能降级老板赛后痛哭 圈内人:俱乐部美国称不会考虑赦免斯诺登 促其回国受日本前首相小泉坚定反核电路线 再次公日本第26号台风给伊豆大岛带来11万英国三百余名议员被指仍挪公款用于日常洛杉矶机场枪击案致航班受阻 华人伸援加同意日本引渡东京超市杀人案中国籍知阿富汗总统批美击毙巴基斯坦塔利班头目斯诺登抨击美国国家安全局为“最坏犯罪普京签署《俄联邦行政违法法典》保护文德国海关在一公寓中查获逾1500幅绘伊拉克总理访美寻求武器技术支持 防内韩国总统朴槿惠巴黎会见联合国教科文组印尼黑客袭击澳大利亚200多家网站 阿富汗总统批评美无人机炸死巴塔头目时日媒:日俄会谈 日“牵制中国”计划落法媒:孙杨为违章驾驶道歉激起中国网民财联社登纽约时代广场向全球问好 高端极品宠物与垃圾宠物的差距数据分析太原大妈围攻宋鸿兵VS北京大妈防骗显练武,要从小开始问理财涨停板雷达:艾迪西、应流股份等券商眼中的2016:谨慎等长牛 新兴力劈华山与高级强力谁好投资人支招:如何成为下一个受资本青睐注资2.45亿 28家中小酒企抱团造2020年中国人均GDP应可达到12分化与错位之后,P2P的未来或只存在【上合快讯】各国领导人抵达郑州参加上李克强与上合组织各国领导人郑州相会中阳背后个股蠢蠢欲动:明日定有惊天变沃尔玛在美推出Walmart Pay梦幻套房:我的2015年十佳酒店之选阿里买入南华早报的东拉西扯农行告急,中国银行业再次公布实情!【2015.12.22】万马相豫 照绅宝X25:看得出用心 可能否卖得出绅宝X25:看得出用心 可能否卖得出
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘