Winform objListBox Не загружается, если переменная не вставлена ​​в терминал - PullRequest
Новая
       25

Winform objListBox Не загружается, если переменная не вставлена ​​в терминал

0 голосов
/ 05 июня 2018

У меня никогда не было такой проблемы раньше.Я пробовал много вещей, чтобы исправить это, но не могу решить это.Я не могу получить этот objListBox для заполнения, если только в Powershell-ISE я не наберу в терминале $ Qlfile = "C: \ querylist" перед выполнением. 

$QlFile = "C:\querylist.txt"

Add-Type -assembly System.Windows.Forms
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
$objForm = New-Object System.Windows.Forms.Form
$objForm.Size = New-Object System.Drawing.Size(850,550)
$objForm.StartPosition = "WindowsDefaultLocation"
$objForm.Text = "Query List"
$objForm.AutoScroll = $True
$objListBox = New-Object System.Windows.Forms.ListBox
$objListBox.Location = New-Object System.Drawing.Size(10,40)
$objListBox.Size = New-Object System.Drawing.Size(800,30)
$objListBox.ScrollAlwaysVisible = $True
$objListBox.Height = 250
$objListBox.add_SelectedIndexChanged($SelectedFile)
$objListBox.DrawMode = [System.Windows.Forms.DrawMode]::OwnerDrawFixed
$objListBox.Add_DrawItem($objListBox_DrawItem)
$objForm.Controls.Add($objListBox)
$objTextBox = New-Object System.Windows.Forms.TextBox
$objTextBox.Location = New-Object System.Drawing.Size(10,320)
$objTextBox.Size = New-Object System.Drawing.Size(800,3000)
$objtextBox.Height = 100
$objtextBox.Multiline = $true
$objForm.Controls.Add($objtextBox)
# create label
$labelz1 = New-Object system.Windows.Forms.Label
$labelz1.Text = "Select a Query"
$labelz1.Left=10
$labelz1.Top= 20
$labelz1.Font= "Verdana"

$labelz2 = New-Object system.Windows.Forms.Label
$labelz2.Text = "Edit Query"
$labelz2.Left=10
$labelz2.Top= 300
$labelz2.Font= "Verdana"

#add the label to the form
$objForm.controls.add($labelz1)
$objForm.controls.add($labelz2)

$BigButton = New-Object System.Windows.Forms.Button
$BigButton.Size = New-Object System.Drawing.Size(250,50)
$BigButton.Location = New-Object System.Drawing.Size(10,450)
$BigButton.Add_MouseHover({$BigButton.backcolor = [System.Drawing.Color]::CornflowerBlue
            $BigButton.Text = "CLICK ME!"})
$BigButton.Add_MouseLeave({$BigButton.backcolor = [System.Drawing.Color]::DarkBlue
            $BigButton.Text = "Copy Text"})
$BigButton.Text = "Copy Text"

$BigButton.Add_Click({
    #$objtextBox.Text | Clip
    $WPFQuery_text.text = $objtextBox.Text
    })
$objForm.controls.add($BigButton)

$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
# Populate list.
Get-Content $QlFile | ForEach-Object {[void] $objListBox.Items.Add($_)}

$objListBox_DrawItem={
 param(
  [System.Object] $sender,
  [System.Windows.Forms.DrawItemEventArgs] $e
 )
   #Suppose Sender de type Listbox
 if ($Sender.Items.Count -eq 0) {return}

   #Suppose item de type String
 $lbItem=$Sender.Items[$e.Index]
 if ( $lbItem.contains('Q:'))  
 {
    $Color=[System.Drawing.Color]::Orange      
    try
    {
      $brush = new-object System.Drawing.SolidBrush($Color)
      $e.Graphics.FillRectangle($brush, $e.Bounds)
    }
    finally
    {
      $brush.Dispose()
    }
   }
 $e.Graphics.DrawString($lbItem, $e.Font, [System.Drawing.SystemBrushes]::ControlText, (new-object System.Drawing.PointF($e.Bounds.X, $e.Bounds.Y)))
}    


$SelectedFile=
{
$objtextBox.Text = ($objListbox.SelectedItem)
}


$OnLoadForm_StateCorrection=
{#Correct the initial state of the form to prevent the .Net maximized form issue
    $objForm.WindowState = $InitialFormWindowState
}

#Save the initial state of the form
$InitialFormWindowState = $objForm.WindowState
#Init the OnLoad event to correct the initial state of the form
$objForm.add_Load($OnLoadForm_StateCorrection)
#Show the Form

[System.Windows.Forms.Application]::Run($objForm)
#$objForm.ShowDialog()

Самое смешное, мне даже не нужнонажать ввод.Просто наберите $ QlFile, а затем удалите, и это сработает.
Не имеет никакого смысла.
Если я щелкну правой кнопкой мыши по файлу .ps1 и запустлю с Powershell, он никогда не будет работать, потому что у него нетЯ думаю, что назначение $ QLfile хранится в сеансе / потоке.

Я должен использовать [System.Windows.Forms.Application] :: Run ($ objForm), потому что я запускаю это в потоке рядом с другой формой WPF (не показана выше). Весь этот кодпереходя внутрь кнопки: $ WPFbutton3.Add_Click ({}), но я пишу ее как отдельный файл .ps1, чтобы он заработал первым.
Мне нужно иметь возможность редактировать и выбирать оба одновременно.Это невозможно с помощью .ShowDialog.

Я полагаю, что решение состоит в том, чтобы как-то поместить переменную $ Qlfile в тот же поток / задание, которое [System.Windows.Forms.Application] :: Run ()работает в.

Как ты это делаешь?

Я пытался сделать: 

$ps = [powershell]::create()
$ps.AddScript(
     {
     [System.Windows.Forms.Application]::Run($objForm)
     })
$ps.Runspace.SessionStateProxy.SetVariable("form", $objForm)
$ps.BeginInvoke()

Но это не работает, потому что это фоновый процесс, поэтому я вообще не вижу winform.

Спасибо, что прочитали, пожалуйста, помогите

1 Ответ

0 голосов
/ 05 июня 2018

Вам нужно определить ваши обработчики событий, прежде чем использовать их.Переместите определение $SelectedFile и $OnLoadForm_StateCorrection наверх.

Вот моя версия: 

[CmdletBinding()]
param(
    $SourceFile = "C:\querylist.txt"
)
Add-Type -Assembly System.Windows.Forms, System.Drawing

$MainForm = [System.Windows.Forms.Form]@{
    Size          = New-Object System.Drawing.Size(850, 550)
    StartPosition = "WindowsDefaultLocation"
    Text          = "Query List"
    AutoScroll    = $True
}

$ListBox = [System.Windows.Forms.ListBox]@{
    Location            = New-Object System.Drawing.Size(10, 40)
    Size                = New-Object System.Drawing.Size(800, 30)
    ScrollAlwaysVisible = $True
    Height              = 250
    DrawMode            = "OwnerDrawFixed"
}
$MainForm.Controls.Add($ListBox)


$TextBox = [System.Windows.Forms.TextBox]@{
    Location  = New-Object System.Drawing.Size(10, 320)
    Size      = New-Object System.Drawing.Size(800, 3000)
    Height    = 100
    Multiline = $true
}
$MainForm.Controls.Add($TextBox)

$selectLabel = [System.Windows.Forms.Label]@{
    Text = "Select a Query"
    Left = 10
    Top  = 20
    Font = "Verdana"
}
$MainForm.Controls.add($selectLabel)

$EditLabel = [System.Windows.Forms.Label]@{
    Text = "Edit Query"
    Left = 10
    Top  = 300
    Font = "Verdana"
}
$MainForm.Controls.add($EditLabel)

$BigButton = [System.Windows.Forms.Button]@{
    Size     = New-Object System.Drawing.Size(250, 50)
    Location = New-Object System.Drawing.Size(10, 450)
    Text     = "Copy Text"
}
$MainForm.controls.add($BigButton)

$ListBox.Add_SelectedIndexChanged( {
        $TextBox.Text = ($ListBox.SelectedItem)
    })

# Hook up event handlers
$ListBox.Add_DrawItem( {
    param(
        [System.Object] $sender,
        [System.Windows.Forms.DrawItemEventArgs] $e
    )
    #Suppose Sender de type Listbox
    if ($Sender.Items.Count -eq 0) {
        return
    }

    #Suppose item de type String
    $lbItem = $Sender.Items[$e.Index]
    if ( $lbItem.contains('Q:')) {
        $Color = [System.Drawing.Color]::Orange
        try {
            $brush = new-object System.Drawing.SolidBrush($Color)
            $e.Graphics.FillRectangle($brush, $e.Bounds)
        } finally {
            $brush.Dispose()
        }
    }
    $e.Graphics.DrawString($lbItem, $e.Font, [System.Drawing.SystemBrushes]::ControlText, (new-object System.Drawing.PointF($e.Bounds.X, $e.Bounds.Y)))
})

$BigButton.Add_MouseHover( {
    $BigButton.backcolor = [System.Drawing.Color]::CornflowerBlue
    $BigButton.Text = "CLICK ME!"
})
$BigButton.Add_MouseLeave( {
    $BigButton.backcolor = [System.Drawing.Color]::DarkBlue
    $BigButton.Text = "Copy Text"
})
$BigButton.Add_Click( {
    #$TextBox.Text | Clip
    $WPFQuery_text.text = $TextBox.Text
})

# Save the initial state of the form
$InitialFormWindowState = $MainForm.WindowState
# Init the OnLoad event to correct the initial state of the form
$MainForm.Add_Load( {
    #Correct the initial state of the form to prevent the .Net maximized form issue
    $MainForm.WindowState = $InitialFormWindowState
})

# Populate list.
Get-Content $SourceFile | ForEach-Object {[void] $ListBox.Items.Add($_)}

#Show the Form
[System.Windows.Forms.Application]::Run($MainForm)
...