题目
sub声明 帮忙解释下这段代码的意思,
Sub xiex(startX As Single,endX As Single,_
startY As Single,endY As Single,Xstep As String,_
ystep As Single,picX As Single,picY As Single)
Picture1.Cls
Dim XX As Single
XX = startY + ystep
For i = startX To endX Step Xstep
XX = XX - ystep
BitBlt Picture1.hdc,i,XX,Picture1.Width,Picture1.Height,_
Hmemdc,picX,picY,vbSrcCopy
delay 0.01
Next i
DeleteObject OldDc
DeleteObject Hmemdc
End Sub
Sub xiex(startX As Single,endX As Single,_
startY As Single,endY As Single,Xstep As String,_
ystep As Single,picX As Single,picY As Single)
Picture1.Cls
Dim XX As Single
XX = startY + ystep
For i = startX To endX Step Xstep
XX = XX - ystep
BitBlt Picture1.hdc,i,XX,Picture1.Width,Picture1.Height,_
Hmemdc,picX,picY,vbSrcCopy
delay 0.01
Next i
DeleteObject OldDc
DeleteObject Hmemdc
End Sub
提问时间:2021-02-02
答案
BitBlt Picture1.hdc,i,XX,Picture1.Width,Picture1.Height,_
Hmemdc,picX,picY,vbSrcCopy
这句应该加括号吧?
BitBlt (Picture1.hdc,i,XX,Picture1.Width,Picture1.Height,_
Hmemdc,picX,picY,vbSrcCopy)
意思是把 Hmemdc中左上角坐标为(picX,picY)的,宽度、高度分别为Picture1.Width,Picture1.Height的图片保存到Picture1.hdc的左上角坐标为(i,XX)的位置上 .
i和XX每0.01秒变化一次,沿斜线移动,这样图像也就每0.01秒沿斜线运动一下了.运动轨迹从(startX,startY)到(endX,endY).
Hmemdc,picX,picY,vbSrcCopy
这句应该加括号吧?
BitBlt (Picture1.hdc,i,XX,Picture1.Width,Picture1.Height,_
Hmemdc,picX,picY,vbSrcCopy)
意思是把 Hmemdc中左上角坐标为(picX,picY)的,宽度、高度分别为Picture1.Width,Picture1.Height的图片保存到Picture1.hdc的左上角坐标为(i,XX)的位置上 .
i和XX每0.01秒变化一次,沿斜线移动,这样图像也就每0.01秒沿斜线运动一下了.运动轨迹从(startX,startY)到(endX,endY).
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1英语作文.题目:My Favourite Season
- 2清江影都上个月放映一部儿童片,最后一天,每张票降低6元,观众增加了,收入增加了24%,原来一张电影票( )元.
- 3从21起的3个连续奇数是:21、____、___、 从30起的3个连续奇数是:30、____、___、
- 4关于CL2 通入H2SO3 HBR
- 5某养鱼户春季在鱼塘中放养鱼苗10万尾,9月份进行一次试捕,共捕鱼320条,测得平均体重0.82kg,对每条鱼做好标记后,放回鱼塘,继续饲养;过了20天,进行第二次试捕,共捕鱼300条,其中仅有一条有标
- 6从地球乘坐像光速一样的飞船要多长时间才能到达月球?
- 7求过点(1,2,-3)并与平面3x-2y+2z+3=0的垂直直线方程
- 8英语翻译
- 9长度单位从大到小中"厘米"后面是什么?再后面又是什么呢?
- 10已知1²+2²+3²+…25²=5525,那么2²+4²+6²…+50²=?
热门考点
- 1求证sin10度,cos10度,tan10度为无理数?求教
- 2非齐次微分方程(高手进)
- 3趣填方位词,组成词语.
- 4甲数是乙数的5倍,乙数是丙数的6倍,那么甲数是丙数的多少倍?
- 5已知函数f(x)=(x3-6x2+3x+t)ex,t∈R. (1)若函数y=f(x)依次在x=a,x=b,x=c(a<b<c)处取到极值. ①求t的取值范围; ②若a+c=2b2,求t的值. (2)若
- 6测定空气中氧含量的方法有几种?最简单易行的是哪种?
- 7青的字面意思
- 827+36sinx=32cos^2x,x大于等于0度小于等于360度,求所有结果的和.
- 9She look___ the good in them
- 10A happy New Year to you and_from me and_ A.yours;mineB.yours;IC.yourselves;myselfD.yours;myself