投稿者 kojiro  (社会人) 投稿日時 2020/3/27 21:02:37
いつもお世話になっております。
表題のことで以下、
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class Form1
    Private sPos As MouseEventArgs  'マウスのドラッグの開始点
    Private Sub TabPage1_MouseDown(sender As Object, e As MouseEventArgs) Handles TabPage1.MouseDown
        If e.Button = MouseButtons.Right Then
            '開始点の取得
            sPos = e
            Dim k As Integer = TabControl1.SelectedIndex
            Dim i As Integer = sPos.X
            Dim j As Integer = sPos.Y
            MsgBox(k)
            MsgBox(i)
            MsgBox(j)
        End If
    End Sub
End Class
としたのですが、msgboxの命令が、2回目の右クリック時に表示されます。
すぐ表示するように、したいのですが・・・