高分求解：图形放大问题

Question

    Dim width5  As Long, heigh5 As Long, rgb5 As Long
    Dim hdc5 As Long, i As Long, j As Long, hdc6 As Long
    Dim bBlue As Long, bRed As Long, bGreen As Long
    Dim y As Long
    
    width5 = Picture1.ScaleWidth
    heigh5 = Picture1.ScaleHeight
    hdc5 = Picture1.hdc
    hdc6 = Picture3.hdc
    For i = 0 To width5 - 1
        For j = 0 To heigh5 - 1            rgb5 = GetPixel(hdc5, i, j)            SetPixelV hdc6, i * 2, j * 2, rgb5
            SetPixelV hdc6, i * 2, j * 2 + 1, rgb5
            SetPixelV hdc6, i * 2 + 1, j * 2, rgb5
            SetPixelV hdc6, i * 2 + 1, j * 2 + 1, rgb5
        Next j
    Next i
    Set Picture3.Picture = Picture3.Image

Answer 1

搜索一下以前的贴子,有zyl910做的精彩程序-平滑放大
或者到www.dapha.net里面找

Answer 2

http://expert.csdn.net/Expert/topic/1183/1183347.xml?temp=.9776728
纯用高级语言写的最快的图像平滑缩放程序。
如果只是单纯的用汇编写按照处理公式写（即不进行特殊指令优化），我的程序比汇编写的还快下载：
http://wangfeng.5ivb.net/zyl910/zyl910_Scale.zip一般方法写的，看看速度差多少倍（我这里是160倍（确实无%））：http://wangfeng.5ivb.net/zyl910/Old_Scale.zip

Answer 3

这个问题早就该放到 FAQ 里去了http://expert.csdn.net/Expert/topic/1151/1151556.xml?temp=.842724to :zyl910(910：分儿，我来了！)  偶对你在图形图象上的造诣很佩服。

Answer 4

诸位想得太难了，我首要的问题是画一条斜线，平滑没锯齿（我用api和picture1.line方法画的斜线都有锯齿），请赐教
  楼上能帮我解决吗？别不屑，要不我怎末一个三角呢

Answer 5

http://www.21code.com/codebase/?pos=down&id=2100源码类型： VisualBasic源码-图形方面
上传时间： 2002-10-06
下载次数： 59
源码大小： 61 KB源码简介：VB中平滑消除图片锯齿的纯VB代码解决方法和演示

Answer 6

zyl910 前辈，万分感谢
希望你能常回答我的问题
结贴

Answer 7

除了zyl910提供的连接能找到外，其他总联不上，有的联上也不合适