フォームに入力するWebブラウザーを使用していなかった場合、これが機能することはわかっています。
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
MyBase.WndProc(m)
'--- Alter the return value of WM_NCHITTEST when the ALT key is down
If m.Msg = &H84 AndAlso (Control.ModifierKeys And Keys.Alt) <> 0 Then
'--- Turn HTCLIENT into HTCAPTION
If m.Result = 1 Then m.Result = 2
End If
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
drag = True
mousex = Windows.Forms.Cursor.Position.X - Me.Left
mousey = Windows.Forms.Cursor.Position.Y - Me.Top
End If
Timer1.Enabled = True
Timer1.Interval = 2500
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If drag Then
Me.Top = Windows.Forms.Cursor.Position.Y - mousey
Me.Left = Windows.Forms.Cursor.Position.X - mousex
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Timer1.Enabled = False
drag = False
End Sub
しかし、 AltWindowDragと呼ばれるLinux Alt + Dragウィンドウ機能を備えたWindows用のプログラムを見つけました。以下のように、Process.Startを使用してプログラムを実行できることを知っています...
Process.Start(Application.StartupPath & "\AltWindowDrag\AltWindowDrag.exe")
ただし、これに関する問題は、アプリを閉じてもAltWindowDragが実行されていることです。とにかく、フォームが閉じたときにAltWindowDragを閉じることができますか?
どんな助けでも大歓迎です。
編集!
別のフォーラムの男がこれを手伝ってくれたので、同じ問題を経験している他の人にとっては。これがコードです。
Dim proc As Process
Private Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click
proc = Process.Start(Application.StartupPath & "\AltWindowDrag\AltWindowDrag.exe")
End Sub
Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
If Not proc Is Nothing Then
If Not proc.HasExited Then
proc.Kill()
End If
End If
End Sub