当前位置:编程学习 > VB >>

跪求高手!关于用键盘向下键改变曲线上点值的大小

我从dat文件里读取了两列数据存放到两个数组里x(9),y(9),每个数组长度为10,用x(i)和y(i)构成一点,然后用picturebox控件画出了图,求如何用键盘向下和向上键来改变这几个点值大小(曲线上改变),向左向右跳到上一个或下一个点,让整个曲线更平稳,并同时在文本框内显示该点的坐标值。本人新手,不知道用鼠标捕捉曲线上的点还是用键盘捕捉。 --------------------编程问答--------------------
Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case vbKeyLeft
                当前点 = 当前点 - 1
               If 当前点 = -1 Then 当前点 = 0
        Case vbKeyRight
                当前点 = 当前点 + 1
                If 当前点 = 10 Then 当前点 = 9
        Case vbKeyUp
                x(当前点) = x(当前点) + 1
        Case vbKeyDown
                x(当前点) = x(当前点) - 1
End Select
Picture1.Cls
Call 画所有点
End Sub
--------------------编程问答-------------------- 直接在Excel里面手动
补充:VB ,  非技术类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,