②每隔n个位置从图像数据中提取一个数据，组成新的图像数据，得到数据是原来的n分之一 。
③把新的图像数据生成图片


代码如下：


Dim Path = "/sdcard/pictures/f.jpg"Dim NewPath = "/sdcard/pictures/f1.jpg"dim PicSize = Image.Size(Path)Dim x=PicSize[1]Dim y=PicSize[2]Dim n=5 //缩放倍数Dim PixelData =https://www.520longzhigu.com/diannao/Image.GetPicData(Path)Dim NewPixelData= Image.GetScreenData(1,1,int(x/n),int(y/n))For j = 1 To int(x/n)For i = 1 To int(y/n)For k = 1 To 3NewPixelData[j][i][k]=PixelData[j*5][i*5][k]NextNextNextImage.SavePixelData NewPixelData, NewPath


效果展示：




代码里面有个缩放倍数变量，你可以直接修改成你需要的倍数，原本想把截图缩放也写一下，后来想想，那不就是先截图保存下来，然后在把图片缩放吗，原理都一样，就没必要写了 。

以上关于本文的内容，仅作参考！温馨提示：如遇健康、疾病相关的问题，请您及时就医或请专业人士给予相关指导!

• 买手机还在选苹果 买手机苹果版好还是安卓版好
• 如何通过屏幕大按钮控制手机 手机电话按键怎么放大
• 天猫精灵有什么功能 天猫精灵是什么
• 大哥大按键机也可刷抖音和微信
• 小米手机按键隐藏的3个功能 小米怎么隐藏按键
• 鱼龙王
• 小米K40游戏手机 小米K40游戏手机游戏按键有什么用
• 按键精灵好用 按键精灵怎么用啊
• 都市精灵
• 魔兽世界怀旧服精灵怎么去暴风城 暴风城怎么去铁炉堡