| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1019 人关注过本帖
标题:[求助]关于API(bitblt)
只看楼主 加入收藏
编程新贵
Rank: 1
等 级:新手上路
帖 子:98
专家分:0
注 册:2006-8-11
收藏
 问题点数:0 回复次数:3 
[求助]关于API(bitblt)
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
......
......
For i = 0 To 2
Value(i) = Int(Rnd * 6)
BitBlt picValue(i).hDC, 0, 0, 32, 32, Picture1.hDC, Value(i) * 32, 0, vbSrcCopy
Next

......
......
  前面过程我省略了,大体意思就是将 Picture1的图片随机切割6分,分到3个数组控件picValue中.
但是我不明白的事就是图片的实际width是2880,height是480,而函数中红色部分是32的大小切割,
我不明白bitblt函数中分割方式是以什么为单位的,请高手指教下,谢谢!
搜索更多相关主题的帖子: API bitblt 
2006-09-06 11:31
yeshirow
Rank: 4
等 级:贵宾
威 望:10
帖 子:854
专家分:0
注 册:2006-6-8
收藏
得分:0 

Pixel 的單位.
默認情況下 VB 是以 vbTwips 爲單位的, 可以先將 ScaleMode 屬性設置爲 vbPixels


原來朋友仔感情再天真, 亦是我永遠也會愛惜的人, 明日愛他人, 也記住學會不要緊; 原來朋友比戀人更高分, 亦讓我開始懂得不記恨, 若大家都敏感, 我更要永遠記得拒絕再因小事怪人, 爲何沒有這條校訓...Twins-朋友仔 MCSD Training
2006-09-06 11:45
编程新贵
Rank: 1
等 级:新手上路
帖 子:98
专家分:0
注 册:2006-8-11
收藏
得分:0 
好的谢谢
2006-09-06 18:17
ydft
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-9-7
收藏
得分:0 

嘿嘿,yeshirow真是厉害啊,到处能看到你救火呢!

2006-09-07 11:56
快速回复:[求助]关于API(bitblt)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015435 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved