質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

87.61%

メインフォーム 内のコントロールのイベント を 補助フォーム で利用したい (イベントを好きな場所で発生させたい)

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 1,198

score 273

前提・実現したいこと

メインフォーム単体で機能が成り立っているところに
入力補助のために補助フォームを作りたいと思ったのですが

メインフォームだけで機能としては成り立っているので
出来ればメインフォームでモジュールには補助フォームを管理したくありません。

自分なりに考えて
指定イベントの発生時に自身のインスタンスに保存されているスクリプトブロック
を実行する
クラスEventHook を作ってみたのですが
EventHook の Run メソッドを実行したときに
事前に渡したスクリプトブロック内の$This
EventHook がps1に書かれているときは
正常に EventHook のインスタンス になるのですが
psm1に書かれているときは
イベントの発生源のオブジェクト
になってしまい EventHook のプロパティにアクセスできません...

どうしたらモジュールにしても正常に実行できるようになるのでしょうか?
教えて頂きたいです。

別の方法でも構いません。
お願い致します。

該当のソースコード

# EventHook.psm1

Using NameSpace System.Collections.Generic
Using NameSpace System.Windows.Forms
Using NameSpace System.Drawing
Using NameSpace System.Collections.Specialized


<#
    柔軟なイベント実行を補助します。
#>
class EventHook
{
    static [OrderedDictionary] $EventHooks = [OrderedDictionary]::new()
    [string] $Guid
    [Object] $Hook
    [scriptblock] $RunBlock
    [Object] $Argument

    # コンストラクタの共通の処理です。
    hidden [void] Common ([Object] $HookObject, [String] $MethodName, [ScriptBlock] $Block)
    {
        $This.Guid = New-Guid
        [EventHook]::EventHooks[$This.Guid] = $This
        $This.Hook = $HookObject
        $This.RunBlock = $Block

        [scriptblock] $EventBlock = [scriptblock]::Create('[{0}]::SearchRun("{1}", $args)' -f @($This.Gettype().Name,$This.Guid))
        $HookObject.$MethodName($EventBlock)
    }

    # コンストラクタ
    EventHook ([Object] $HookObject, [String] $MethodName, [ScriptBlock] $Block)
    {
        $This.Common([Object] $HookObject, [String] $MethodName, [ScriptBlock] $Block)
    }

    # コンストラクタ
    EventHook ([Object] $HookObject, [String] $MethodName, [ScriptBlock] $Block, [Object] $Set_Argument)
    {
        $This.Common([Object] $HookObject, [String] $MethodName, [ScriptBlock] $Block)
        $This.Argument = $Set_Argument
    }

    # 保存されているスクリプトブロックの実行
    [Void] Run ([Object[]] $Set_Argument)
    {
        Write-Host "Run : $($This.GetType().name)"
        if ($Set_Argument.Count -gt 0)
        {
            $This.RunBlock.Invoke($Set_Argument)
        }
        else
        {
            $This.RunBlock.Invoke()
        } 
    }

    # GUIDが一致するインスタンスを探してRunを実行する
    static [Void] SearchRun ([String] $GUID, [Object[]] $Set_Argument)
    {
        [EventHook] $Obj = [EventHook]::EventHooks[$GUID]

        if ($obj -ne $null)
        {
            $obj.Run($Set_Argument)
        }

    }

}
# テスト.ps1

Using NameSpace System
Using NameSpace System.Collections.Generic
Using NameSpace System.Windows.Forms
Using NameSpace System.Collections.Specialized


Using Module .\EventHook.psm1

Add-type -AssemblyName System.WIndows.Forms


$Form = [Form]::new()

$text = [TextBox]::new()

$Form.Controls.Add($text)

[EventHook]::New($Form,"Add_Click",{

<#
    EventHook が $Thisになってほしいのに
    EventHookがpsm1 に書かれていると
    イベント発生源の オブジェクトが $Thisになる
#>
    Write-Host "Block : $($This.Gettype().name)"
})

$Form.showDialog()

試したこと

Run メソッド 内で スクリプトブロックを実行する前に
GetNewClosure()したりしてみましたがだめでした。

補足情報(FW/ツールのバージョンなど)

powershell v5
Win 10

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

EventHook の実装から、
「イベントの処理の中で$this$_以外の任意の情報を使って処理できるようにしたい(汎用的に)」
ということだと解釈しました。

詳しく検証していませんが、以下の方法はどうでしょうか?

1. 「イベント登録時に」 GetNewClosure() を行う

GetNewClosure()は呼び出した瞬間の変数を束縛するため、スクリプトブロック実行前に呼び出してもあまり意味が無いはずです。

参考

powershellのクロージャを理解する - Qiita

Using NameSpace System.Windows.Forms
Add-Type -AssemblyName System.Windows.Forms

$Form = [Form]::new()
$text = [TextBox]::new()

$Form.Controls.Add($text)

& {
    $abc = "abc"
    $Form.add_Click({

        $abc | Out-Host

    }.GetNewClosure())
}
$null -eq $abc # => $true $abc という変数は存在しない。

$Form.ShowDialog()
# => クリックすると abc が出力される

2. Register-ObjectEvent を使う

EventHookと似たような機構のものとして Register-ObjectEvent があります。

代わりにこちらを使ってみるのはどうでしょうか?

Using NameSpace System.Windows.Forms

Add-Type -AssemblyName System.WIndows.Forms


$Form = [Form]::new()
$text = [TextBox]::new()

$Form.Controls.Add($text)

# Register-ObjectEvent の引数が多いので、スプラッティングで指定する。
[hashtable]$regEventArgs = @{
    # イベントソースのオブジェクト及びイベント名。
    InputObject = $Form
    EventName   = 'Click'

    # $true にするとコマンドレットの返り値を無くし、Get-EventSubscriber や Unregister-Event からイベントを隠蔽する。
    # $true にしたときはGet-EventSubscriber -Force | Unregister-Event -Force など -Force スイッチをつけることで取得・削除が可能。
    SupportEvent = $false

    # 任意の情報を指定。
    MessageData = @('任意の引数', [datetime]::Now)
    Action = {
        Write-Host "Block : $($sender.Gettype().Name)"

        # 任意の情報の確認。
        $event.MessageData | Out-Host

        # Register-ObjectEvent の Action 内専用の自動変数。
        # $event, $eventSubscriber, $sender, $eventArgs, $args
        # $sender    は $this 相当。
        # $eventArgs は $_ 相当。
        # $args      は $this, $_ 相当。

        # 自動変数の中身確認用。
        Get-Variable -Name event, eventSubscriber <#, sender, eventArgs, args#> |
            ForEach-Object -Process {
                $_.Name
                $_.Value
            } #| Out-Host 

    }
}

Register-ObjectEvent @regEventArgs

$Form.ShowDialog()

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/03/26 10:43

    理由はよくわかりませんが
    Action内の

    Get-Variable -Name event, eventSubscriber <#, sender, eventArgs, args#> |
    ForEach-Object -Process {
    $_.Name
    $_.Value
    } #| Out-Host

    を削除したところ正常に動作しました。

    これでやりたいことが出来そうです。
    ありがとうございました。

    キャンセル

  • 2019/03/26 21:41

    すみません、Register-ObjectEvent は自分のコードにミスがあったのも要因かもしれません(# が全角)。

    キャンセル

  • 2019/03/27 09:45

    なるほど #| Out-Host のところでしょうか?
    現在 提示頂いているコードなら単純に非同期にするだけで
    動作確認出来ました。
    全角 # があってもエラー起きずにこういったことが起きる場合もあるのですね...
    ありがとうございました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 87.61%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る