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

用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
Android获取摄像头详细信息 Android流量统计TrafficStats类的使用 电子邮件解析android.net.MailTo类 扫描和获取OBB文件信息 Android加速感应器开发平衡球代码解析 StrictMode限制模式API加速你的应用 手势识别兼容Android 1.x和2.x的代码 NativeActivity类在NDK中管理Activity OBB文件和StorageManager类使用介绍 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开发入门篇 "java原型开发"指得是什么开发? 能否用VC++实现类似东石公司的虚拟光驱系统 请问会话Bean和实体Bean的区别在那?能给出例子吗? word文档如何存入SQL SERVER 2000? 请问如何才能在windows 2000 server 上装MTS? 有女朋友而且上网和别的mm聊天的入内签名! 如何显示不同的颜色... 有关网络开发和com的问题,高分征集关注和提供方案! 探讨一下safearray 的使用问题 关于QQ界面的制作? 在主界面中添加一副图片的问题被遮住的问题 有一个EXE执行时,我希望能删除它自己 如何在程序中获取IE当前浏览网页的IP地址或域名地址? 有南京的兄弟吗?我想买《delphi4编程技术内幕》,就是Charlie Calvert那本精华。 如何在工具条上加载图片作为工具条的背景 怎样来写这个数据连接? dbgrid里的赋值问题 Borland自带的ADO例子为什么也出错啊? pb 出现 maximum script size exceeded 保存错误 愿意到上海的软件高手可以来看看,真是没想到 我这里有一个链表类,我怎么在别的文件中使用它呢? CArray的问题? 编译器出问题了! 那里可以找到asp.net的一些原码,现在市面上的书没什么有深度的 修改PING数据包VB能做到么?高手来指点,中级来探讨,初级来学习,分数大大的有~ ;) 请教(qingrun,qingrun等大虾),请指教? weblogic高手请指点!这是不是设置不对造成的? 这样都行啊----老板是写软件的好沟通的很,干活痛快 标签hidden是干什么的,怎么使用 关于treeview中+/-按钮 动态创建了多个StaticText,我想实现将任意一个StaticText拖动到另一个StaticText上后交换他们的几个属性,该如何做? 出问题了 读取数据失败,谁能解释一下原因 向往PB之路但突遇路障,盼高手急施援手,予以鼓励!(PB8.0) 还是打包问题,烦死我了:( 请问怎么把日期相加? sql server各版本支持的最大数据库是多大? Imail的软件有什么作用 ?两个时间格式的字段,我要取二者的差(还是时间格式)? 别人用MODEM拨号到我的路由器,现我要做一软件对拨号的日志进行查询统计, 我如何取出CISCO5300中的拨号日志??? 还是打包问题,烦死我了:( 菜单与工具条的高度如何取得?? 出问题了 请问,VB能否做交叉报表?谢谢!! 那位大哥知道怎么能让一个服务器同时解析两个域名。(2K服务器) 用MODEM拨号到路由器,现我要做一软件对拨号的日志进行查询统计.我如何取出CISCO5300中的拨号日志? 前面多谢大家了,我的BCB编译缓慢,是否还和操作系统有关呢??我用的win2000 Server版的。 希望现在的论坛能够解决贴图的问题. WebSphere 的jsp、servlet和javabean放在哪个目录下?在线等候结帐 请问,网络程序员什么时候报名? 都有些什么工具,可以将Web Application打包分发? 高中物理天体运动中的地球自转?为啥考虑地球自转时 万有引力等于重力加向心力 赤道上的物体是否万有引力全部充当向心力,那赤道上的物体岂不成了卫星,出现瓦解了吗两极是否重力等于 关于椭圆与双曲线准线的疑问?在书中的椭圆和双曲线这两节中都有“当点M与一个定点的距离和它到一条定直线的距离的比试一个常数的话,那么这点的轨迹就是椭圆(双曲线).”当点M与一 "绿色化学"要求从根本上减少或杜绝污染.下列做法符合"绿色化学"理念的是( ) A.试验中未说"绿色化学"要求从根本上减少或杜绝污染.下列做法符合"绿色化学"理念的是( )A.试验中未说明 5.男生人数如果减少五分之一就与女生人数相等.下面说法正确的是( )A.男生比女生多20% B.男生是女生的20% C.女生比男生少20%6.做一批零件,甲需要8小时,乙需要10小时,甲的工作效率比乙的工 锂很容易与氧、氮、硫等化合,化学方程式是什么请注明反应条件 下列不符合绿色化学概念的是 椭圆的第三定义是什么? 两种均含氢氧钠硫四种元素的化合物相互反应放出气体的化学方程式 英语 填词 1,绕同一个中心天体转动,角速度是否相同?(椭圆轨道或圆轨道)2,v=w2是不是只适用于匀速圆周运动?不好意思,第二个打错了,是a=w2R 一辆公共汽车上,买票的乘客只占乘车人数的三分之一,但售货员和司机却无动于衷.车山其他的乘客也不是小孩,也不使用月票,这是怎么回事呢? 英语填词(初一水平)That TV ______ is very funny.(6位字母的单词,开头是S)She always wears a ______ .(4位字母的单词,开头是c,结尾是p)It's windy.Where is my ______?(5位字母的单词)请把所有能填的单词 还有一张图 发不上去了 是后几道题的 追问发给你们 甲烷和氯气的混合气体在光照条件下生成的氯化氢是什么状态?氯化氢 是液态还是气态?常温下 光照条件 能使酸性高锰酸钾褪色都有哪几种物质? 椭圆的第二定义是什么? 能否使用制氯化氢气体的装置来制取氯气,为什么 英语填词练习(靠你了)1091206782,有意为我解答的来找我,我也想,但手机不行 如图,点A,B,C是数轴上三点,其中点C是线段AB的中点,点O表示的是原点,线段AC比线段OA长一个单位,点B表示的有理数是17,求点C表示的有理数. 如图所示.地球和某行星在同一轨道平面内同向绕太阳做匀速圆周运动.地球的轨道半径为R,运转周期为T.地球和太阳中心的连线与地球和行星的连线所夹的角叫地球对该行星的观察视角(简称 关于溴的反应方程式1.反应物中 溴元素被氧化--------2.反应物中 溴元素被还原-------- 下面两个多位数1248624……、6248624……,都是按照如下方法得到的:将第一位数字乘以2,若积为一位数,将其写在第2位上,若积为两位数,则将其个位数字写在第2位.对第2位数字再进行如上操作得 3.4x-48=26.8要求:检验不用写! 钠与溴反应方程式的条件 求这道数学题怎么解答!为了创造一个更好的城市环境,市政府将一个城市道路改造的工程包给某公司,该公司甲乙两个工程队合作这项工程需四个月完工,若先由甲单独做三个月后,剩下乙单独 椭圆的定义及性质要权威一点,我听说还有定义二? 下列不符合“绿色化学”的是?A:就地焚烧 B:发酵后作农家肥料C:加工成精饲料D:制造沼气 这道数学题怎样解答? 小伟做练习题,第一天做了1道,第二天做了2道,第三天做了3道,以后每天都比之前一前多做1道题,请问小伟30天一共做了多少道题?(简便方法做) 下列说法正确且符合绿色化学思想的是A.为减少对粮食的依赖,可以用乙烯与水反应制乙醇以满足人们对酒精饮料的需求B.用CO2和H2可以合成CH3OH,该反应中各原子的利用率为100%C.可以寻找新型催 1除以3等于三分之一,三分之一是0.333333333333无限循环,三个加起来应该是0.9999999999无限循环接近1,但是并不等于一,但是为何3成衣三分之一等于1.朋友问我,我该如何回答 钠与硫可以直接化合,甚至爆炸,为什么? who whoes1.____has taken my sunglasses?2.Can you tell me ____ bicycle it is 3.____is over there ,talking with our class teacher?4.____so you thnk will the election one ones5.I lost my pen yesterday.I am going to buy____ after school.6.The story he to 苯酚能与碳酸钠反应吗?如果能,生成什么? 1200×140×730mm是多少立方 下列研究思路,符合绿色化学思想的是A.研制不产生污染物的发动机B.研制能减少污染的汽油C.研究治理空气污染的方法D.研究汽车尾气的处理方式没一个对的, 如何几何证明椭圆第二定义等同于第一定义 钠与硫反应发生爆炸是化学爆炸还是物理爆炸?有没有化学爆炸的实例? 初一的英语填词根据首字母填词I don't know the meaning of the word?May I use your d( )My s( ) is new and big.My teachers are very kindHis p( )sre workers.They work in a factory 已知两颗人造地球卫星的轨道半径rA=2rB,则它们的线速度、角速度、加速度和周期之比是 椭圆.双曲线准线定义 填词 我知道线速度角速度轨道半径周期向心加速度都是不变的,请问有没有哪个量是在变的 设全集U=Z,A={x|x=2n-1,n∈Z},B={x|x=4k-1,k∈Z},C={x|x=n+1,n∈Z},试求A∩(B的补集)和C∩(A的补集).这是一道集合的运算题目。 如题 邻/间/对甲基苯酚 的一溴代物分别有几种及原因解释的时候麻烦清楚点 数学题~求各位解题讲思路1.小平看一本故事书,已经看了全书的40%,还剩90页没有看.这个故事书一共有多少页?2.小平看一本故事书,已经看了全书的40%,比没看的少90页.这本故事书一共有多少 钠和硫化合到底会不会爆炸?rt一种理论是:会爆炸,因为放出了大量的热另外一种理论是:因为是两种固体的反应 对甲基苯酚的一溴代物有几种 为什么苯酚与碳酸钠反应?为什么苯酚与碳酸钠反应?而不与碳酸氢钠反应?能不能用酸性强弱来解释? 高中数学.双曲线还有准线定义?十题 对甲基苯酚的一溴代物为何只有两种 最好可以说一下做题思路. 如何查找数学题目 1.对甲基苯酚为什么一溴取代物只有两种?2.甲基上的H不可以取代吗 为什么实际做不到 酚太活泼又怎么样 就算先发送苯环上取代 甲基就不可以吗3.羟基上的氢氧键为什么不会断? 苯酚为什么与碳酸钠反应 请给我一个完整的椭圆和双曲线的准线定义,做好配图可以不死记吗?x=+-a^2/c 我需要理解 特别是双曲线不懂 对甲基苯酚的一溴代物为什么羟基上的氢不能被取代?即为何只有3种而不是4种? 椭圆第二定义是什么 查找小学数学题答案 (3)、P77-8初中化学:下列做法中符合绿色化学理念的是()?说明选择理由.“绿色化学”要求从根本上减少或杜绝污染.下列做法中符合绿色化学理念的是:A.实验室制氧气;B.实验室制CO2;C.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘