2

我有这个代码

Private Sub PortField_KeyPress(sender As Object, e As KeyPressEventArgs) Handles PortField.KeyPress
    If (Not IsNumeric(e.KeyChar)) Then
        e.KeyChar = ChrW(0)
        ToolTip1.Show("N'entrez que des chiffres, merci.", PortField, 103, 10, 1000)
    End If
End Sub

因此,当事件被触发(写一封信)时,它应该在我询问的位置显示一个工具提示。

问题是工具提示,当我单击一个字母键时会出现这样的 错了一个

但是当我双击一个字母键时,它看起来像这样 好一个

所以我不明白为什么它不起作用,我可以使用一些帮助谢谢

4

1 回答 1

2

调用它两次,第一次为空:

ToolTip1.Show(String.Empty, PortField, 0)
ToolTip1.Show("N'entrez que des chiffres, merci.", PortField, 103, 10, 1000)
于 2013-11-08T00:43:35.933 回答