Form上にマウスカーソルが無いときは Formを半透明 にしたい

Question

前提・実現したいこと

Formを 普段は半透明で マウスカーソルをForm上に持って行った時だけ不透明にしたいです。
何か方法はないでしょうか?

---

試したこと_1

Formにイベント追加

• MouseEnter イベント で Form を 不透明 化
• MouseLeave イベント で Form を 半透明 化

発生問題_1

Form内の他のコントロール上にカーソルが移動したとき等
半透明になってしまう。

試したこと_2

• リストForm内の全てのコントロールにForm同様のイベントを追加

発生問題_2 ← 現在

Formのタイトルバー上にカーソルが移動したときに
半透明になってしまう。

サンプルコード

using namespace System.Windows.Forms
using namespace System.Drawing


$_Get_Form = {
    #フォームの作成
    $FormWed = 600
    $FormlHei = 300
    $Form = [Form]::new()
    $Form.Size = [Size]::new($FormWed, $FormlHei)
    $Form.Text =  "Test"

    #データグリッドビューの作成
    $ListCount = 2
    $Script:List = 1..$ListCount | foreach { [DataGridView]::new() }
    $ListName = @('test1', 'test2')
    for ($i = 0; $i -lt $ListCount; $i++)
    { 
        $List[$i].AutoSizeColumnsMode  = [DataGridViewAutoSizeColumnsMode]::AllCells
        $List[$i].AutoSizeRowsMode = [DataGridViewAutoSizeRowsMode]::AllCells
        $List[$i].Name  = "List_$($ListName[$i])"
        $List[$i].Dock = [DockStyle]::Fill
    } 
    $List[0].Add_SelectionChanged($_ListNowUp)
    $List[0].MultiSelect = $false
    #$List[1].Columns[0].DefaultCellStyle.WrapMode = [DataGridViewTriState]::True

    $SplitContainer = [SplitContainer]::new()
    $SplitContainer.Panel1.Controls.Add($List[0])
    $SplitContainer.Panel2.Controls.Add($List[1])
    $SplitContainer.Name = "SplitContainer_1"
    $Form.Controls.Add($SplitContainer)



    $Form.Add_Activated({
        $Form.TopMost = $True
    })
}

$_Form_Semitransparent = {
    $_Fm= $Form
    $_Fm.Opacity = 0.1
}

$_Form_Opacity = {
    $_Fm= $Form
    $_Fm.Opacity = 1
}

$_AllControls = {

    param([Control]$Control)

    $Control.Controls | foreach {
        $($_AllControls.Invoke($_))
    }
    $Control
}

.$_Get_Form
$($_AllControls.Invoke($Form)) | foreach {
    $_."Add_MouseEnter"($_Form_Opacity)
    $_."Add_MouseLeave"($_Form_Semitransparent)
}

$Form.ShowDialog()

補足情報

Win10

• From は System.Windows.Forms.Form の オブジェクト です
• Form中のControlにはNestされているものもあります。

Comments

[y_waiwai]

コードを提示してください

[kamikazelight]

分かりました。

[kamikazelight]

コードを追加しました。

Answer 1

マウス関連のイベントだと面倒そうだったため、
タイマーを使って、フォームの大きさ（Bounds）とマウスの位置（[Cursor]::Position）の関係を監視するアプローチとしてみました。

using namespace System.Windows.Forms
using namespace System.Drawing

Set-StrictMode -Version Latest

[scriptblock]$_Get_Form = {
    #フォームの作成
    [Form]$Form = 
        New-Object -TypeName Form -Property @{
            Width   = 600
            Height  = 300
            Opacity = 0.1
            Text    = 'Test'
            TopMost = $true
        }

    #データグリッドビューの作成
    [string[]]$ListName = @('test1', 'test2')
    [DataGridView[]]$List = 
        $ListName | 
            ForEach-Object -Process {
                # 共通の設定は生成時に`-Property`で設定
                New-Object -TypeName DataGridView -Property @{
                    AutoSizeColumnsMode = [DataGridViewAutoSizeColumnsMode]::AllCells
                    AutoSizeRowsMode    = [DataGridViewAutoSizeColumnsMode]::AllCells
                    Name = 'List_{0}' -f $_
                    Dock = [DockStyle]::Fill
                }
            }
    #$List[0].Add_SelectionChanged($_ListNowUp)
    $List[0].MultiSelect = $false
    #$List[1].Columns[0].DefaultCellStyle.WrapMode = [DataGridViewTriState]::True

    [SplitContainer]$SplitContainer = [SplitContainer]::new()
    $SplitContainer.Panel1.Controls.Add($List[0])
    $SplitContainer.Panel2.Controls.Add($List[1])
    $SplitContainer.Name = "SplitContainer_1"
    $Form.Controls.Add($SplitContainer)

    Export-ModuleMember -Variable Form, List
}

# `Export-ModuleMember`で設定した要素（Form, List）をメンバーとして持つPSCustomObjectを生成（$Scirpt:～を避けたかったため）
[psobject]$formContainer = New-Module -AsCustomObject -ScriptBlock $_Get_Form

# タイマーの生成
[Timer]$mouseMonitor = 
    New-Object -TypeName Timer -Property @{
        Interval = 50
        Enabled  = $true
        Tag      = $formContainer.Form # 仮にタグとしてフォームを設定（もっと良い方法がありそう）
    }

$mouseMonitor.add_Tick({
    [Form]$mainForm = $this.Tag # [Form]::ActiveForm

    # タイトルバー含めたフォームの大きさは`Bounds`から、
    # マウスの位置は`[Cursor]::Position`から取得できるため
    # フォームの中に、マウスが入っているかどうかで確認
    [int]$newOpacity =
        if ($mainForm.Bounds.Contains([Cursor]::Position)) {
            1
        } else {
            0.1
        }
    
    if ($mainForm.Opacity -ne $newOpacity) { # 負荷軽減のため（意味があるか未確認）
        $mainForm.Opacity = $newOpacity
    }
})

$mouseMonitor.Start()
$formContainer.Form.ShowDialog() > $null
$formContainer.Form.Dispose()
$mouseMonitor.Dispose() # Formとの紐付けが無いため、忘れないように

Comments

[kamikazelight]

タイマーと座標を使って...ってところまでは考えていたのですが
フォームの座標とサイズとカーソルの位置を取得して
x,y座標を個別に範囲内か判定しようとしてました。
範囲内か確認するためにこんなにスマートな方法があるとは知りませんでした。
今回もありがとうございました。