Хотя обсуждается использование DoEvents , тот факт, что нажатие кнопки «Выкл», кажется, не срабатывает, связано с Start-Sleep
, который вы вводите в цикл.
Start-Sleep
делает форму не отвечающей. Если вместо этого вы используете [System.Windows.Forms.Application]::DoEvents()
, то события нажатия кнопки обрабатываются.
Кроме того, с точки зрения пользователя, лучше всего отключить кнопку «Выкл.», Когда форма впервые рисуется, и переключать включенный стартус обеих кнопок внутри событий te Click
.
Для этого я внес некоторые изменения в код, приведенный в примере:
Add-Type -AssemblyName System.Windows.Forms
$objForm = New-Object System.Windows.Forms.Form
$OffButton = New-Object System.Windows.Forms.Button
$OffButton.Location = New-Object System.Drawing.Size(340,105)
$OffButton.Size = New-Object System.Drawing.Size(90,28)
$OffButton.Text = 'Off'
$OffButton.Name = 'Off'
$OffButton.Font = [System.Drawing.Font]::New("Microsoft Sans Serif", 11)
# initially disable the 'Off' button
$OffButton.Enabled = $false
$OffButton.Add_Click({
$script:AktiveLoop = $false
$OffButton.Enabled = $false
$StartButton.Enabled = $true
})
$objForm.Controls.Add($OffButton)
$StartButton = New-Object System.Windows.Forms.Button
$StartButton.Location = New-Object System.Drawing.Size(340,135)
$StartButton.Size = New-Object System.Drawing.Size(90,28)
$StartButton.Text = 'Start'
$StartButton.Name = 'Start'
$StartButton.Font = [System.Drawing.Font]::New("Microsoft Sans Serif", 11)
# initially enable the 'Off' button
$StartButton.Enabled = $true
$StartButton.Add_Click({
# switch the buttons Enabled status so the user can not click the same button twice
$OffButton.Enabled = $true
$StartButton.Enabled = $false
$script:AktiveLoop = $true
while ($script:AktiveLoop) {
# perform some action here. (added -WhatIf here for testing)
Move-Item $source -Destination $destination -WhatIf
# Start-Sleep makes the form unresponsive, so don't use that.
# DoEvents() suspends the current thread and processes
# window messages like a click on the 'Off' button.
[System.Windows.Forms.Application]::DoEvents()
}
})
$objForm.Controls.Add($StartButton)
[void] $objForm.ShowDialog()
$objForm.Dispose()
p.s. Вы добавили кнопки в форму еще до того, как определили их, поэтому я удалил их.
Надеюсь, это поможет