Question

我试图在屏幕上检测多次点击，基本上是使用B4A SoundPool控件和panel.touch事件创建钢琴般的app来触发声音。
我的问题是，一旦屏幕（或许多代表键盘的面板）被触摸并保持其他人不注册我想我需要使用多点触控库，但我无法弄清楚如何使用它来检测被触摸的多个面板。我不需要动作检测。

这是我目前的代码。使用Sender.Tag作为唯一标识符的所有面板的一个子。我的问题是一个Sub吗？

    Sub pnl_Touch (Action As Int, X As Float, Y As Float)  
        If Action = Activity.ACTION_DOWN Then  
            Dim key As Panel  
            key = Sender  
            Dim note As Int  
            note = key.Tag  
            Dim PlayID As Int  
            PlayID = SP.Play(note,1,1,1,0,1)  
        End If  
    End Sub

Answer 1

是的，Multi-Touch是前进的方向。请参阅Andrew Graham的多点触控库。这是一个有效的例子 - Multi-Touch tutorial

获得乐器的多次触摸或“向下”事件

1 个答案: