第二個全屏
第三個鼠標按下繪圖框事件
在第四次mouseup中寫入結束框,並將picture1的大小設置為與該框相同的大小。
dim kkk壹樣長
對於i=1到框寬-1步15 '因為VB的15單位等於壹個像素。
對於k=1到箱高-1步驟15。
Kkk= form1.pont (i,k)'獲取I點和k點的顏色。
忘了那個把kkk轉換成RGB的吧。自己去搜吧。。。。
picture1.pset(i,k),rgb(R,G,B)
保存圖片picture 1 . picture " c:\ 1 . jpg "