第二 全屏
第三mousedown寫畫方框事件
第四 mouseup裏寫結束方框,將picture1的尺寸設到與方框等大
dim kkk as long
for i=1 to 方框的寬度-1 step 15 '因為VB的15個單位等於壹像素
for k=1 to 方框的高度-1 step 15
kkk= form1.pont (i,k) '獲取i,k點的顏色
這個把kkk轉換為RGB的忘了,自己搜下吧。。。。
picture1.pset(i,k),rgb(R,G,B)
savepicture picture1.picture "c:\1.jpg"