タイトル | : Re^2: どのタブページにMouseEnterイベントが発生したか取得したい |
記事No | : 8219 |
投稿日 | : 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で表示されるのをマウスが乗っている場所が変化したときだけにしてみました。 アドバイスありがとうございました。
|