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

平铺贴图背景 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
平铺贴图背景 -VB资料
作者:吴斌

为VB窗口增添平铺贴图背景

  “平铺贴图”是Windows壁纸一种经常使用的形式。只要在Windows桌面设置程序中,选择一个Windows自带的图案,或者选择一个自己制作的位图文件并选定“平铺”选项,系统就会将你选择的图案或位图有规则地从左到右、从上到下铺满整个屏幕。其实,通过调用API函数BitBlt,便可轻松自如地为VB应用程序的窗口制作平铺贴图背景。

  BitBlt函数的作用是将位图从一个设备描述表拷贝到另一个与之兼容的设备描述表,它的语法是:BitBlt% (ByVal hDestDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal dwRop&)。其中,参数hDestDC指定目标设备描述表;X和Y指定目标设备描述表中目标矩形左上角的逻辑坐标点;nWidth和nHeight定义被拷贝的矩形图像的宽度和高度;hSrcDC指定目标设备描述表;XSrc和YSrc指定源设备描述表中源矩形左上角的逻辑坐标点;dwRop定义拷贝过程中使用的光栅操作。VB中的Form和PictureBox对象,都有各自相应的设备描述表用于存放它们显示的位图,这些设备描述表可以通过hDC属性存取。由此,我们可以总结出平铺贴图的实现方法:首先,将贴图图案载入一个PictureBox控件的设备描述表,然后,使用BitBlt函数将该设备描述表中的位图重复复制到同一设备描述表中,在复制过程中,通过改变BitBlt函数的X和Y参数控制复制的位置,使位图从左至右从上到下无缝排列,直到设备描述表中的位图尺寸与显示屏幕大小相同为止,最后,将该位图装入Form中显示,就可使该Form具有平铺贴图背景了。下面让我们使用该方法来完成一个实例。

  新建一个VB项目,在缺省窗体Form1中加入一个PictureBox控件Picture1,插入一个模块Module1,在其中加入如下声明语句:

  Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) AsInteger

  Public Const SRCCOPY = &HCC0020

  在项目中加入下列代码:
  Private Sub Form—Load()
   Dim hDCPic As Long
   Dim XPos As Integer
   Dim YPos As Integer
   Dim Ret As Integer
   Dim HeightMax As Integer
   Dim WidthMax As Integer
   Dim WidthPic As Integer
   Dim HeightPic As Integer

  '将位图载入Picture1的设备描述表
   Picture1.ScaleMode = 3
   Picture1.Visible = False
   Picture1.AutoSize = True
   Picture1.AutoRedraw = True

  '在此选择贴图的图案文件
   Picture1.Picture = LoadPicture("tile.bmp")

  '初始化变量
   HeightMax = Screen.Height \ Screen.TwipsPerPixelY
   WidthMax = Screen.Width \ Screen.TwipsPerPixelX
   WidthPic = Picture1.ScaleWidth
   HeightPic = Picture1.ScaleHeight

  '初始化Picture1的设备描述表以接受平铺贴图
   Picture1.AutoSize = False
   Picture1.Height = Screen.Height
   Picture1.Width = Screen.Width
   hDCPic = Picture1.hDC

  '水平拷贝位图生成平铺贴图的第一行
   For XPos = 0 To WidthMax Step WidthPic
     Ret = BitBlt(hDCPic, XPos, 0, WidthPic, HeightPic, hDCPic, 0, 0, SRCCOPY)
   Next

  '垂直拷贝已生成的第一行直至生成整个平铺贴图
   For YPos = HeightPic To HeightMax Step HeightPic
     Ret = BitBlt(hDCPic, 0, YPos, WidthMax, HeightPic, hDCPic, 0, 0, SRCCOPY)
   Next

  '将Picture1中的位图装入Form显示,然后清除Picture1中的位图
   Me.Picture = Picture1.Image
   Picture1.Picture = LoadPicture("")
   Picture1.AutoRedraw = False

  End Sub

 按F5运行,Form1的窗口内就出现了一个平铺贴图背景。
清除山寨和广告应用,“豌豆洗白白”服务上线 谷歌另类“开源” 程度仍不及Facebook和Twitter 想在云中分一份蛋糕? 不妨试试“山寨” 为何乔布斯脾气怪糟 却能让一群最优秀的人为他卖命? 单页Web设计案例+技巧攻略(多图) IE10里的捕捉模式和响应式设计 在“亚马逊商店”出售自己:产品经理这么找工作 【CTO俱乐部第92期】大规模存储与电商架构演化实战分享 刘黎明:PaaS是非主流业务,要与IaaS融合 个人手机游戏开发者之死 为什么苹果的应用审核是个笑话? 程序员性格怪癖是才华横溢的表现,还是危险分子的征兆? JavaScript Source Map详解 8条学习编程的可靠建议 一周消息树:亲爱的GitHub,我们怎么访问不了你? [回顾] 2012年几大编程语言就业趋势分析 研发周报:微软无视W3C 拒绝遵循WebRTC标准 移动周报:夫妻档闯江湖 事业爱情双丰收 当服务器遇见锤子:第六届AWS全球创业大赛落幕 C# DataTable 和List之间相互转换的方法 iPad如何在三年内改变世界 划时代的成果:新DNA存储技术 轻而易举装下世界 谷歌产品设计:Larry Page的魅力革命 开源移动统计工具Countly更新 支持Unity 3D DailyCost传奇设计师访谈,彰显HTML5移动应用优势 如何成为一名架构师? Apache Hadoop集群的安全性架构 Wood Camera开发者访谈:我们如何冲到榜首的 代码审查:程序员内炼之道 Twitter Q1推广告API 收入剑指10亿 Dell:在OpenStack成熟后才会推出服务 如何编写ASP类? servlet调用Oracle,如何使用jdbc直接进行连接?高分相赠 我的2000 pro 总是出现超频保护 大家快来接分了!!!! 怎样让一个窗体总是在桌面的最前面,不会被其他程序的窗口挡住? 送分啦 dshow的入门级问题,请指教 那种开发工具开发效率较高 xp的问题 "处理中的数据超过允许的极限"是怎么回事? 为什么我的.net在建web工程设置断点后无法调试,加上了button后无法显示。谢谢了。 我现在大概有10万资金,可以做什么投资回报比较大呢?? 请教关于动态控件内存释放问题~(老问题新谈,高手请进)~~ SQL的一个问题!(高手请进!!!) 发个笑话,爆笑(转贴) 通过远程视图不能修改记录 cet-8跟英语专业八级是一回事吗? 关于图象处理 急急~~!!在哪儿能下载Flash插件呢!! 如何设定一个窗体的弹出广告在找开后自动关闭 水晶报表一对多问题?? 一个关于表单提交的超级简单,超级奇怪的问题? 怎样实现vb6中datagrid控件的打印 SQL select 语句如何对images进行操作? 怎样实现vb6中datagrid控件的打印 水晶报表一对多问题?? 使用oracle传递日期型数据问题 好好急啊 如何当数据集的纪录移动的时候,触发一个事件,以响应我需要的作的工作?? 有关括号配对,在先求救! c#中制作安装程序,如何包含.net框架程序。 在制作rpm包的过程能不能进行写文件操作,也就是说把我要运行的应用程序的路径写到某个脚本文件中去? 使用VC编一个算法遇到的调试问题,紧急求救! 硬盘分区的问题,help 请问access里有几万条数据,用asp访问,会不会很慢啊? 请问谁有农历的算法,我想写个日历。谢谢! 请问谁有农历的算法,我想写个日历。谢谢! 怎样可以看到内存泄漏以及泄漏多少? 源码示例大搜捕 硬盘分区的问题,紧急help 请教一个插入查询的问题! 头痛的报表问题 如何在vc中定义全局变量 如何实现C的图形文本混排 请问“未将对象引用设置到对象的实例是什么意思啊?” JTable数据模型共享数据 谁有企业对象设计的范例或者结构图或者书,谢谢! 东莞的高程报名电话是多少? Struts问题 我想发消息实现alt+f ,然后按 o 打开文件怎么办? 现在论坛分数很难挣,刚才我看各位有为了分数闹不愉快的,如果实在需要的话找我了. 急?如何设置用户点了确定之后就自动打印页面? 改写句子 Household appliances have changed our lives (反义疑问句)Household appliances have changed our lives,_ 河流水位过低的原因有哪些? x满足什么条件时,下列等式成立.1 │(x-5)+(x-8)│=│x-5│+│x-8│2 │(5x+4)(7x-3)│=(5x+4)(3-7x) 问几道改写句子(初二的)1.Perhaps you'll have no trouble finding it.意思不变You won't ____it,I'm____.2.Eventually Mickey Mouse managed to find the way home.改成意思相反的句子Eventually Mickey Mouse ____the way and ____to get 以下词语的括号里该填什么字?(两个括号里得填相反的字)1.()声()语 2.()衣()食 3.()领()会 4.()钉()铁是填相反的字! 若x+3=1,下列等式成立吗?(1)3=1减x (2)-2(x+3)=-2 (3)x+3/3=1/3 (4)x=1减3根据下列各题的条件,写出仍然成立的等式(1)a=-b+2,两边都加上b(2)3a=2a+1,两边都减去2a(3)a/3=b/2,两边都乘以6最 初二的一道改写句子The meeting room is not large enough to held 2,000 people(改为同义句) 词语:死气()()[括号里填两个一样的字] 设A.和B都是正交阵,证明AB也是正交阵 crowed with 同义词,两空格,Huaihai Road is crowed with people.(同义句)Huaihai Road is __ __people. 什么叫傲气,什么叫傲骨 趣连成语(语文高手进)请你从下面的某一个字开始,不能重复已经走过的路线,使沿途经过的字连接起来,成为首尾相连的八条四字成语,并选择其中的五条加以解释.放山高水长虎归论大篇阔 真理只有一个,那真理性的认识呢?也只有一个吗我今天问老师了,他说真理性的认识就是真理,真理性的认识只有一个。你们说得对还是我老师说的对啊?我现在人都癫了,我觉得你们说得 海贼王中,什么叫霸气? 我想问一下关于四级和六级的问题四级作文考了115……不是说满分是106么……听力220 阅读187 综合63 作文115换成原始分数是多少?每一部分的原始分数是多少四级585考六级的话能有好分数么~很 英语6级提问我4级460分 是不是很难过6级 我12月就想过? 气势雄是什么意思 问问四级是几分,五级是几分.六级是几分啊拜托各位大神 Mauel Pombo is an ambassador at large.这里的at 那么整句句子怎么翻译呢? argue with 等于什么 仿写句子,无论是高深莫测的星空,还是不值一提的灰尘 用一根2米的竹竿来测量一个鱼池的水深,插入泥中三分之一米,露出水面四分之一米,水深多少呢? 蚊子和苍蝇你更痛恨那个 仿写一句话 无论是高深莫测的星空,还是不值一提的灰尘,都是大自然精巧绝伦的艺术品 无论是仿写一句话 无论是高深莫测的星空,还是不值一提的灰尘,都是大自然精巧绝伦的艺术品 无论是 用一根5米长的竹竿来测量一个鱼池的水深,竹竿插入鱼池水底的泥中20分之13米,露出水面12分之5米,水深多少 第六题,详细过程,急……谢了 咧句,无论是高深莫测的星空,还是不值一提的灰尘,都是大自然精巧绝伦的艺术品.仿一句 STUDENT AT LARGE的问题就是作为一个RANSFER STDENT过去的但是因为时间有限,所以只能选择NON DEGREE的情况想问下SAL这个是属于什么情况,学分可以转回到学校还是什么.我没有理清楚思路.附原文:Adult 已知实对称举证A的两个特征根不相等,对应的特征向量分别为,证明:必正交正交 英语翻译一定要一字一句的啊乃者主上幼冲,权阉在内,天纪错易,举动大缪.究人事,考变异,未有甚于此时者也.然而上下之臣,未见有秉德明恤、仗义伏节者.某虽寡昧,谅明公之所必忧也.夫国有 用一根长5米的竹竿测量一个鱼池的水深,竹竿插入鱼池水底的泥中二十分之十三米,露出水面十二分之五米求水深多少米 模仿下面造个句子,排比,急用人生如画,浓墨泼洒,淡泊与浓烈交相辉映;人生如歌,高低迷离,嘈杂与清脆皆成曲目;人生如酒,婉转悠长,醇厚与平淡均沉醉 绿蚁新醅酒,红泥小火炉.晚来天欲雪,能饮一杯无?对其理解不正确的是()1、绿蚁新醅酒,就是指新酿的酒,因未滤清,酒面浮起酒渣,色微绿犹如蚁,称为绿蚁.2、红泥小火炉说的是泥炉既小巧又 I love the blaik mouse.It has large round ears(和为一句) 海贼王里霸气作用详解越具体越好 问问是靠积分还是经验升级的?三级四级五级六级个是多少? 小虎的爸爸用一根两米的竹竿测量鱼池的深度插入泥中3分之2米露出水面3分之2米水是多少米 落寒初忆 就行了 "No distance is too large that love cannot connect. 怎样从图表中判断河流的季节变化特点及原因 操场周长为300米,a与b两位同学长跑,a的速度为3m/sb的速度为10m/s他们两同时同地同向出发,多久在起点相请按物理题格式说明,或者是标明每一步的理由.原题为:操场周长为300米,a与b两位同学长 500¥这种写法对不对? 在括号里填相同的字!拜托帮帮忙!目光()() 气势()() 衣冠()() 信誓()()()()大方 ……仿写句子:无论是令人厌恶的苍蝇和蚊子,还是美丽可人的鲜花绿草;无论是高深莫测的星空,还是……仿写句子:无论是令人厌恶的苍蝇和蚊子,还是美丽可人的鲜花绿草;无论是高深莫 ¥1000.00元这种写法对不对 ()中有() 括号里填一样的字,要2个2个不一样的 为什么要把苍蝇蚊子鲜花绿草星空和灰尘比作艺术品 已知三角形的两边长为2,4,一个角30度,共可画出几个三角形 如果☆代表一个都是非0自然数,得数最大的是().A.☆÷8/9 B.8/9÷☆ C.8/9×☆ D.无法确定 满足罗尔定理的是? 我把一根长4米的竹竿垂直插入鱼塘中竹竿入泥部分是0.5露出水面的部分是1.24米,这个鱼塘水深多少米? 括号里能填什么,必须是两个一样的字眼( )( ) 请用太阳、苍蝇、蚊子,编一个故事 是故事,不是造句 我们要看见东西,必需有( 光在( )沿直线传播,太阳光在大气层中的传播路线是( ).第一个是什么啊? 已知△代表一个非0的自然数,下列算式中得数最大的是( ).A.△÷0.75 B.△x0.75 C.△-0.75. 以下满足罗尔定理的是答案是b,搞不懂, 初二改写句子1.In a few words ,I think we should accept his offer 画线的是In a few words2.Children under five usually travel free on trains3.How many students are absent today 画线的是absent越快越好 一个非0自然数乘一个真分数,得数比原来的自然数( ) f(x)=|x|为什么不满足罗尔定理 巴基斯坦奎达发生爆炸4人死亡土耳其总理要求国际社会帮助解决叙利亚津巴布韦灵车与油罐车相撞20人死亡许其亮与俄罗斯国防部长举行会谈卫计委:非诊治需要不得对儿童开展微量普京被评为全球最有影响力人物 奥巴马马凯会见爱尔兰总理肯尼中国公司赞助安哥拉发展乒乓球运动浙江武义江遭企业偷排 PH值、化学需俄驳日媒报道 称不会与日讨论中国“潜刘云山:确保教育实践活动善始善终、善中央第九巡视组进驻三峡集团开展巡视工国信办主任鲁炜:网聚正能量 共筑中国保加利亚查获大宗贩毒案巴基斯坦西南部发生爆炸袭击 造成至少全球十佳旅游城市排名揭晓 上海第六巴日美拟明年将普天间空中加油机转往岩国中国“北斗”即将在泰国落地使用宁夏“10·14”灭门杀人案犯罪嫌疑中组部:干部离退休3年内不得到原管辖杭州一大妈在城市空地种2000余株罂永定河文化节首推西山雅集永定河文化节首推西山雅集公告板河内刺汪 (下)北京阅读季找新家踏歌启征程进口牛奶更好?别迷信!到2020年福建23个城市空气优良天北京奥运健儿夺金创纪录全市严查学校医院周边环境卫生“剧情确实俗套,但不刻意迎合观众”数千华侨华人上街抗议治安恶化三项“北京智造”纳入国家试点示范第二批入额法官拟定550人丁宁擎旗 好有福气2020年本市九成公共数据免费开放封育半世纪,40处野林变景点地采矿山工人下井须配自救器商贩择机摆摊挡道致脏乱星河湾业主被跟踪案两绑匪获刑
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘