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

用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
MySQL手册许可证更改乃是Bug惹得祸 开源世界高峰论坛首批演讲议题公布 测试工程师的心灵鸡汤:谦虚、不沉默、有危机感、不断努力 高德地图API“沿图有你,晒出你的LBS应用”活动拉开帷幕! 谁能找出Windows 8.1的安全漏洞,就将获得微软10万美元奖金! 【直击美国云计算】Facebook分享数据中心新网络架构Fabric 【直击美国云计算】OCP发起产业界的Maker运动 红帽刘长春:开源是推动云计算和大数据发展的重要力量 【直击美国云计算】出货量达x86的20多倍 ARM或将成为数据中心主角 孙小群:将SAP HANA打造为开放的PaaS平台 GitHub推出重大改进:强调速度、内容和交互性 如何打造测试工程师精英团队? 如何做个有“钱”途的测试工程师? 苹果开始关注企业移动化 iOS 7的10大办公功能 “开源群英会2013” 参会名单(持续更新中) 微软Builder2013前瞻 主打跨平台工具及服务 CMDN 29期:软件测试与管理之路 微软IE10与HIT FM 携手打造全新HTML5官网 专访GenMyModel CTO:一款全新在线建模工具背后的故事 【直击美国云计算】Jason Hoffman:数据和计算的融合将破坏全球利润 【直击美国云计算】如何做Hadoop、流处理框架等技术的采用选择 【直击美国云计算】细数云技术领域成王败寇:从SaaS到SDN 【直击美国云计算】谷歌Jeff Dean:成功的关键是专注 致远V5发布:强调大协同,企业移动化真来了 Mailbox:六星期实现从零到百万用户及日处理亿条消息 代码审查,也要天时地利人和 Clash of Clans产品总监:游戏中的商品定价一开始就要高 移动互联网最核心的竞争是:设计的竞争 【直击美国云计算】面对AWS,VMware不会畏缩 美国白宫任命Twitter法务总监Nicole Wong为副CTO Keek宣布推出首款视频Update API 急问:我的VC6.0里的Icon编辑器为什么只有16种颜色 谁有这样的曲线绘图源码,一定重分相谢! 怎样去除启动菜单? 调用自建文件时,报错“重复定义”,为什么? Rave做报表时,要求preview时,不出现那个OutPut Options,并且预览时,要求全屏显示 请问映射文件里添加纪录应该怎么做阿 怎样让下拉列表中选定的值对应为数据库中的值~! 怎样去除启动菜单? asp.net 怎样学习 请问我的要存放含有‘年月日时分秒毫秒微秒’的数据能否用date类型存储? 谁来帮我解决一下问题——解决者另外加分100 问:sys/wait.h 是unix下的一个宏吗? 救命! 请问高手 网页问题 再次跪求教物资进库表和物资库存表的问题! 请问高手,如何在asp中调用,在线等候… 关于局域网的一个问题 一个表的记录写到另一个表中的问题??UP有分 蔡鸟求助:如何用vc++把一个文件(比如图纸)存到局域网中别的机器上 我有IIS的服务器的网站,我用什么软件能知道有谁正在下载什么文件?? 求MICROSOFT VISUAL STUDIO.NET 2002 中文企业版,2003不要,谢谢~ MySQL JDBC 驱动程序在哪里下载? 请教八数码难题的解法! 有在ASP 下 用过regexp类的吗?? 急救!关于ON_WM_ACTIVEAPP的问题 MySQL JDBC 驱动程序在哪里下载? mysql for linux 启动问题? 51job的动态简历预览功能暴快,有谁知道采用了什么样的技术? 请教为什么KeyUp事件不响应? 程序有两个线程时,如果子线程是个死循环,永远不停(如监听一个Socket),那当我的主线程return了后,程序会不会退出呢? 我重载了WM_NCPAINT来画窗体边框和标题栏,可是菜单就不见了,如何给画出来? 如何将INTERBASE中的数据导出到EXCEL文件中?! 关于C# 需要server2003企业中文版(激活的)地址! sql查询问题 update 的问题 急!IIS连接不上 装上JDataConnection Server之后,在数据源ODBC中的驱动程序列表中没有JDBC驱动算不算问题,高分求解! 短消息服务提供商(SP)程序问题 activeX控件问题,急盼高手帮助! 请教八数码难题的解法! 如果一个dll,在它里面有一个窗口,而有一个函数是这个窗体类的一个函数,那么如果在使用这个dll文件中的这个函数。 谁能给一个测试是否是EMAIL的函数?急! 如何实现关键字查询? 只能让家里的电视出现更多的台,比如解码器什么的! 急问:那位了解 sys/wait.h ,它的功能是什么? 求MICROSOFT VISUAL STUDIO.NET 2002 中文企业版,2003不要,谢谢~ saucer(思归)在吗?有问题请教! 哪里有C++ Builder 下载的。 TTrayIcon中的图标颜色只能显示16色的吗? No One Like You 歌词 no one like you歌词大意是歌词 Sarah Brightman--No one like youAnd wo toowill it not be soft and kindThat rest from life,from patience and from painThat rest from bliss,wo know not when we findHow can I have enough of life and loveIn your eyes Fak YOU Every There'S No One Like You 歌词 空气是我们身边最常见的物质,它是混合物不是纯净物?为什么?空气可以称为溶液吗? 一道化学简答题 急~~~~为什么澄清石灰水来检验二氧化碳的存在,但在提纯气体时,不宜用澄清石灰水来吸收多量的二氧化碳杂质? 一道化学的简答题家庭养鱼用的鱼缸内,常放入气泵装置,使用时会连续不断的冒出气泡,分析这套装置的作用是什么?说明氧气具有那些性质? .若抛物线y=x²+(m-1)x+(m+3)顶点在y轴上,则m=_______ 2.把抛物线y=2分之1x²向左平移两个单位 海南旅游必去的一些地方?注意什么? 怎么烧鱼头 怎样烧鱼头好吃?南方口味. “裸奔”崭新宝马上高速 “驾照暂扣期“万家购物”网络传销案二审开庭 主犯杭州一快递员送货路上猝死 过度劳动付日本人气电子宠物菲比精灵 可用iPh德国反驳美国抨击 称顺差体现竞争力2013亚洲旅游节:探索亚洲旅游业发广西和泰国教育交流日趋密切日本今日起举行大规模“夺岛”演习 被澳大利亚两个月间39人遭遇隆胸假体破美澳等多国驻外使馆被曝精心伪装 监听美国务卿首承认:某些时候美间谍活动走黑龙江延寿杀警越狱案宣判 2被告人称黑龙江9.2杀警越狱案宣判 2人死刑最高检:检务工作能公开的一律公开 网11.11特刊 | 或许是爱情特产博物馆 | 河南水激馍特产学院 | 水烙馍怎么样做才会软和歼11大战“鹰狮”:中泰空军首次联合您的声音世界在倾听 | 选出您喜欢的最高检:已有20余省份出台具体检务公限定高失业贫困区 美国国会激辩EB 2015年中央文化企业已全面执行新企元娘末世之当女配成为BUG求魔灭神雪狼出击灵道师庆丰年林夏的重生日子网游之兰湖仙缘无限总裁的糊涂小妻子小小童养媳西宁博物馆旅游容县近代建筑群旅游莫土司衙署旅游古城峒旅游伊岭岩旅游花山壁画旅游缥缈峰景区旅游华阳古镇旅游陈列馆旅游四季花海旅游林芝自然博物馆旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘