急！vb曲线左移的问题！先谢谢了

Question

曲线画到picturebox的右边缘！正条曲线没有左移！帮忙啊！
以下是代码:
            Dim y1 As Single
            If x >= Picture1.ScaleWidth Then
               BitBlt Picture1.hDC, 0, 0, Picture1.ScaleWidth - 1, Picture1.ScaleHeight, Picture1.hDC, 2, 0, &HCC0020
'           End If
            y1 = CInt(Sin((x - Picture1.Left) / 20 / 180 * pi) * Picture1.ScaleHeight / 2)
            y1 = CInt((Picture1.ScaleHeight - 20) / 2) - y1
            y1 = (sngYValue - y1) / sngYValue * Picture1.ScaleHeight '根据量程转变成具体坐标
            Picture1.Line (x, y)-(x + 20, y1)
            x = x + 20
            y = y1

Answer 1

没仔细看你得程序，此类程序一般如下：
1： 设置PICTURE控件得属性，AUTOREDRAW=TRUE; SCALEMODE=PIXEL等等
2：计算起点位置
3：在新位置画线或者画点（画完要REFRESH）
4：平移（也要refresh）
5：重复3，4两步直到最后
6：保存
楼主看看有没有遗漏什么PICTURE控件可以直接用PIANTPICTURE方法来平移，不必再用BITBLT得

Answer 2

WallesCai,可以说的更详细一些么？或者给出一个例子好么？谢谢!

Answer 3

一、如果你的 Picture1.scalemode = vbtwips，那么通常要 15twips = 1pixels，移动 1twips 等于没移，一定要用 scalemode = vbpixels。
二、在 BitBlt 左移 2 个坐标后，x 的值也应该 -2，否则就是在区域外绘图了