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

实现图片平铺于窗体中-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
实现图片平铺于窗体中-VB资料

  很多软件的界面并不是单调的一种颜色填充的,而是有一幅美丽的底图平铺于窗体中。能否用 VB 实现这样的效果呢?作案是肯定的。

  为了实现这一效果,请先把form的picture属性设为你想平铺的图片,然后把以下代码加入,就可以了(注意form的AutoRedraw必须为False)。
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020
Private Sub Form_Paint()
Dim x As Integer, y As Integer, d As Long
Dim pHeight As Integer, pWidth As Integer
ScaleMode = 3
pHeight = 32  '这里最好设为图片的高度
pWidth = 32  '这里设为图片的宽度
For x = 0 To ScaleWidth Step pWidth
For y = 0 To ScaleHeight Step pHeight
d = BitBlt(hDC, x, y, pWidth, pHeight, hDC, 0, 0, SRCCOPY)
Next y
Next x
End Sub

 

第14届英特尔投资全球峰会 新投16个项目逐一看 2013中国Linux内核开发者大会亮点汇总 UnitedStack:用社区的方式做IT 手游狂潮:小团队如何提高游戏数据化运营效率? 2012年全美CEO收入榜:扎克伯格第一、库克第五、Marc Benioff第九 专访:InMobi全球CEO Naveen Tewari MDCC 2013精彩专题论坛之产品与设计 中关村大型IT人才招聘会举办 现场火爆 [简讯]新代码编辑器Lime发布 号称Sublime Text的开源实现 从真实案例出发:如何在协作开发中避免误解! Google工程师谈程序员的自我修养 依然很强大:微软第一财季净利润同比增17% MDCC 2013垂直行业应用与O2O专题论坛透露劲爆话题 专访豌豆荚产品设计团队:Design Hackathon是绞尽脑汁之后的海阔天空 首日报名爆满超300 向C++大师Lippman提问征集 做华为合伙人:华为开发者联盟沙龙(北京站)即将开幕 Windows XP发行12周年 我仍年轻而你已垂暮 2013浏览器市场份额:Chrome领衔,Firefox、IE相去甚远 人人网陈弢:从RecSys2013看大数据和移动给推荐系统带来的挑战 继续紧逼Oracle:在占领谷歌等公司之后,MariaDB迈向企业端 移动周报:十款最实用的Android UI设计工具 阿里巴巴CTO王坚:开发者精神是云计算与移动互联网的“信仰” 黑客老鹰:安全软件同样需要用户体验 六届中国大数据技术大会PPT精粹(二) 专访百度蒋凡:从RecSys2013大会看推荐系统发展新趋势 Hike副总裁杜中强:携手阿里云OS,拥抱云时代 玩蟹科技CEO叶凯:手游和云计算的合作相得益彰 倒计时20天!金玩奖各大奖项花落谁家由你主宰 宅男程序员福利:来自纽约的28位智慧与美貌并存的IT女神 创季度记录:苹果发布第四季财报 iPhone仍是苹果商业心脏 在破晓中行走:一位盲人开发的盲人应用 高分求救::关于分类显示的问题. c#里的编辑列的激活事件写在哪里? 一个基础小测验 如何获取客户端机器物理内存大小?急!!! 急问:我的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 ,它的功能是什么? 仍怜故乡水,万里送行舟.的后一句是什么 请问手机按键上的井号如何翻译? derivative instruments是什么意思 上面一个不,下面一个十.这是一个什么字?怎么读? 《桃夭》1.每章开头的“桃之夭夭”运用的是什么写法?其作用是什么?2.这首诗的主要内容是什么?3.本诗在《诗经》中很有名,你读完这首诗后,认为此诗为大多数人所熟知的原因有哪些? 孔子为什么被称为万世之师? 孔子为什么被后人称为万世之师 孔子,人称“万世之师”用概括性的语言有条理地介绍一下(至少写出三个方面) 内什么外什么填反义词 内的反义词是“外”,那“里”的反义是什么呢? 若函数f(x)在[a,b]上连续,a 蒙古国总统启程访朝 成金正恩执政后首韩国整容手术事故层出不穷 整容共和国美国处方药价格高昂 民众被迫违法购外俄民调:超六成民众认为俄中存在多方面加拿大机场现可疑包裹 警方搜查机场附墨西哥20岁男子贩毒杀害数十人 墨警美将军称驻阿富汗部队将经由俄罗斯领空初步计票结果显示格执政联盟候选人赢得日本当红人气女星素颜谁最美?安倍称日本要当亚太领袖 做好抗衡中国斯诺登曝光了美国间谍术语过钱江二桥去萧山机场在边境修建乌俄“隔离墙”绿色小芝,朴素之美这一天,民间文化动起来伊尔-76军用运输机编辑提醒他叫“不灵的”,其实蛮灵的51岁的姜文,47岁的妮可油卡权当送他们“加油”乌克兰军机被民间武装击落浙江:大客车和越野车隧道中相撞 4死飙升超级监狱系统杀戮者传奇御女戒指怪力乱神命运崩坏之夜冷情首席的小娇妻祭爱网游之黑夜传说武斗玄尊随身带着帝国军队松既古镇旅游七星伴月旅游平安壮寨旅游遇龙河旅游黄布倒影旅游九马画山旅游杨堤旅游玻璃桥旅游日月双塔旅游榕湖杉湖旅游两江四湖旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘