我试图检测屏幕上的多次点击,基本上是为了使用 B4A SoundPool 控件和 panel.touch 事件来触发声音来创建类似钢琴的应用程序。
我的问题是,一旦触摸并按住屏幕(或许多代表键盘的面板),其他人就不会注册。
我想我需要使用多点触控库,但我不知道如何使用它来检测被触摸的多个面板。我不需要运动检测。
这是我当前的代码。使用 Sender.Tag 作为唯一标识符的所有面板的一个子。一个子是我的问题吗?
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