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

用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
VB怎样得到当前的屏幕分辨率? VB怎样关闭Windows VB怎样关闭一个程序 VB怎样使我的程序总处于屏幕最前方?(Always on top) VB怎样延迟一个VB程序? VB怎样在VB中控制WORD VB怎样找到鼠标指针的XY坐标? 增加快捷方式到启动组-VB资料 直接呼叫RUNDLL来关机-VB资料 VB制作VB安装程序问答(二) VB制作VB安装程序问答(一) VB制作帮助文件速成 重新验证 Win 95 用户口令 -VB资料 桌面的大小 -VB资料 字体改变事件 -VB资料 自定义组合热键 -VB资料 自动更换墙纸的小软件-VB资料 自动记录应用软件工作时间 -VB资料 自动卷动TextBox -VB资料 自动开始上次关机时关闭的应用 -VB资料 自动装入注册设置 -VB资料 自己编程模拟 MouseEnter,MouseExit 事件 -VB资料 走进VB6啃一块骨头 做成一个时间限制的测试版 -VB资料 PHP中利用jQuery实现SWF图像上传和裁剪 VB.NET或C#将DataSet快速导出到Excel中 HashSet的equals和hashCode重写问题 PendingIntent实现原理和代码 IntentService实现原理及内部代码 AsyncTask实现原理和内部代码 Neither user nor current process错误 如何实现语音聊天技术~需要什么? 如何实现语音聊天技术?需要些什么 请问如何用delphi语言将一文件夹压缩? 老大,infopower2000的注册号,密码是多少阿? 我现在是2000系统,想装一个98系统而不破坏2000,请问有解决办法吗?谢谢! [求助高手]VB注册表的读取 (dave_adl)将军请进来啊!给你分啊! 谁有数据结构与算法的东西,我在技术区可以给分 局域网内收发邮件?? 怎样利用主键不可重复的特性? 在ACCESS中如何在中间插入记录呢? 有谁知道,jbuilder7.0是调用了那些命令打包成EXE文件的? 一个简单的问题 OpenDialog控件怎么初始化路径? 使用regsvr32 时怎样不显示成功的对话框(即参数?) 怎样提高专家分? 网关屏蔽了QQ、聊天,如何使用QQ和聊天 如何配置声卡? 使用Excel时为什么不能更新图表? 欢迎踊跃参加 Office开发技术网上竞赛 使用Excel时为什么不能更新图表? 有人熟悉中科红旗吗? 请教DataBufferFloat的问题,没什么我的文件说找不到 会不会出BCB6中文版啊 http://go3.163.com/21jsp/cn/com/lyfupload.htm 请问各位:你们怎样在程序中用SQL脚本来建表啊?!!不会是叫客户自已创建表吧? 请进来看看,关于CString和WFC编程的! 关于定义一个struct 的 array问题?帮忙阿 在一个线程内部怎样实现将该线程挂起? 帮我个忙好吗,有关数据库的(我是新手)(很急) 用gcc编译后提示:/tmp/ccn/I193.o: In function "main" ...... delphi的简单问题 关于文件操作 请教,关于网管理论,协议,开发等方面,该看什么书? 提倡:对贴不对人 如何在word 中链接excel 表格后,不让它随源文件更改而变,但有时又要改变其中数据,怎么做 一个代理服务器问题 一个长久以来悬而未决的问题!! 谁有x.25协议包的格式? 在视图上建立快照日志碰到的问题? 求助:怎么用XSL制作网页菜单? 100分求助如何用DirectShow技术创建ASF格式的文件 数字的从大到小排列问题 300分求多线程解决哲学家进餐问题的源码 关于datalist 武汉的朋友帮忙啊! 严打! 我是新手,谁能告诉我如何新建类? 各位GGJJ,帮帮忙!如果每点击一次button建立一个线程,建立多个不同的线程,怎样实现? 请问那位windows98高手可以帮帮忙忙 各位GGJJ,帮帮忙!如果每点击一次button建立一个线程,建立多个不同的线程,怎样实现? 关于XML中NODE的类型的问题(特急!!!) 大家来帮小弟以下啊,!!! 如图,OA⊥OB,OC⊥OD,OE平分∠AOC,∠BOD=100°,求∠AOE的度数. 全面建设小康社会在经济方面的目标是什么 夏天,自行车车胎爆裂我知道是因为温度高,胎内气体的压强增大.但外面的温度也一样阿,不是外面的压强也增大了么?内外都一样,怎么还会爆裂...为什么温度高,体积增大呢?跟压强没关系么 如图所示,OA 丄OC,OB平分∠AOC,∠BOD=60°,OD平分∠COE,求∠AOE的度数 如何理解”全面建设小康社会”中的”全面” 体现全面建设小康社会的经济目标有哪些? 万年历的动土是什么意思? 肥皂水是酸性还是碱性 一堆钢管,横面是梯形,最上层是14根,最下层是24根,每相邻两层差1根,这堆钢管共有多少根? 万年历里面的安床什么意思 已知地球半径为R,地球自转角速度为w,地球的表面重力加速度为g,求出地球的密度 1.除去试验直接证明,杠杆原理还有什么证明的方法?2.为什么可以把动滑轮看做一个变形的杠杆?3.滑轮组省力的原理是什么?(联系“动滑轮是变形的杠杆”来解释一下.) 锂电池为有只有3.7V的电压?没有1. 自行车轮胎是好的,可过一段时间,气就少了,为什么?提出猜想和设计实验验证过程... 动滑轮实际是一个什么杠杆动滑轮实际是一个( )杠杆。使动滑轮可以( 但不能( )求个位能高诉我这三个空应该填什么 求 中华万年历ios 日期上面的1是什么意思 已知:如图,在△ABC中,∠ACB=90°,点D,F分别在AB,BC上,DF的延长线交AC的延长线于点E,且∠B=∠E.求证:∠ADE=90° 滑轮组怎么绕最省力,一个动滑轮、一个定滑轮 带温度多功能电子万年历如何调时间日期家里有个带温度和收银机的多功能电子万年历,时间和日期都不对了,我想调整一下,但是说明书找不到了.万年历正面的按钮:1.time2.mode3.set万年历背面 自行车为什么会爆胎? 吸铁石吸什么吸力最强想做道具的. 把铁丝截成一小段一小段的放到一个小球中. 用那种银白色的吸铁石吸、、 但吸力不强、、容易掉、、 用吸铁石吸什么东西吸力最强? 公司名称兴雅食品,请教英文翻译 已知:如图,在△ABC中,∠ACB=90°,点D,F分别在AB,BC上,DF的延长线交AC的延长线于点E,且∠B=∠E,求证∠ADE=90° 如图在三角形ABC上分别取D,E两点使BD等于CE连接DE并延长BC的延长线于F,若DF等于3,AC等于6,AB等于4,求EF 在炎热的夏天,自行车胎为什么容易爆裂 实验要有实验器材 实验方法 实验现象 实验结论 为什么夏天,自行车容易爆胎? 动滑轮作为一个杠杆,他的支点总是在变换位置啊 炎热的夏天自行车胎容易爆裂的原因(请用化学中微粒来解释) 为实现全面建设小康社会目标,我们应做好哪些准备? 为什么动滑轮是一个省力杠杆,支点在哪里?为什么? 动物的先天性行为与后天学习行为的异同点 全面建设小康社会目标什么时间实现?我是一名初中生,这是我在一张练习题上见到的,在教科书上找不到答案, 关于动物先天性行为叙述错误的是:A所有动物都有 B动物生来就有的行为 C是可以遗传的 D在同种动物的不同个体间有不同的表现 【说理由哦】 有创意的英语广告我们英语课要高一点活动,需要一些有创意有点子的英语商业广告,还是不要太复杂的了,简单易懂点就行了,不然半天都看不懂还弹什么点子创意呢,呵呵.对了,忘了说了,要 洗涤灵显酸性还是碱性?洗衣粉呢? 磁钢磁铁哪个性强 动滑轮的什麼是杠杆的支点?定滑轮的什么是杠杆的支点? 地球半径R,自转角速度W,地表重力加速度g,发射质量为m的卫星.物体所具有的重力势能的表达式为Ep=GMm[1/R-1/R+H].其中H是物体离地面的高度.计算在什么位置,卫星的机械能最小; 在考虑地球自转的 磁铁可以磁钢吗?磁铁除了可以磁“铁”,还何以磁“钢”吗,或者其他金属. “一个弹簧最大可伸长10cm” 10cm是伸长量还是总长 地球半径为R,自转的角速度为ω,地表重力加速度为g.现在要发射一颗质量为m的人造卫星.物体所具有的重力势能的表达式为Ep=GMm[1/R-1/R+H].其中H是物体离地面的高度.计算在什么位置,卫星的机械 万年历上写的订盟是什么意思 弹簧的总长,原长,伸长是什么 给自行车打气时轮胎内气体分子的动能怎样变化 设计万年历的意义和目的是什么 炎热的夏天自行车胎容易爆裂 是因分子运动加快, (物理)两个物体做相对运动,有没有可能两个物体之间既有滑动摩擦力(或滚动摩擦力),又有静摩擦力如在一个粗糙的斜面上,用力推动物体在水平方向上做直线运动,则此时物体与斜面之间 请问 万年历里说的作灶是什么意思? 限制性酶为什么能识别特定的位点做的一道题上说“因为限制酶本身带有特定的碱基序列所以能识别特定位点”是错误的,答案说因为限制酶本质是蛋白质,完全看不懂啊!究竟这句话哪错了, 滑动,滚动,静,摩擦力? 5000毫安的移动电源 5V 500mha/1A的输出 使用2.5W的用电器 可以使用多久? 破太岁是什么意思 那在动滑轮里面,绳子是杠杆还是动滑轮是杠杆呀 1W毫安时的移动电源能在5W的功率下可以供电多久?- 见谅哈 什么叫破太岁 全面建设小康社会的经济目标是什么?是关于邓小平理论方面的问题 一个电压5V,耗电量2.5W的USB风扇如果插在移动电源1A的地方,开一小时耗电多少毫安? 害太岁和破太岁什么意思? 5层框架结构,独立基础,其基础影响深度大约多深?5层的框架 就如何实现全面建设小康社会的奋斗目标,从经济,文化等方面提出你的建议.从经济,文化三方面 4000毫安时的移动电源输出是5.3V连接一个输出是5V的小风扇一小时消耗的电能是2.5WRT- -大概可以用多少个小时?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘