【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






マウスドラッグでフォームを動かす

【注意書き】
●VB.NET を使っているものとします。
●動作環境は、Windows XX を使用しているとします。


.NET でも、マウスドラッグでフォームを動かすことが可能です。

この機能を使えば、簡単に、タスクバー以外で
マウスドラッグでフォームを動かす場合などに活用できます。


フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームを右クリックして、
    コードの編集を開始して、
    次のコードを記述します。


    Dim Form_X As Integer
    Dim Form_Y As Integer

    Private Sub Form1_MouseMove(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) _
        Handles MyBase.MouseMove

        'マウス左ボタンのプレス状態
        If e.Button = MouseButtons.Left Then
            With Screen.PrimaryScreen.Bounds
                Me.Left = Me.Left + e.X - Form_X
                Me.Top = Me.Top + e.Y - Form_Y
            End With
        End If
    End Sub

    Private Sub Form1_MouseDown(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) _
        Handles MyBase.MouseDown

        'マウスの位置を保持
        Form_X = e.X
        Form_Y = e.Y
    End Sub



2.ビルドして実行します。

3.フォームをマウスでドラッグして移動します。

4.タスクバー以外でもフォームをマウスでドラッグして移動
  させる事ができる事を確認できます。

-----------VB.NETコーディングここまで-------------------

本サンプルでは、モジュール変数 Form_X ,Form_Yに
フォームの座標を記録しています。

マウスの左ボタンで、ドラッグできる状態としてお閧ワす。





 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=l37

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2024/03/29(金)00:05 更新