PSet
Put图形语句的参数，选择PSet作为blitting方法
Put [ target , ] [ STEP ] ( x ,y ), source [ ,( x1 ,y1 )-( x2 ,y2 ) ], PSet
PSet
PSet方法将源像素值复制到目标像素上。
这是最简单的Put方法。目标缓冲区中的像素将直接用源缓冲区中的像素覆盖。没有其他操作完成，没有被视为透明的颜色值。它与PSetting每个像素分别具有相同的效果。
语法
Put [ target , ] [ STEP ] ( x ,y ), source [ ,( x1 ,y1 )-( x2 ,y2 ) ], PSet
参数
PSet
需要。
说明
PSet方法将源像素值复制到目标像素上。
这是最简单的Put方法。目标缓冲区中的像素将直接用源缓冲区中的像素覆盖。没有其他操作完成，没有被视为透明的颜色值。它与PSetting每个像素分别具有相同的效果。
例子
''设置屏幕：320 * 200，每像素16位
ScreenRes 320, 200, 16
Line (0, 0)-(319, 199), RGB(0, 128, 255), bf
''以掩模颜色为背景设置图像。
Dim img As Any Ptr = ImageCreate( 33, 33, RGB(255, 0, 255) )
Circle img, (16, 16), 15, RGB(255, 255, 0), , , 1, f
Circle img, (10, 10), 3, RGB( 0, 0, 0), , , 2, f
Circle img, (23, 10), 3, RGB( 0, 0, 0), , , 2, f
Circle img, (16, 18), 10, RGB( 0, 0, 0), 3.14, 6.28
Dim As Integer x = 160 - 16, y = 100 - 16
''用PSET放图像
Put (x, y), img, PSet
''释放图像内存
ImageDestroy img
''等待按键
Sleep
ScreenRes 320, 200, 16
Line (0, 0)-(319, 199), RGB(0, 128, 255), bf
''以掩模颜色为背景设置图像。
Dim img As Any Ptr = ImageCreate( 33, 33, RGB(255, 0, 255) )
Circle img, (16, 16), 15, RGB(255, 255, 0), , , 1, f
Circle img, (10, 10), 3, RGB( 0, 0, 0), , , 2, f
Circle img, (23, 10), 3, RGB( 0, 0, 0), , , 2, f
Circle img, (16, 18), 10, RGB( 0, 0, 0), 3.14, 6.28
Dim As Integer x = 160 - 16, y = 100 - 16
''用PSET放图像
Put (x, y), img, PSet
''释放图像内存
ImageDestroy img
''等待按键
Sleep
与QB差别
- 没有
参考