C# と VB.NET の質問掲示板

■No70147 (Yoko さん) に返信


> Showメソッドというのがあったので
> ToolTip.Show(Me.TextBox1.Text, Me)
> のようにしてみましたが、コントロール上にポインターがあっても、
> 一定時間経つと非表示になってしまいます。

とのことですので３パターンほど検証してみました。

環境
Win8.1
VB2008
.NET 3.5 SP

フォームに4つのテキストボックスとツールチップを設置し以下のソースを張り付けてみてください。
（各種コントロールのプロパティはデフォルトのままです。）
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Public Class Form1

    Private Sub TextBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseEnter
        Me.ToolTip1.Show("あ", TextBox1)
    End Sub

    Private Sub TextBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseLeave
        Me.ToolTip1.Hide(TextBox1)
    End Sub

    Private Sub TextBox2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.MouseEnter
        Me.ToolTip1.Show("いい", TextBox3)
    End Sub

    Private Sub TextBox2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.MouseLeave
        Me.ToolTip1.Hide(TextBox3)
    End Sub

    Private Sub TextBox4_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.Enter
        Me.ToolTip1.Show("ううう", TextBox4)
    End Sub

    Private Sub TextBox4_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.Leave
        Me.ToolTip1.Hide(TextBox4)
    End Sub

End Class
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

【パターン１】
質問者さんが行ったであろうパターンです。
→確かに自動で消えました。

【パターン２】
ものは試しで、パターン１とほぼ同じですが、
Showメソッドを呼び出す際の第２引数を自分自身じゃないコントロールを指定してみました。
→時間が経っても消えませんでした。

【パターン３】
ものは試しで、パターン１とほぼ同じですが、
呼び出すイベントをMouseEnterイベントではなく、Enterイベントにしてみました。
→Tabキーでフォーカスを当てると表示され、時間が経っても消えませんでした。

直接的な解決にはなりませんが、
逃げ道orヒントには使えないでしょうか？


ちなみにToolTipクラスにはProtectedのStopTimerなるメソッドがあったので、
ToolTipクラスを継承したToolTipExクラスというクラスを作成し、
StopTimerメソッドを呼び出してみたのですが、使い方（呼び出すタイミング等）を間違っているのかよくわかりませんが、
MSDNに載っている動作はしませんでした・・・。
http://msdn.microsoft.com/ja-jp/library/system.windows.forms.tooltip.stoptimer(v=vs.90).aspx

参考まで。

anさん、tocsさん、回答ありがとうございます。
返答が遅くなってしまい、申し訳ありません。

提示していただいた案から、下記のように作ってみました。

--------------------------------------------------------------------------------
TextBoxクラスを継承してTextBoxExというクラスを作成し、その中でツールチップの表示の処理を記述しました。

Public Class TextBoxEx
    Inherits TextBox
    
    Private isEnter As Boolean = False
    Private tooltip As New ToolTip
    Private WithEvents timer As New Timer

    Protected Overrides Sub OnEnter(e As EventArgs)

        tooltip.Hide(Me)
        tooltip.Active = False
        timer.Enabled = False

        isEnter = True

        MyBase.OnEnter(e)

    End Sub

    Protected Overrides Sub OnLeave(e As EventArgs)

        tooltip.Active = True

        isEnter = False

        MyBase.OnLeave(e)

    End Sub

    Protected Overrides Sub OnMouseEnter(e As EventArgs)

        If isEnter = False Then
            timer.Enabled = True
        Else
            timer.Enabled = False
        End If

        MyBase.OnMouseEnter(e)

    End Sub

    Protected Overrides Sub OnMouseLeave(e As EventArgs)

        timer.Enabled = False
        tooltip.RemoveAll()

        MyBase.OnMouseLeave(e)

    End Sub

    Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick
        Me.tooltip.Show(Me.Text, Me)
    End Sub

End Class

--------------------------------------------------------------------------------

今回はtocsさんから教えていただいた
> EnterからLeaveの間にWindowFormsのTimer回して、Show呼びまくれば特にちらつきもせず表示できるみたいです。
がまさに望んでいたことでしたので、そちらでやりました。

anさんが教えてくださった方法も、ツールチップについてよく理解していなかったので、
とても勉強になりました。

ありがとうございました。