transparent - Visual Basic で移動可能な透明なフォームを作成するにはどうすればよいですか?

Question

VB のスキルを向上させるための練習として、非常にシンプルなデジタル時計を作成しました。画面の右下隅にあるタイマーを基本的に複製しましたが、背景が色付きの場合にのみ画面上で移動できます。パネル (タイマーの親) を透明にすると、アプリケーションで移動できなくなります。マウスで透明なオブジェクトを移動できるかどうか疑問に思っていましたか?

(以下のコード全体は非常に単純です)

Public Class Form1

Dim X, Y As Integer Dim NewPoint As New System.Drawing.Point

Private Sub TextBox1_TextChanged(System.Object としての ByVal 送信者、System.EventArgs としての ByVal e) End Sub

Private Sub Label1_Click(System.Object としての ByVal 送信者、System.EventArgs としての ByVal e) は、Label1.Click を処理します End Sub

Private Sub Timer1_Tick_1(System.Object としての ByVal 送信者、System.EventArgs としての ByVal e) は Timer1.Tick を処理します Label1.Text = TimeOfDay End Sub

Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Panel1.MouseDown を処理します X = Control.MousePosition.X - Me.Location.X Y = Control.MousePosition.Y - Me.Location.Y Endサブ

Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Panel1.MouseMove を処理します If e.Button = Windows.Forms.MouseButtons.Left Then NewPoint = Control.MousePosition NewPoint.X -= (X) NewPoint.Y -= (Y) Me.Location = NewPoint End If End Sub

Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Panel1.Paint を処理します

サブ終了

Private Shared Function hwnd() As Long Throw New NotImplementedException End Function

クラス終了