曲线绘制
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更新 --------------------编程问答--------------------
没发现什么更新............
难道我去注册一个帐号? -_-!!!
===================================================
你的弧线是怎样画的?
要怎样移?
(整体直接平移?还是左端点移动,右端点不动,移动左端点后仍然是光滑弧线连接?)
判断“两边的弧线成抛物线”的依据是什么?
(你不可能让我们来‘实时识别弧线轨迹’吧!!!)
--------------------编程问答-------------------- 左端点移动,右端点不动 --------------------编程问答-------------------- 唉,我没兴趣挤牙膏...............
--------------------编程问答-------------------- 还是等别的高人给你猜出解决方法吧!
友情Up............
--------------------编程问答-------------------- 还是很感谢你的 --------------------编程问答-------------------- 帮顶
补充:VB , 基础类