tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: どのタブページにMouseEnterイベントが発生したか取得したい
投稿日: 2008/09/25(Thu) 12:03
投稿者皐月
はなちゃん、こんにちは。お返事ありがとうございます。
はなちゃんに教えていただいたソースを利用して以下のようにしました。

    Private Sub TabControl1_MouseMove(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabControl1.MouseMove

        Dim i As Integer = 0

        For i = 0 To TabControl1.TabCount - 1
            If TabControl1.GetTabRect(i).Contains(e.X, e.Y) Then
                Select Case i
                    Case 0
                        Tabmsg = My.Resources.SetTabmsg001
                    Case 1
                        Tabmsg = My.Resources.SetTabmsg002
                    Case 2
                        Tabmsg = My.Resources.SetTabmsg003
                    Case 3
                        Tabmsg = My.Resources.SetTabmsg004
                    Case 4
                        Tabmsg = My.Resources.SetTabmsg005
                    Case 5
                        Tabmsg = My.Resources.SetTabmsg006
                    Case 6
                        Tabmsg = My.Resources.SetTabmsg007
                    Case 7
                        Tabmsg = My.Resources.SetTabmsg008
                End Select
            End If
            If Tabmsg <> tabmsg2 Then
                Me.ToolTip1.SetToolTip(Me.TabControl1, Tabmsg)
                tabmsg2 = Tabmsg
            End If
        Next
    End Sub

 ※ tabmsg,tabmsg2はグローバルです

メインで動作させてる部位にタイマーを使用して処理している部分があるためそのままではちらつきが生じてしましますので、ToolTipで表示されるのをマウスが乗っている場所が変化したときだけにしてみました。
アドバイスありがとうございました。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。