►index

     スポンサーサイト

    --------

    上記の広告は1ヶ月以上更新のないブログに表示されています。
    新しい記事を書く事で広告が消せます。

     VB.NET マウス で コントロール を 移動

    2013-05-25

      フォーム上に貼り付けたPictureBoxコントロールを水平に移動させるサンプル。

    ポイントは赤字部分。



     

    Public Class TestForm

     

        Private _MouseCapture As Boolean = False

        Private _OldValue As Integer

     

        Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e  As  System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

            If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub

     

            _MouseCapture = True

            _OldValue = e.X

     

        End Sub

     

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

            If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub

            If _MouseCapture = False Then Exit Sub

     

            Dim NewValue As Integer = e.X

     

            Me.PictureBox1.Left += (NewValue - _OldValue)

     

            _OldValue = NewValue

     

        End Sub

     

        Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

            _MouseCapture = False

        End Sub

     

    End Class

    トラックバック

    コメントの投稿

    非公開コメント

    PR
    上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。