2021/04/11 #戻るButton、進むButton を表示

皆様おはようございます、

#猫でもできるPowerShell（備忘録）

#戻るButton、進むButton を表示

<# 元ネタ
https://www.atmarkit.co.jp/ait/articles/0607/26/news118_3.html
#>
$form = New-Object System.Windows.Forms.Form

$button = New-Object System.Windows.Forms.Button
$button.Location = New-Object System.Drawing.Point(180,10)
$button.Text = "押すな"
$button.add_Click({ $label.Text = "Get-Date -Format G"; $textbox.text = (iex $label.Text) })

$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10, 10)
$label.Size = New-Object System.Drawing.Size(180,20)

#$form.Controls.AddRange*1
$form.Controls.Add($button)
$form.Controls.Add($label)

$textBox = New-Object System.Windows.Forms.TextBox
$textBox.Location = New-Object System.Drawing.Point(10,60)
$textBox.Size = New-Object System.Drawing.Size(180,20)
$form.Controls.Add($textBox)

$button_L = New-Object System.Windows.Forms.Button
$button_L.Location = New-Object System.Drawing.Point(10,160)
$button_L.Text = "戻る"
$button_L.add_Click({ $textbox.text = (get-date $textbox.text ).adddays(-1) })
$button_R = New-Object System.Windows.Forms.Button
$button_R.Location = New-Object System.Drawing.Point(80,160)
$button_R.Text = "進む"
$button_R.add_Click({ $textbox.text = (get-date $textbox.text ).adddays(+1) })
$form.Controls.Add($button_L)
$form.Controls.Add($button_R)

[System.Windows.Forms.Application]::Run($form)

Accessのフォームで作っていた(１日)戻るButton、(１日)進むButtonを付けてみました

「Buttonそのものの表記」と「クリック時のイベント表記」が同じ場所にあるというのは判りやすくて良いです

ではまた；

*1:$button, $label