[高1]使用ACCESS实现滑块slider控件的效果

tmtony

使用ACCESS来模拟实现滑块slider控件的效果，具体效果请参见下图：

要求效果要平滑，且使用纯ACCESS程序编写，不能使用第三方控件，例程最好能够辅以运行效果，如使用slider滑块来实时改变一个文本框的颜色，或实现进程条的效果等。

ui

很难做，拖动不好实现呢

WTM1

access中好像有这样的控件吗？？？

Roadbeg

我先报名,不知竞赛截止日期是哪一天?
一周两次,是不是星期三进行评选?

cg1

应该不难，先传一个，但是还请大家踊跃投稿！


另外，这也是我出的一道题目，请大家帮忙看看，怎么才能看到源代码？

[此贴子已经被作者于2003-4-7 12:38:05编辑过]

WTM1

好！但是没有效果提示！
不错不错！简单明白，稍微修改，必有大用！请改进！

李寻欢

这是你的代码吧？
Private Sub Form_Open(Cancel As Integer)
标签1.ControlTipText = ""
End Sub

Private Sub 标签1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button > 0 And X <> 0 Then
        If 标签1.Left + 标签1.Width / 2 + X > 直线0.Left And 标签1.Left + 标签1.Width / 2 + X < 直线0.Left + 直线0.Width Then
            标签1.Left = 标签1.Left + X
        Debug.Print X
        End If
    End If

End Sub

Roadbeg

这是我做的.本想做得更全面一点
但cg1兄既然已发表了自己的,我也不好意思老赖着不动,毕竟我是报了名的.

[此贴子已经被作者于2003-4-7 14:17:58编辑过]

cg1

可是为啥我自己看不见代码哪？奇怪

你是怎么看的，我在家里做好，到单位就是打不开，说我没权限，晕

李寻欢

我新建了个一个窗体，然后进入新建窗体的代码模式，就可看到你那个窗体的代码了。