Question

我正在研究一个问题，其中触摸屏控件在自制数字键盘上的行为异常。此数字键盘有两种变体，一种是密码框，另一种是用于普通（可见）数字输入的。

该项目本身非常复杂，正在使用许多不同的窗口。

从主窗口中调用密码窗口和数字窗口时，它们的功能都很好，但是，从程序下方的窗口中调用数字键盘（或密码框，我尝试过两者）时，情况会有所改善。。

在Windows 10（开发PC）和Windows 7（活动PC）上会出现问题。

问题描述：

当尝试按下按钮时，按钮单击事件似乎没有响应。 反复点击它们后，这些按钮最终将开始按预期起作用。一旦按钮起作用，它们将保持起作用，直到关闭窗口。由于时间，动作，...

使用鼠标时，窗口运行良好。

我需要使用触摸板和鼠标才能使程序正常运行（当然，不能同时使用）。

我尝试过的方法：

处理窗口上的着陆事件，并使用位置坐标来确定应按下哪个按钮。

这有效，但对于触摸屏仅。按钮仍然没有积极反应，但是触地事件背后的代码按预期运行。

但是，这会中断鼠标的使用。

通过位置坐标处理TouchDown和MouseLeftButtonDown

非常适合鼠标，适用于触摸屏... 直到触摸屏在每个按下的按钮上触发两次为止。然后，触摸屏既触发TouchDown事件，又触发MouseLeftButtonDown事件。与以前相同，一旦开始触发两次，它将继续触发两次。

通过位置坐标处理MouseLeftButtonDown，而忽略TouchDown

与默认的Button单击事件完全相同。触摸屏只有在正常工作后才能正常工作，一旦正常工作就可以正常工作。

在TouchDown或PreviewTouchDown事件处理程序上调用Mouse.Synchronise（）

将此视为解决类似问题（尽管问题不同）的解决方案，但最终没有解决任何事情。

在捕获的Touchdown和MouseLeftButtonDown处理程序上将e.Handled = true设置

与原始情况相同。

IsManipulationEnabled =“ true”

什么都没改变。

代码：

设计器：

<Window x:Class="NumericKeyPad"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    xmlns:local="clr-namespace:REDACTEDNAME"
    mc:Ignorable="d"
    Title="NumericKeyPad" Height="400" Width="400">
<DockPanel Name="DockPanel" HorizontalAlignment="Stretch" VerticalAlignment="Stretch" PreviewMouseLeftButtonDown="NumericKeyPad_MouseLeftButtonDown">
   <Grid>
    <Grid HorizontalAlignment="Stretch" VerticalAlignment="Stretch" >
        <Grid.RowDefinitions>
            <RowDefinition Height="10*"></RowDefinition>
            <RowDefinition Height="10*"></RowDefinition>
            <RowDefinition Height="10*"></RowDefinition>
            <RowDefinition Height="10*"></RowDefinition>
            <RowDefinition Height="10*"></RowDefinition>
        </Grid.RowDefinitions>
        <Grid.ColumnDefinitions>
            <ColumnDefinition Width="73*"></ColumnDefinition>
            <ColumnDefinition Width="7*"></ColumnDefinition>
            <ColumnDefinition Width="66*"/>
            <ColumnDefinition Width="73*"></ColumnDefinition>
            <ColumnDefinition Width="73*"></ColumnDefinition>
        </Grid.ColumnDefinitions>
        <TextBlock Name="Textblock" FontSize="24" HorizontalAlignment="Stretch" VerticalAlignment="Center" TextWrapping="Wrap" Text="" Margin="10,10,30,0" TextAlignment="Center" Grid.ColumnSpan="5"/>
        <Button Content="1" FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="1" Grid.Column="0"  />
        <Button Content="2" FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="1" Grid.Column="1"  Grid.ColumnSpan="2"/>
        <Button Content="3" FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="1" Grid.Column="3" />
        <Button Content="4" FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="2" Grid.Column="0" />
        <Button Content="5" FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="2" Grid.Column="1"  Grid.ColumnSpan="2"/>
        <Button Content="6" FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="2" Grid.Column="3" />
        <Button Content="7" FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="3" Grid.Column="0" />
        <Button Content="8" FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="3" Grid.Column="1"  Grid.ColumnSpan="2"/>
        <Button Content="9" FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="3" Grid.Column="3" />
        <Button Content="0" FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="4" Grid.Column="0"  Grid.ColumnSpan="3"  />
        <Button Content="," FontSize="20" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="4" Grid.Column="3" />

        <Button Content="Back" FontSize="16" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="1" Grid.Column="4" Grid.RowSpan="2" />
        <Button Content="Enter" FontSize="16" HorizontalAlignment="Stretch"  Margin="0,0,0,0" VerticalAlignment="Stretch"  HorizontalContentAlignment="Center" VerticalContentAlignment="Center" Grid.Row="3" Grid.Column="4" Grid.RowSpan="2" />
    </Grid>

</Grid> 
</DockPanel>

代码：

Public Class NumericKeyPad
Public Property NewValue As String

Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
    Try
        Dim btn As Button = CType(sender, Button)
        NewValue = NewValue + btn.Content.ToString()
        Textblock.Text = NewValue
    Catch ex As Exception
        Worker.WriteLog("NumericKeyPad : Button_Click : " & ex.ToString(), "erro")
    End Try

End Sub

Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
    Try

        Textblock.Text = NewValue
    Catch ex As Exception
        Worker.WriteLog("NumericKeyPad : Window_Loaded : " & ex.ToString(), "erro")
    End Try
End Sub

Private Sub ButtonBack_Click(sender As Object, e As RoutedEventArgs)
    Try
        If (NewValue.Length > 0) Then
            NewValue = NewValue.Substring(0, NewValue.Length - 1)
            Textblock.Text = NewValue
        End If

    Catch ex As Exception
        Worker.WriteLog("NumericKeyPad : ButtonBack_Click : " & ex.ToString(), "erro")
    End Try
End Sub

Private Sub ButtonEnter_Click(sender As Object, e As RoutedEventArgs)
    Try
        Me.Close()
    Catch ex As Exception
        Worker.WriteLog("NumericKeyPad : ButtonEnter_Click : " & ex.ToString(), "erro")
    End Try
End Sub

Private Sub Textblock_IsVisibleChanged(sender As Object, e As DependencyPropertyChangedEventArgs) Handles Textblock.IsVisibleChanged
    Try
        Textblock.Text = NewValue
    Catch ex As Exception
        Worker.WriteLog("NumericKeyPad : Textblock_IsVisibleChanged : " & ex.ToString(), "erro")
    End Try
End Sub

Private Sub NumericKeyPad_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
    Try
        Me.Focus()
    Catch ex As Exception
        Worker.WriteLog("NumericKeyPad : NumericKeyPad_Loaded : " & ex.ToString(), "erro")
    End Try
End Sub



Private Sub NumericKeyPad_TouchDown(sender As Object, e As TouchEventArgs) Handles Me.TouchDown
    Try
        Dim position As Point = e.GetTouchPoint(Me.DockPanel).Position

        HandlePoint(position)

    Catch ex As Exception
        Worker.WriteLog("NumericKeyPad : NumericKeyPad_TouchDown : " & ex.ToString(), "erro")
    End Try

End Sub

Private Sub NumericKeyPad_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs)
    'Try
    '    Dim position As Point = e.GetPosition(Me.DockPanel)

    '    HandlePoint(position)

    'Catch ex As Exception
    '    Worker.WriteLog("NumericKeyPad : NumericKeyPad_MouseLeftButtonDown : " & ex.ToString(), "erro")
    'End Try
End Sub

Private Sub HandlePoint(position As Point)
    Try

        Debug.WriteLine("position : " & position.X & " , " & position.Y)

        'determine where the touch event happened

        Dim place As String = ""

        Dim width As Double = Me.DockPanel.ActualWidth
        Dim height As Double = Me.DockPanel.ActualHeight

        'determine row
        Dim section As Double = height / 5.0
        Dim sectionCol As Double = width / 4.0

        Select Case True
            Case position.Y >= 0 And position.Y <= section 'Row 0
                place = "textfield"
            Case position.Y > section And position.Y <= section * 2 '1-2-3-BACK
                Select Case True
                    Case position.X >= 0 And position.X <= sectionCol 'Col 0
                        place = "1"
                    Case position.X > sectionCol And position.X <= sectionCol * 2 'Col 1
                        place = "2"
                    Case position.X > sectionCol * 2 And position.X <= sectionCol * 3 'Col 2
                        place = "3"
                    Case position.X > sectionCol * 3 And position.X <= sectionCol * 4 'Col 3
                        place = "bckspce"
                End Select

            Case position.Y > section * 2 And position.Y <= section * 3 '4-5-6-BACK
                Select Case True
                    Case position.X >= 0 And position.X <= sectionCol
                        place = "4"
                    Case position.X > sectionCol And position.X <= sectionCol * 2
                        place = "5"
                    Case position.X > sectionCol * 2 And position.X <= sectionCol * 3
                        place = "6"
                    Case position.X > sectionCol * 3 And position.X <= sectionCol * 4
                        place = "bckspce"
                End Select

            Case position.Y > section * 3 And position.Y <= section * 4 '7-8-9-Ent
                Select Case True
                    Case position.X >= 0 And position.X <= sectionCol
                        place = "7"
                    Case position.X > sectionCol And position.X <= sectionCol * 2
                        place = "8"
                    Case position.X > sectionCol * 2 And position.X <= sectionCol * 3
                        place = "9"
                    Case position.X > sectionCol * 3 And position.X <= sectionCol * 4
                        place = "entr"
                End Select

            Case position.Y > section * 4 And position.Y <= section * 5 'NULL-cma-Ent
                Select Case True
                    Case position.X >= 0 And position.X <= sectionCol
                        place = "0"
                    Case position.X > sectionCol And position.X <= sectionCol * 2
                        place = "0"
                    Case position.X > sectionCol * 2 And position.X <= sectionCol * 3
                        place = "cmma"
                    Case position.X > sectionCol * 3 And position.X <= sectionCol * 4
                        place = "entr"
                End Select
        End Select

        Select Case place
            Case "0"
                NewValue = NewValue + "0"
                Textblock.Text = NewValue
            Case "1"
                NewValue = NewValue + "1"
                Textblock.Text = NewValue
            Case "2"
                NewValue = NewValue + "2"
                Textblock.Text = NewValue
            Case "3"
                NewValue = NewValue + "3"
                Textblock.Text = NewValue
            Case "4"
                NewValue = NewValue + "4"
                Textblock.Text = NewValue
            Case "5"
                NewValue = NewValue + "5"
                Textblock.Text = NewValue
            Case "6"
                NewValue = NewValue + "6"
                Textblock.Text = NewValue
            Case "7"
                NewValue = NewValue + "7"
                Textblock.Text = NewValue
            Case "8"
                NewValue = NewValue + "8"
                Textblock.Text = NewValue
            Case "9"
                NewValue = NewValue + "9"
                Textblock.Text = NewValue
            Case "entr"
                Me.Close()
            Case "bckspce"
                If (NewValue.Length > 0) Then
                    NewValue = NewValue.Substring(0, NewValue.Length - 1)
                    Textblock.Text = NewValue
                End If
            Case "cmma"
                NewValue = NewValue + ","
                Textblock.Text = NewValue
            Case Else
                'Do nothing
        End Select
    Catch ex As Exception
        Worker.WriteLog("NumericKeyPad : HandlePoint : " & ex.ToString(), "erro")
    End Try
End Sub

有人对导致此问题的原因以及如何解决有任何线索吗？

预先感谢

VB.net WPF ::触摸屏无法持续触发Click（）或其他鼠标事件

0 个答案: