VB开发触摸屏程序，怎么实现按钮的浮动

VB开发触摸屏程序，如何实现按钮的浮动
如何实现，点击一个按钮，然后按钮凹下去，手移开按钮再弹起来？（注：触摸屏只有Click事件，Mousedown，Mouseup都不能实现这个功能）

[解决办法]
应该可以的呀，要不你新建一个工程，在窗口中粘贴以下代码，看看能不能看到三个信，如果能，表示这些事件已经触发，效果看不出来是你的程序效率或设计问题，代码如下：

VB code

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    Line (0, 0)-(Me.Width, Me.FontSize * 15), &H8000000F, BF    Me.CurrentX = 0    Me.CurrentY = 0    Print "MouseDown Button:" & Button & "  X:" & X & "  Y:" & YEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    Line (0, Me.FontSize * 15 + 15)-(Me.Width, (Me.FontSize * 15) * 2), &H8000000F, BF    Me.CurrentX = 0    Me.CurrentY = Me.FontSize * 15    Print "MouseMove Button:" & Button & "  X:" & X & "  Y:" & YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)    Line (0, (Me.FontSize * 15) * 2 + 15)-(Me.Width, (Me.FontSize * 15) * 3), &H8000000F, BF    Me.CurrentX = 0    Me.CurrentY = (Me.FontSize * 15) * 2    Print "MouseUp Button:" & Button & "  X:" & X & "  Y:" & YEnd Sub
[解决办法]
探讨


你这个问题涉及到触摸屏的硬件，因为点击触摸屏相当于点击鼠标，但是从屏幕的一个点到另一个点用鼠标操作是移动的，鼠标有移动轨迹，而触摸屏是跳跃的，中间没有移动轨迹，因此也就没有MouseMove、Mousedown和Mouseup这几个功能。要实现你的这个功能估计需要电容屏和win8或安卓操作系统支持吧。

[解决办法]
你先看看是不是你的触摸屏有问题，比如换一个屏看看效果，就用我说的方式处理，以最简单的方式测试，不要试图自己写复杂的效果先，这点很重要。因为图形程序的处理会根据程序的过程或硬件的配置以及系统资源占用的情况在时间上有着很大的变化。把这些不稳定因素排除后单纯测试触摸屏，看看是不是触摸屏的问题。如果在这种环境测试触摸屏还是这种情况，建议你换个驱动或设备，要不就只有用定时器了。如果不是你说的情况，那么你可以考虑更换配置高的PC来跑程序或注意图形处理上的一些技术使用。还有个建议，就是用 Flash 来做这种效果，如果你对 GDI/GDI+ 技术不是很了解的情况，用 Flash 来做图形处理可以提高很多效率上的问题，不过提一下，Flash 会有内存增长问题，注意使用。