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

曲线绘制

http://www.vbgood.com/viewthread.php?tid=89044&extra=page%3D1 --------------------编程问答-------------------- 附件: 您所在的用户组无法下载或查看附件
--------------------编程问答-------------------- slider 的事情应该可以解决。
只是不知道你的‘曲线’是要如何移动。
--------------------编程问答-------------------- slider 的事情应该这样解决:
'新建一个标准EXE工程
'加入两个 Slider :上面的是 Slider1;下面的是 Slider2
Option Explicit

Private Sub Form_Load()

    '下面的属性,默认是 0,可以不写:
    'Slider1.Min = 0
    'Slider1.Min = 0
    '下面的属性,可以在设计确定。这里就可以不写代码了.
    Slider1.Max = 200
    Slider2.Max = 200
    
End Sub

Private Sub Slider1_Scroll()
    
    Dim i&
    
    i = Me.Slider2.Value
    If (Slider1.Value > i) Then Slider1.Value = i

End Sub

Private Sub Slider2_Scroll()
    
    Dim i&
    
    i = Me.Slider1.Value
    If (Slider2.Value < i) Then Slider2.Value = i

End Sub

--------------------编程问答-------------------- 十分谢谢Chen8013的回复现在就剩曲线的的问题了
就是移动上面的slider使左边的那段弧线左右移动,移动下面的slider使右边的弧线向左右移动
当两边的弧线成抛物线时,左边的那段弧线只能向左移动,右边的弧线只能向右移动
--------------------编程问答-------------------- http://www.vbgood.com/viewthread.php?tid=89044&extra=page%3D1更新 --------------------编程问答--------------------
引用 5 楼 like_328 的回复:
http://www.vbgood.com/viewthread.php?tid=89044&extra=page%3D1更新

没发现什么更新............

难道我去注册一个帐号? -_-!!!


===================================================
你的弧线是怎样画的?

要怎样移?
(整体直接平移?还是左端点移动,右端点不动,移动左端点后仍然是光滑弧线连接?)

判断“两边的弧线成抛物线”的依据是什么?
(你不可能让我们来‘实时识别弧线轨迹’吧!!!)
--------------------编程问答-------------------- 左端点移动,右端点不动 --------------------编程问答-------------------- 唉,我没兴趣挤牙膏...............
--------------------编程问答-------------------- 还是等别的高人给你猜出解决方法吧!

友情Up............
--------------------编程问答-------------------- 还是很感谢你的 --------------------编程问答-------------------- 帮顶
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,