Vb.net isrepeat&x201C;不是KeyEventArgs”;
使用VB 2017。 我有一个从“很多”文本框填充的表单。为了管理它们,我编写了以下代码:Vb.net isrepeat&x201C;不是KeyEventArgs”;,vb.net,Vb.net,使用VB 2017。 我有一个从“很多”文本框填充的表单。为了管理它们,我编写了以下代码: Private enCellBiger As IEnumerable(Of TextBox) ……………………………………. enCellBiger = From textbox In Me.Controls.OfType(Of TextBox)() Where textbox.Name.Substring(2, 8) = "_TextBox"
Private enCellBiger As IEnumerable(Of TextBox)
…………………………………….
enCellBiger = From textbox In Me.Controls.OfType(Of TextBox)()
Where textbox.Name.Substring(2, 8) = "_TextBox"
Order By textbox.Name
For Each BigEnmrtdID In enCellBiger
AddHandler BigEnmrtdID.PreviewKeyDown, AddressOf BigPrvwKeyDwn
AddHandler BigEnmrtdID.KeyDown, AddressOf BigKeyDwn
AddHandler BigEnmrtdID.KeyPress, AddressOf BigKeyPrss
AddHandler BigEnmrtdID.Enter, AddressOf BigEnter
AddHandler BigEnmrtdID.Leave, AddressOf BigLeave
AddHandler BigEnmrtdID.DoubleClick, AddressOf Big2Click
Next
………………………………….
Private Sub BigPrvwKeyDwn(sender As Object, e As PreviewKeyDownEventArgs)
Select Case (e.KeyCode)
Case Keys.Down, Keys.Up, Keys.Left, Keys.Right, Keys.Tab
e.IsInputKey = True
End Select
End Sub
……………………………………………….
Private Sub BigKeyDwn(sender As Object, e As KeyEventArgs)
Select Case (e.KeyCode)
Case Keys.Back
…………
Case Keys.Tab, Keys.Down, Keys.Up, Keys.Left, Keys.Right
…………
Case Else
…………
End Select
End Sub
它可以按需要工作。
现在我需要扩展Sub-BigKeyDwn,允许跟踪重复按下的键“0”(零)。因此,我对代码进行了如下修改:
Select Case (e.KeyCode)
Case Keys.Back
…………
Case Keys.Tab, Keys.Down, Keys.Up, Keys.Left, Keys.Right
…………
Case Keys.D0, Keys.NumPad0
If e.isrepeat Then
…………
End If
Case Else
…………
End Select
从e.isrepeat的调试器中,我得到信息“isrepeat不是KeyEventArgs的成员”。
我无法理解和/或管理。有人能帮忙吗
请理解我不是VB专家
提前感谢。BigKeyDwn用于不包含isrepeat属性的e。。。我不知道你希望它在哪里。甚至没有。KeyEventArgs不是PreviewKeyDownEventArgs。不同的事件,不同的事件参数不同的组合“…允许跟踪键“0”(零)反复按下…”以更好地解释:“当按下键0时…”的意思。System.Windows.Input用于WPF,而不是使用System.Windows.Form的winform