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

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

 

大掌门与阿里云和解:云生态系统呼之欲出 刘有涛:恩信科技云计算大潮中扬帆起航 Cloudera释放Impala 1.0:与Hadoop完全整合,各方面完爆Hive 云通讯平台:让你的应用会说话 触宝用户过亿,CEO王佳梁常说的词是“创新” 全国电脑健康日启动 360搭建电脑维修开放平台 C语言实现归并排序 360石晓虹:针对移动Apps的DDoS攻击将成重大威胁 更社交化:谷歌将推出Google Play平台服务 C语言对磁盘文件进行快速排序 传Google已关闭短信搜索服务 PayPal首席安全官:靠密码验证身份即将寿终正寝 DRM你又赢了:其API纳入HTML5标准 豌豆荚王俊煜:洗白白其实是一个计划外的产物 抢Google等巨头生意,纽约大学小伙挖掘并出售自己数据 noBackend:前端优先的开发模式 C、CPP const 详解 三星5G技术获得突破性进展 未来传输速度可达10Gbps 5月14日:1984年美国社交网站Facebook创办人Mark Zuckerberg出生 Chartkick:一行代码即可绘制出漂亮的图表 用友UAP将打造开放平台 建应用商店销售企业级应用 共享软件营销:如何将你的产品推向海外 谷歌使用Debian Linux作为GCE的默认操作系统 大数据?别唬人了!我们真的需要盲目烧钱追求大数据吗? 日本社交手游公司GREE巨星陨落 中国区全员被裁 战歌:85后手游开发团队背后的故事 分秒钟做款App:细数国内外在线DIY应用网站 指点传媒CEO专访:紧握二三线市场用户命脉 专访Waygo创始人:白切鸡怎么翻译? 探究共享软件海外营销新策略(西安站) 讲师秀8:车音网沈康麒和他的智能驾车服务 关于某种文件关联的问题 为什么用net send发送的消息有关不掉,点了好多次确定也没用。 怎么保存到数据库中?急急急! 电脑出问题了。 tomcat4.01+apache2.046组合问题:单个的都能运行,...可以加分.. %u的问题 如何调整对话框上工具栏的状态 关于query控件的一个问题 如何结束一个线程? FastReport怎么将没有记录的地方也画上格子??? 我的oracle9装上去之后怎么有7。2G那么大??并且还连不上MANAGEMENT SERVER只能独立启动??请指教!! Fastreport与quickreport那个更好用? 进者有分. 强烈要求铲除全国所有的收容所!!! 要用什么软件才能将CMOS参数备份到某个文件夹中? 请问怎么在建表代码里定义关键字? 请问把数据写入ListView控件内,有什么办法可以快点? win2k server dns 求助! 我在易趣上竞的一个数码相机,只要250元,但是只能拍26张相。我不知道是真是假? 一个搞不定的恶意网站 cout与printf的问题 没有路由怎样用一台服务器实现300台左右的电脑上网? ResultSet里读出数据的参数问题,马上给分 netvt(唯她 v1.1.1),进来拿你应得的分 如果我的程序中用了VFP,但是用户可能并没有装VFP,有什么好的办法直接替用户解决了这个问题,而不是提醒他自己去装 怎么保存到数据库中?急急急! 我用treeview显示数据库的数据,增加一条新记录后,要怎么样才能马上在treeview显示? 无法传值问题,高手急救!!!!!!!!! 在线等待:怎么为datagrid控件的某一格赋值? 请教如何在input上传筐里面限制文件类型? java的图形设计比如swing有前途吗?大家来讨论下,迷惑中。。。 计算机静电问题!! 错误在那里 请教批量update出错问题 请问串口方面的? QQ使用MFC42.DLL, 数据库的记录有文本、有图片、我想给它排成word样式的A4版预览、再打印如何实现 请问,如何在Form中画图啊??/ 水晶报表问题。急呀!! 一个奇怪的问题 TreeNode控件有折叠下一级节点这个命令吗? 大家好,请帮忙提供在C#中做帮助文件的好的方法或网站吗?谢谢了 QQ发送信息老是附加一个网址,有什么办法搞定它? 操作系统挂了,重装后如何恢复ORACLE DATA? 初学不懂:调用ActiveXObject("Microsoft.XMLHTTP") 时用的什么命名空间? 创建临时表 有关页面显示的问题,进来吧,高手们! 为什么我在VC调试一个程序提示出错后,在调整一个正确的程序也提示有错误,是怎么回事,是要在VC里设置什么吗 EJB Transaction problem? 内存不可读错误,是GobalAlloc分配内存失败么? 请教高手,如何在ASP的新闻发布管理系统中实现表格和图片随意的插入到新闻文本中。 请教:有谁用过 XMLHTTP 或者 HttpWebRequest ? 成长的桥阅读文中画横线的句子在文中起什么作用大神们帮帮忙 关于运动的合成与分解,以下说法正确的是( ) A.一个匀加速直线运动可以分解为两个匀加速直线运动 B.一个匀减速直线运动可以分解为方向相反的匀速运动和初速度为零的匀加速直线运动 C 120磅~~~~~~~~~~~~~~~~~120磅等于多少斤呀? 文中画横线的句子爸爸的花儿落了有什么含义它与文章要表现的中心有什么关系拜托各位大神 诈骗的定义是什么警察不找他他不是会还钱的,在说他和我签的合同,可是房子是他妈妈的. 龟鹤共用100个头,350只脚,龟,鹤各多少只?方程题带解设 解释画横线的句子(宋国后面还有有一个“笑”) 网络诈骗的含义是什么 小明放一群鸭子,岸上的只数是水中的3/4,从水中上岸15只后,水中的只数与岸上的只数同样多,这群鸭子一共有多少只? 哪位大神可以给我解释一下图中画横线的那句话是什么意思?~~::>_ 十百千,猜四字成语 龟鹤共有100个头.350只脚.龟.鹤各有多少只?为什么不列方程式.假设法有理论支持吗. 有限集合A=B的充要条件是什么?全题叫:有限集合S中元素个数记作card(S).设A、B都为有限集合,判断下列正误.我只问问A=B的充要条件是card(A)=card(B)为什么是错误的?正确的应该是什么? 尔虞我诈的意思是? 小明放一群鸭子,岸上的只数是水中的四分之三,从水中上岸15只后,水中的只数与岸上的相同,这群鸭子共有几 氢气有几个质子阿我还知道你们是怎么只到你们是怎么知道化学元素的质子数阿 必须用记的嘛 韩愈 早春呈水部张十八员外(其二)的赏析是什么? 集合与充要条件的关系为什么A是B的真子集,A就是B的充分条件,B是A的必要条件? 要是总有人跟你说,哟哟切克闹,切克闹啊切克闹. 求几道容易出错的高二物理题要求容易出错 电影“万有引力”片头文章那段是在哪个机场拍的? 哟哟切克闹什么意思 龟鹤共有100个头,350只脚.龟,鹤各多少只?列方程,要准确解说 龟鹤同笼,共有51个头,172只脚,请问龟、鹤各有多少只?最好用列方程,毕竟我也才5年级 哪里出来的? 在2~9中,不管如何放置,镜子中的像都和原来数字一样的是 龟鹤同笼共有51只头,172只脚,请问龟与鹤各有多少只 画横线的题求解答 龟,鹤共有200只眼睛,350只脚.龟,鹤各有多少只?用方程解 龟鹤同笼,共有51之只,172只脚,龟鹤各有多少只 嘿哟哟哟,切克闹,切克闹 在数字3~9中,不管如何放置,镜子中的像都和原来的数字一样的是( ). 龟鹤同笼,共有51只头、172只脚,请问:龟与鹤各有多少只?用方程解答 哟哟,切克闹. C语言解决应用题 龟鹤共有100个头,350只脚.龟、鹤各多少只?C语言解决 龟鹤共有100个头,350只脚.龟、鹤各多少只?怎样用C语言得出答案啊 .····求源码 鸽子多少天出 【高一数学集合部分】“xy>0”的一个充要条件是__________1.“xy>0”的一个充要条件是__________2.集合A={x|-20是x2+y2>0的 ____ 条件6.集合A={x|-2<x≤1},U={x|x≤3},则CuA=_______7.x属于A交B______x属 万有引力是在哪里拍摄的?文章演的那个,知道的告诉下, 风烛残年的含义? 某船从O处出发,沿北偏东60'方向行驶至A,又向正东方向行驶至C,再朝与出发相反的方向行驶至B,求∠ACB的度数快.这是一道关于平行线的性质的题目...可能要用到同位角,内错角,同旁内角的... 万有引力中,文章戴的手表是什么牌子,哪个型号的? 风烛残年 的对应成语是什么 设集合A=(-无穷大,1],集合B(2a+1,4a)(1)若A交B=空集,求a的取值范围(2)若A并B=A,求a的取值范围 《万有引力》里文章机场那段之后就没有了吗? 风烛残年是什么意思 有H-、NH2+、H3O+离子吗?有什么反应? 求道高二物理题在光滑绝缘的水平面上有一个不导电的弹簧,弹簧的两端分别与金属小球A,B相连,若A.B带上等量同种电荷,弹簧伸长x1,若让A.B所带电量都曾为原来的2倍,弹簧的伸长量为x2,则x1与x2 同一直线上的两个力作用在同一物体上.关于它们的合力下列说法正确的是( )A.合力一定大于其中的任何一个力B.合力一定等于这两个力的大小之和C.合力可能小于其中的任何一个力D. 1.6g NH2-离子中所含电子数 鼻子红的长长的背上有黄又有绿的是什么动物 在做“互成角度的两个力的合成”实验时,以下说法中正确的有( ).如题 谢谢了A. 用两只弹簧测力计拉橡皮条时,应使两细绳之间的夹角为90°,以便算出合力的大小 B. 用两只弹簧测力计拉时,结 英语翻译阿门 我甘愿为我犯过的罪作出应有的惩罚 只愿 我所爱的人过上安乐生活 一艘船沿正东方向航行,行至A处折向南偏东60°方向航行,行至B处后,若该船仍向正 设A,B为两个集合.且A∪B=B,的充要条件? 25℃、l0lkPa下,22.4L氢气含质子的数目为3NA, 蓄意诈骗的定义我公司与一家厂家签订了一批货物!全额付款后对方只发给我公司不到1/3的货,我公司一再催促对方发货!时间转眼过了四个月了还是没见对方发出货物!要求其退款也迟迟未见退 集合A与集合B互不包含但有公共部分(关于充要条件的问题)那么X属于A是X属于B的____条件 这个是什么星系? 关于诈骗的定义本人与人合作项目,给对方发货物.对方承诺货到结款.结果货到了两车只是把运费付清,货款一直没有结.本人出于无奈让对方出具了一份欠条.请问这样构不构成诈骗?我目前应该 龟鹤共有100个头.350只脚.龟.鹤各有多少只?用替换法解 金正恩接见朝鲜军人建设者 盛赞其英雄普京治下的“俄式反腐”值得借鉴教皇方济各电话被曝长期遭美国国安局监ABC主持人就辱华言论双手合十鞠躬道港媒:中国将会从美国国家安全局丑闻中菲律宾万圣节举行“重口味”游行(高清日舰强闯我演习区滞留70小时军事专家:极易致误判误撞和擦枪走火“死亡线”上的护路铁军亚航如此对待它的全球第二大市场美潜入雅虎谷歌狂盗数据澳使馆为美国搜集亚太情报斯诺登谋得俄网站工作巴西首富变成穷光蛋:16个月300亿“最有权力人物”排行榜 普京“战胜”中国军队以开放态度迎接互联网花莲6.7级地震致1伤 为台湾今年来广西回应米粉店枪杀案:嫌犯带枪系执行杭州40岁已婚男扮21岁女大学生约2花莲6.3级地震无重大灾情 目前仅传连鞠两躬,美主持人再向华人道歉剑桥学子“汉韵剑影”活动弘扬中华之美浙江一6岁女孩遭24岁父亲打死今日电影他的13岁生日礼物是到农村砍柴喂猪放去日本抢购的马桶盖或有以下特点: 产夹缝中求生存新学期到校一看 我们教室装空调了乌拉圭新总统巴斯克斯宣誓就职美宇航员太空“三连走” 头盔再现积水新疆沙湾县大泉村:排练节目喜迎“三八美军无人机操纵员:空军设独立兵种发飞沧州:羊年春节近4万市民图书馆里过大澳洲白人歧视华人被赶出门 称“不吃中国资背景P2P金融平台优势显现新西兰主流媒体刊文宣传中文周 不少华波士顿爆炸案将开审 控辩方关注嫌犯是沪指一度翻绿跌破3300点 空气治理巴西华人举行自行车巡游等系列活动庆新情场失意 80后男子怒烧20辆车合肥一小伙持刀捅自己 伤及心脏债权“睡眠” 一万元保证金无法讨回
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘