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

实现图片平铺于窗体中-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

 

感受华为IT业务的实力 小米雷军:我为什么做红米? GitHub上线Trending功能,帮你轻松找到有潜力的开源项目 如私人秘书:谷歌搜索将变得更加个性化 微软将于10月17日正式发布Windows 8.1 Google推出在线教育C2C平台Helpouts 技术人员组团参加SDCC 2013的十个理由 继BAT之后 第四大巨头是谁 如果传统IT部门真的消亡,你该何去何从? 闪存突袭,混合储存是否已步入黄昏 Cloudera发布Hadoop开源组件Sentry:提供细粒度基于角色的安全控制 我从其他Shell脚本中学到了什么? 10个调试和排错的小建议 机器学习的时代来临,人类应该做点什么? 云端测试破1500万 Testin已为开发者省2亿 智能腕表inWatch:已发售近3600台 Bingo!微软证实Windows 8.1将捆绑安装Skype IBM宣布收购以色列网络安全公司Trusteer 约10亿美元 如何才能运作好一个开源项目? 为什么JavaScript有能力成为未来企业级编程语言? Red Hat CEO:拥抱开源 拥抱克隆 小米手机-HAXLR8on硬件黑客马拉松 开团了! 移动周报:雷军做红米的N个理由 Pangea Software CEO:08年App Store游戏降价大战的真相 揭秘MongoDB最新Java驱动:更好的JVM支持,指日可期的异步 不仅只有IE Mozilla将于发布Win8平台Metro版Firefox 360搜索发布新产品“我的搜索” 引入网民评价和网站名片功能 AppScale:Google App Engine的开源实现 近期十大优秀jQuery插件推荐 通过语音识别来编程 速度远超键盘 BrowserStack:多系统跨浏览器兼容性测试工具API发布 帮帮忙好吗? 二个关于字符串中对子串的替换与删除的问题? 怎样实现虚构造函数? 请问各位高手,手机图片和手机铃声是什么格式的?在电脑上能不能打开?应该怎么制作? 请大家帮个忙,有个小问题,如何用showmessage输出括号内的内容('%K%')?在线等待 A simple problem!? 救命,对话框显示的奇怪问题!!! An error 1069 (由于登录而无法启动服务器) 请问为什么向Oracle表里加不上记录? 我在局域网中用些东西常被主机防火墙隔了,有什么办法绕过防火墙 谁有MPEG-LAYER3的详细资料或连接? 我用一些软件如音乐大师等,一打开程序,该程序窗口就被关闭了,而在光盘上进行都可以? 如何判断一个大整数是素数,如何找出整数的模逆 怎样使用C#做互相通信的client/server程序 image类型字段,如何用update命令更新 请问指针的指针,二维数组,指针数组,之间有何区别 PB数据库连接字符串的问题 如何购买NFS软件,是Windows pc 访问AIX用的? 请囊相授求mcsd信息 为什么对话框程序最小化时占用内存会减少很多呢?(VC6) 备份主域控制器加入后,登陆不进去了 新手上路,DDE的,绝对给分!!! 帮帮我 怎样修改一个窗口的系统菜单? 怎样将自己做的ASP.NET程序放到IIS服务器上去?服务器需要怎么配置? 在线等待一个问题!!!解决问题就散帖 关于NETANT的有不健康连接的通知????? 一个关于SQL_Server2000复制时发生的问题,请大家帮忙!(在线等待) 当我删除一条记录时会跳出错误,谁帮我看看 请囊相授求帮助 对这个程序实现上大家有什么想法? 触发器一行更新与多行更新有什么区别 请问如何能让我的Cricheditctrl最多输入100个字符???谢谢!!!!! 关于向数据库中插入时间的问题 在局域网中如何判断是否连到服务器?(用delphi) 有没有嘉兴的高手?QQ13136276mailsunrace@163.com 150分:怎样实现类似Delphi中的TClass.Create的功能? 请大家给我这个oracle初学者一些入门指点(偏重Developer 和discoverer方面) 请教! 关于winnt4的救命问题,如何共享上网? 急!!小弟现在用midas做一个三层的系统,用Dcom连接,但是在客户端连接服务器说类字符串未注册 关于选择菜单的这个功能怎么实现 高分求书:用DELPHI搞数据库的书! 关于Potoshop编程的有关问题,知道的请进! 如何改变列表题背景颜色,数据窗口控件用的是动态sql语句。 如何把unsigned long型的对方IP地址,设在ClientSocket的IP中 开发游戏软件一般要用到什么编程工具和编程语言? 为什么 semaphore 和 event variables 是不好的? 在dos下,如何用汇编语句获知XXX盘符是否为网络盘或本地盘或substed盘??? 如何实现字符串种的准确查询! 灰头土脸的问 关于爱国思乡的诗句 一个晒盐场用600千克海水晒出18千克盐.如果一块盐田一次放入485000吨海水,那么可以晒出多少吨盐? 甲乙两个仓库共有化肥48吨,如果甲仓库运出百分之二十,乙仓库运进2.4吨,那来两个仓库相等,各有多少吨? 表达思乡爱国的诗具体 蜜蜂踉50克蜂蜜要采8000次,平均采一次花粉要粮蜂蜜多少?50除以8000=1/160 甲乙两个仓库有化肥48吨,甲运出20﹪,乙运进2.4吨,这时甲乙化肥一样多,甲乙原来有多少化肥? like和ae 的词性与用法 意思是看起来像 有1块合金铜,含铜和锌,铜占锌60%,加入锌8克后,锌比铜多75%.求原来锌有多少克 英语题 -------lily and lucy from beijing? -------Yes,-----------A.DO:they do. B.Are:they are 英语语法小问题,It sound like a train.其中like的词性是什么?这是什么用法, 如何确定一种动物属于昆虫 Lucy and Lily have long hair.Am i right?A.Yes,they are.B.Yes ,they do.C,yes they does. 做一个长12厘米,宽6厘米,高5厘米的长方体框架,至少需要铁丝多少厘米?在这个框架外做一个长12厘米,宽6厘米,高5厘米的长方体框架,至少需要铁丝多少厘米?在这个框架外糊一层纸,至少需要( Lucy and Lily look the same.(改为同义句)Lucy_____ _____ Lily Lily and Lucy are twins.They have the same l___ 一个晒盐厂用100克海水可晒出3克盐,如果一块盐田放入5850吨海水,可晒出多少吨盐? Lily and Lucy look the same.(写出同义句)Lily ___ ___ Lucy shoes和a pair of shoes的单复数怎么区分 一个晒盐场用100克海水可以晒3克盐.如果一块盐田一次放入5850吨海水,可以晒出多少吨盐?急啊!快,在线等! Lucy and Lily look the same改为同义句是:Lucy and Lily is have______ _______ ______.以上怎么填? 1.lily and lucy are c______.they are in the same class.2.we enjoy c___________with each other on the Internet 一块长方形的菜地,有一条长边靠墙,其他三边用竹篱笆围起来,这块菜地的长为30CM,宽为16CM.这道题其中一问:如果不靠墙,用竹篱笆围一块正方形菜地,菜地有多少平方米?应该怎样理解? Lucy and Lily look the same.变同义句 甲、乙两车分别从A、B两地相对开出,甲车每小时行96千米,乙车每小时行88千米.相遇时,距A、B两地的中点40千米.A、B两地一共相距多少千米? like father like son 中like的词性Like father like son 中两个like的词性? Lucy and Lily look the same.(改为同一句) 甲乙两辆车分别从AB两地相向而行,甲车每小时行驶96千米,乙车每小时行驶88千米.甲乙两车相遇时距离AB两地的中点40千米,问AB两地的距离. feel like中like 当feel like后跟从句的时候like的词性是连词吧那当feel like doingfeel like sth的时候like的词性是什么?是介词么?如果是介词的话like的词义又是什么呢?我在牛高里查的说做为介词的时 她去买冰淇淋 用英语怎么说? 晚上睡前喝一杯蜂蜜水好吗? 用铁丝做一个长10厘米,宽5厘米,高3厘米的长方体框架 至少需要多长的铁丝必须有算式, 五个月小孩可以喝蒙牛未来星儿童成长牛奶呢?或者别的牛奶,多大小孩适合喝牛奶 有甲、乙两个粮仓,甲乙存粮是乙仓的4倍,从甲仓中运出115/4吨,往乙仓中运进4.25吨,两仓存粮吨数正好相等.甲、乙两个粮仓原来各存粮多少吨? 用铁丝做一个长、宽、高分别是10厘米、5厘米、3厘米的长方体框架,至少要多少厘米的铁丝?如果将它做一个无盖的铁盒,并使盖口尽量小,那么至少要多少平方厘米的铁皮? 甲乙两个仓库共有化肥42吨,如果从甲库中取出2吨,两库就相等.求甲乙两库原有化肥多少吨? If your uncle's sister is not your aunt,who is she?想一想猜一猜 蔡志忠 关于橘子 作文素材 Lucy look like Lily.怎么改同义句 apple,tea,egg,banana中哪个不可数 一个晒盐场用100&海水可以晒出3&盐.照这样计算,如果一块盐田一次放入58500吨海水,可以晒出多少吨?多少吨海水可以晒出9吨盐? Lucy ____(look) like Lily.They look the same. noodle potato tomato rice egg哪个可数哪个不可数哪个即可数又不可数 (1+3+5+.+2001+2009)-(2+4+6+.+2000+2008) “这还有一个冰淇淋.”用英语怎么说 鸡蛋 egg 是可数还是不可数?(是two eggs 还是two egg?) 李大爷有一块平行四边形的菜地,一边紧靠围墙.他准备在菜地的四周围上篱笆,篱笆的长度应是多少这块菜地的面积是多少 Lucy and Lily like watching TV的同义句 甲乙两车分别从两地相对开出,甲车每时行96千米,乙车每时行88千米,相遇时的地点距两地中点40千米,两地相距多少千米? 把bob likes hamburgers改为一般疑问句.急 like做“像”的意思时,它的词性为? 甲乙两车同时从AB不两地相对开岀,甲车每小时行驶96千米,乙车每小时行驶88千米.相遇时距A、B两地的中点有40千米.A、B两地相距多少千米.’ Linda likes hamburgers for dinner.(改为一般疑问句) like father like son中的like是什么词性?Like father like son中的like是什么词性? She likes milk.怎么改成一般疑问并作肯定句 Frank likes hamburgers for breakfast改为特殊疑问句划线的是hamburgers 甲乙两个仓库共有化肥48吨,甲仓运出20%,乙仓运进2.4吨,两仓库的化肥正好相等,甲乙仓库各有化肥多少吨要算试的 the pair of jeans后的谓语动词应用是单数还是复数? David likes some hamburgers and salad(改为一般疑问句) 甲乙两仓库有48吨化肥,如果从甲仓库运出20%,乙仓运进2.要讲清为什麽? a pair of ...后面谓语动词什么时候用复数,什么时候用单数?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘