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

用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
DownloadManager下载管理类2.3新增API介绍 Android平台上的11个感应器你都知道吗 Android 2.3中的java.io.File类新增功能 更轻松的获取APK文件安装时间 Android控件对应表,丰富你的UI设计 Android开发进阶之NIO非阻塞包(八) Android开发进阶之NIO非阻塞包(七) Android开发进阶之NIO非阻塞包(六) Android开发进阶之NIO非阻塞包(五) Android开发进阶之NIO非阻塞包(四) Android开发进阶之NIO非阻塞包(三) Android开发进阶之NIO非阻塞包(二) Android开发进阶之NIO非阻塞包(一) Android开发进阶教程系列(一)目录篇 Android开发调试工具TraceView多图演示 Android JNI实例代码(二) Android JNI实例代码(一) Android JNI开发高级篇 Android NDK开发技巧二 Android JNI开发进阶篇 Android JNI开发提高篇 Android JNI开发入门篇 Android NDK开发技巧一 Android数据库ContentProvider封装原理 Android Permission列表,ADT 0.9.9 bug Android Theme和Styles内部定义解析 Android平台下图表绘制相关方法 Activity类的runOnUiThread方法你用过吗 Android上鲜为人知的UI控件介绍和使用 获取Android手机上的图片和视频缩略图 Android JSON解析示例代码 串行口的简单问题,求救 如何在函数里面传字符串数组 请问哪里有《Delphi 4 编程技术内幕》随书附带的源码下载啊? 请教:将可执行程序安装到用户机上后,用什么办法控制其它用户非法复制使用? 我想隐藏MSFlexGrid2的的10到最后行,但不行!!急救!! 哪有STL 和BOOST库的SOURCE CODE 当 如何做安捷生产管理系统。如何下手!!! PB8在链接Access2000时,为何会发生问题.链接后在PB8中打开只能看库中数据,却不能修改! 我用OCX控件编程,插入OLE控件时,出现“需要协议文件”,我该怎么办呢? waveoutopen! 问个问题,我一直有疑惑 BDE中建立的Access库,怎么才能打开; Access的密码为空,用户名不知道; 第四次帖了,高手在哪儿? 为什么我装了一个元件后再安装一个另外的,会把第一个冲掉? 就要去实施了,不知道什么时候才能回来,散分 我是菜鸟,问一个很菜的问题,!!!!!!!!! ATL中创建的ActiveX控件,是怎么在程序中使用的???????????? 一个关于LotusScript的一个问题。调用公试。 **请教:怎么让MSFlexgrid的一行显示一种颜色. 一个小问题,希望有人能解答! DLL高手请入,关于在DLL中引出对象的问题?????? 求教!!有关DLL调用中返回字符串类型出错的问题。 Delphi怎么实现子类化? session 和 cookie 各有千秋,区别在那里啊?敬请赐教! fm1008leaf(小幻姬(玉笛书生的徒弟)):我考考你就知道你是真是假! jneu(沧海桑田)怎么不理我?有关宏拷贝问题 paradox中的NUM类型在sql语句中是什么类型?为什么asfloat会出错? 关于J2EE的就业前景,值不值的花二万元参加一个二十天的培训,欢迎大家热烈讨论 在listbox 中,如果知道了一个Item的内容,怎么知道它的indix 今有同仁问到,三十以后咋过。恰巧心情郁闷,发上几句牢骚。 少年暗恋对象,早已嫁作人妇。那天遇见街头,孩子叫我叔叔。 OICQ问题! 如何可获得Table 内字段的类型及长度? windows2000 server 的internet 共享怎样设置权限 软件开发的请进来讨论,关于报酬的问题。大家多提建议。 1.为什么有些地方可以用MessageBox函数,有些地方不可以2.mfc的CView::OnFilePrint提供了打印的方法,要是一个程序没有视图要打印一般用什么方法? 请问在DEVELOP2000里面可以使用进度条控件吗?怎么编程实现? ???oracle监听器问题? WebBrowser控件获得网页中文本框的名称该如何写? CFtpConnection 怎样在FastReport中控制或判断所连接的数据库表到了eof? CTypedPtrList模板对象中,如何删除指定位置的元素??十分着急! ms sql server 的技术问题 怎样清除事务日志????????? 在那里改个人在cdsn.net注册信息(如名字,地秩)? 关闭窗口的事件如何触发?( 高手们请问deiphi如何实玩宏代换???????????十分火急!!!!!!! 请帮忙!!SOS!!! 请问如何实现宏代换????????????? 关于打印的一个不错的设想 我是新手,初次接触网络管理,请问要管理局域网需要具备哪些方面的知识,需要安装那些应用软件?有什么好书可以介绍吗?谢谢各位! 在VB中设计控件,其上放有uText1、Text2,当uText1失去焦点时,并不触发Validate事件 如何在程序中判断是否做了超级连接? 血液循环的两条路线。还有关于心脏的详细知识。 ……! 硫酸银和含碘化钾的氯化钠反应吗硫酸银和氯化钠反应生成氯化银多还是和含碘化钾的氯化钠反应生成的氯化银多? 为什么氯化钠和硝酸钾溶液不反应请讲的详细一些 怎么分类:氯化钠,氧化钙,氢氧化铜 硫酸银放氯化钠沉淀快还是放碘化钾快 氧化还原反应的升失氧降得还那一大套.失电子化合价升高,是还原剂,有还原性,被氧化,发生氧化反应,这些我都知道,但是生成的是氧化产物还是还原产物啊?除此之外还有啥可以补充的么 氯化钠溶液和硝酸钾溶液反应方程式. 配平的方法和质量分数的计算过程 氧化还原反应中没有氧的得失是不是氧化还原反应 初中高温化学式怎么配平?比如fe3o4+co=高温fe+co2 请大家给我一些关于化学方程式的计算或配平的方法:如归一法.再给我...请大家给我一些关于化学方程式的计算或配平的方法:如归一法.再给我讲讲用法谢谢. 求解释氧气到臭氧为何为氧化还原反应 硝酸钾和氯化钠反映的化学方程式 鉴别 氯化钠和稀盐酸 除了加碳酸钙 还可以加 氧化铜么 氧化铜 和 氯化钠 会反应么 可以加 氢氧化铜么 都说明现象 原因4楼又给我点了一点 5楼又点了一点那么说 鉴别 氯化钠和稀盐酸 有4种 蔗糖是有机物还是无机物?蔗糖属于糖类,糖类是有机物;但蔗糖易溶于水,而有机物不易溶于水,具有无机物的性质,似乎又属于无机物...求解(千万别说的模棱两可) 氯化钠和硝酸钾是否能反映? 硝酸铵不溶于水吗?溶不溶于酸?氧化铜能不能跟氯化钠反应?硝酸铵好像溶于水,可硝酸铵固体呢?为什么硝酸铵固体和蔗糖可以用水鉴别? 升失氧还氧,降得还氧还各是什么?关于氧化还原反应的,各指什么? 氯化钠能和硝酸钾反应吗?如果把氯化钠和硝酸钾混合溶液蒸干,应该会析出氯化钾、氯化钠、硝酸钾、硝酸钠四种晶体, 氢氧化铜和什么反应生成氧化铜和什么 高中物理化学重点知识点? 硝酸钾和氯化钠可以发生反应吗 为什么 化学方程式配平中的归一法要把哪一个化学式的化学计量数看作1随便举些例子,越多越好各位聪明的哥哥姐姐帮个忙 求:高中物化生知识点记忆口诀,歌诀.化学不要实验方面的!例如:原核生物的种类蓝(色)细线支(毛)衣(蓝藻、细菌、放线菌、支原体、衣原体)我会按数量和质量给分. 初二生物知识点1、下列不属于无性生殖的是( D )A 椒草的用叶繁殖 B 马铃薯的用块茎生殖C 月季的扦插 D 小麦的种子繁殖2、种子的胚是由( A )A 受精卵发育成的 B 受精极核发 硝酸溶液与氢氧化铜溶液能否发生复分解反应? 会考各科知识点总结 初二生物知识点归纳(人教版) 加热氢氧化铜溶液会不会受热分解生成氧化铜黑色物质 (氢氧化铜是溶液哦) 化学式配平有多少方法配平? 求初中化学有关反应条件是高温的所有化学式要在化学式前注明反应物的名称 在溶液中下列物质一般不易发生复分解反应的是 碳酸钾 氯化镁 硝酸钠 氢氧化铜 配平化学式的方法有哪些? 氯化钠与硝酸钾可以反应吗 高一必修一地理知识点总结 氯化钠和硝酸钾的水溶液一般不和其他物质发生复分解反应的是?好像两个都是,还是只有一个? 高一【上】地理第一章知识总结还有 要非常非常详细的 区分下列物质 氯化钠溶液 氯化铜溶液 氯化钾溶液 求河北省高中物理会考的知识点越详细越好. 高一必修一地理知识点总结要全最好带文件的 氢气能还原氧化铜为什么不能还原氢氧化铜和氯化铜? 氯化钠溶液与硝酸钾溶液能否发生复分解反应?尽快! 高一地理必修一知识点完整总结(注重知识点间的联系) 何种金属与CuCl2水溶液反应产生氢气 高中物理会考知识点谢谢大家啦 急用啊 高一地理必修一 一至三章知识点总结 高中化学中的化学方程式离子配平法是怎么配啊?化学离子配平法是怎么个配法啊,老师讲时没听懂. 为什么硝酸钾不易发生复分解反应 急需高一地理必修二知识点详细总结 请问,铜和 稀 硝酸的化学方程式用 离子配平法 怎么配平?RT, 氯化钠溶液与硝酸钾反应是不是复分解反应? 化学式配平习题 这个离子和化学方程式是怎么配平的, 配平我到是知道配~可是那些数字有什么意义啊? 给些初三习题我,上面习题 答案写在下面 就是习题一部分答案一部分· 分别将下列物质同时加到水中,得到无色透明溶液的是A氯化铁、氢氧化钾、氯化钠 B碳酸钠、氯化钾、C硫酸铜、盐酸、氯化钾 D、碳酸钙、氯化钠、硫酸钾 高中生物会考知识点446734181@qq.com 角码用圆圈+数字代替C②H⑤OH+O② - CO②+H②OFe②O③+CO - 高温 Fe+CO②CH④+O② - 点燃 CO②+H②OMg+CO② - 点燃 MgO+CCu②(OH)②CO③ -△ CuO+H②O+CO② 氯化钾与氯化钠反应吗?氯化钠溶液与氯化钾固体反映吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn