PowerShell

Serguei Kouzmine · Отправлено: **18:33, 17-09-2019** | #2

вот специально для вас гуглил гуглил и нагуглил

Код:

#requires -version 2

$so = [hashtable]::Synchronized(@{
  'Result' = '';
  'Window' = [System.Windows.Window]$null;
  'TextBox' = [System.Windows.Controls.TextBox]$null;
})
$so.Result = ''
$rs = [runspacefactory]::CreateRunspace()
$rs.ApartmentState = 'STA'
$rs.ThreadOptions = 'ReuseThread'
$rs.Open()

Add-Type -AssemblyName PresentationFramework
[xml]$xaml = @'
<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" x:Name="Window" Title="Example with Text Boxes" Height="400" Width="300">
  <Grid>
    <StackPanel Name="StackPanel1" Margin="0,0,0,0">
      <Expander Header="Name" Margin="0,0,0,0" Name="Expander1" IsExpanded="True">
        <StackPanel Margin="20,0,0,0">
          <StackPanel Height="Auto" Width="Auto" Orientation="Horizontal">
            <Label Height="25.96" Width="84">First Name</Label>
            <TextBox Height="25" Width="147" x:Name="First_Name"/>
          </StackPanel>
          <StackPanel Height="Auto" Width="Auto" Orientation="Horizontal">
            <Label Height="25.96" Width="84">Last Name</Label>
            <TextBox Height="25" Width="147" x:Name="Last_Name"/>
          </StackPanel>
        </StackPanel>
      </Expander>
      <Separator/>
      <Expander Header="Address" Margin="0,0,0,0" IsExpanded="True">
        <StackPanel Margin="20,0,0,0">
          <StackPanel Height="Auto" Width="Auto" Orientation="Horizontal">
            <Label Height="25.96" Width="84">Street</Label>
            <TextBox Height="25" Width="147" x:Name="Street"/>
          </StackPanel>
          <StackPanel Height="Auto" Width="Auto" Orientation="Horizontal">
            <Label Height="25.96" Width="84">City</Label>
            <TextBox Height="25" Width="147" x:Name="City"/>
          </StackPanel>
          <StackPanel Height="Auto" Width="Auto" Orientation="Horizontal">
            <Label Height="25.96" Width="84">State</Label>
            <TextBox Height="25" Width="147"/>
          </StackPanel>
          <StackPanel Height="Auto" Width="Auto" Orientation="Horizontal">
            <Label Height="25.96" Width="84">Zip</Label>
            <TextBox Height="25" Width="147" x:Name="Zip"/>
          </StackPanel>
        </StackPanel>
      </Expander>
      <Separator/>
    </StackPanel>
  </Grid>
</Window>
'@


$reader = (New-Object System.Xml.XmlNodeReader $xaml)
$target = [Windows.Markup.XamlReader]::Load($reader)

$so.Window = $target

    @('First_Name','Last_Name','Street','City','Zip')| foreach-object {
      $name = $_
      $control = $target.FindName($name)
      if ($control -ne $null) {
        write-host ('Processing {0}' -f $control)
        $so.TextBox = $control
        $event = $control.Add_TextChanged
        $handler = {
          param(
            [object]$sender,
            [System.Windows.Controls.TextChangedEventArgs]$eventargs
          )
          $so.Result = $sender.Text
          # omitted: stash sender details into shared object
          write-host $so.Result
          write-host $sender.Name
        }
	# $hander is an System.Management.Automation.ScriptBlock
	# TODO: figure out how to clone
        $event.Invoke($handler)
      }
    }
    $target.ShowDialog() | Out-Null

это поделие перебирает тектбоксы и геренит новый кусок хендлера на каждый

YuS_2 · Отправлено: **20:19, 17-09-2019** | #3

Цитата Charg:

Можно ли как-то собрать все эти текстбоксы в кучу, применить на эту кучу параметр, а текстбоксы все эти параметры унаследовали бы? »

Не совсем понятен вопрос. Вы хотите редактировать форму через код powershell?
Лучше заниматься редактированием в Visual Studio...

Цитата Charg:

Аналогичный вопрос к ивентам - нужно на каждый из этих текстбоксов применить мою функцию на ивент TextChanged »

А связку кода с формой... можно подсмотреть, например, здесь

Цитата Charg:

И снова таки, как-то можно одним действием добавить обработку этого ивента на все текстбоксы? »

Для ответа необходимо больше информации, т.е. как минимум, надо видеть форму, функцию и более подробную формулировку того, что хочется получить.

Serguei Kouzmine · Отправлено: **23:29, 17-09-2019** | #4

@YuS_2 так показал же как приделывать. с properties так же точно

Charg · Конфигурация компьютера

YuS_2,

xaml

posh (в текущем виде)

<#
To be able to export GUI made in Visual Studio into Powershell:

Change first XAML row
From: <Window x:Class="WPF_Inkass.MainWindow"
To: <Window

TODO: format automatically
#>

<########################
#### FUNCTIONS START ####
#########################>

function fValidate {
# todo
}

function fCalculateSumms {
# Bills
$Bills1UAH_ResultTextbox.Text = (1 * $($Bills1UAH_NumberTextbox.Text))
$Bills2UAH_ResultTextbox.Text = (2 * $($Bills2UAH_NumberTextbox.Text))
$Bills5UAH_ResultTextbox.Text = (5 * $($Bills5UAH_NumberTextbox.Text))
$Bills10UAH_ResultTextbox.Text = (10 * $($Bills10UAH_NumberTextbox.Text))
$Bills20UAH_ResultTextbox.Text = (20 * $($Bills20UAH_NumberTextbox.Text))
$Bills50UAH_ResultTextbox.Text = (50 * $($Bills50UAH_NumberTextbox.Text))
$Bills100UAH_ResultTextbox.Text = (100 * $($Bills100UAH_NumberTextbox.Text))
$Bills200UAH_ResultTextbox.Text = (200 * $($Bills200UAH_NumberTextbox.Text))
$Bills500UAH_ResultTextbox.Text = (500 * $($Bills500UAH_NumberTextbox.Text))
$Bills1000UAH_ResultTextbox.Text = (1000 * $($Bills1000UAH_NumberTextbox.Text))

# Overall Result
$overall = $(
[decimal]$($Bills1UAH_ResultTextbox.Text) +
[decimal]$($Bills2UAH_ResultTextbox.Text) +
[decimal]$($Bills5UAH_ResultTextbox.Text) +
[decimal]$($Bills10UAH_ResultTextbox.Text) +
[decimal]$($Bills20UAH_ResultTextbox.Text) +
[decimal]$($Bills50UAH_ResultTextbox.Text) +
[decimal]$($Bills100UAH_ResultTextbox.Text) +
[decimal]$($Bills200UAH_ResultTextbox.Text) +
[decimal]$($Bills500UAH_ResultTextbox.Text) +
[decimal]$($Bills1000UAH_ResultTextbox.Text)
)
$ResultLabel.Content = "Итоговая сумма:"
$ResultTextbox.Text = "$overall грн."
$ResultTextbox.Background = "LightGreen"
}

function fButtonClick {
fCalculateSumms
}

<########################
##### FUNCTIONS END #####
#########################
#### XAML GUI START #####
#########################>

[void][System.Reflection.Assembly]::LoadWithPartialName('presentationframework')
[xml]$XAML = @" форма "@

<########################
##### XAML GUI END ######
#########################>

# Read XAML
$reader = (New-Object System.Xml.XmlNodeReader $XAML)
try{
$Form=[Windows.Markup.XamlReader]::Load( $reader )
}
catch{
Write-Warning $_.Exception
throw
}

# Store Form Objects In PowerShell
$allnewelements = @()
$xaml.SelectNodes("//*[@Name]") | ForEach-Object {Set-Variable -Name ($_.Name) -Value $Form.FindName($_.Name); $allnewelements += $_}

# Make DatePicker select today's date by default
$InkassDate.SelectedDate = [datetime]::Now

$button = $Form.FindName("FinalButton")
$button.Add_Click({ fButtonClick })

# Show Form SHOULD BE LAST ROW
$Form.ShowDialog() | Out-Null

# Get date with ukrainian month name in genitive case
if ($null -ne $($InkassDate.Text)) {
[int]$MonthNumber = $InkassDate.Text | Get-Date -Format "MM"
$MonthName = ([cultureinfo]::CreateSpecificCulture("uk-UA")).DateTimeFormat.MonthGenitiveNames[$($MonthNumber - 1)]
$UkrainianDateText = $InkassDate.Text | Get-Date -Format "dd $($MonthName) yyyy"
}
else {
$InkassDate.SelectedDate = [datetime]::Now
}

Контекст - на магазине продавец заполняет количество купюр по номиналу, еще пару полей, жмёт кнопку и печатаются 3 бумажки для инкассации по шаблону, используя введённые данные.

Цитата YuS_2:

Лучше заниматься редактированием в Visual Studio... »

Именно так я и делаю. Вот есть у меня 20 текстбоксов. И задал я для них свойство HorizontalContentAlignment="Center". А через 10 минут передумал и надо бы мне его убрать. На 20 текстбоксах вручную убирать? Работать то конечно будет, а если бы текстбоксов было 100? Вот для этого я и спрашивал о каком-нибудь механизм чтобы либо обернуть все текстбоксы во что-то и применить свойство единожды на родительский элемент или где-то рядом задать какой-нибудь шаблон стиля а потом применять к каждому текстбоксу использовать стиль такой-то. В общем механизм схожий с ID и class в CSS.
То же касается ивентов - каждый раз когда вводится что-то в колонку "количество" - сумма по этой банкноте и общая - должны пересчитываться, снова таки на каждый из 10 текстбоксов надо вручную дописать ивент.

Serguei Kouzmine, спасибо. Посмотрел, ничего не понял) Я пока что не понимаю как работают классы и что они вообще из себя представляют, поэтому эта часть кода для меня - черный ящик.
Буду пробовать методом тыка адаптировать под себя.

Iska · Отправлено: **10:05, 18-09-2019** | #6

Charg, у формы есть какое-нибудь встроенное свойство/метод .Controls, возвращающее коллекцию находящихся на ней элементов управления? Если да — возвращайте и перебирайте её элементы, проверяйте их тип, и если он будет TextBox (или как там) — меняйте его свойства на потребные.

Charg · Конфигурация компьютера

Цитата Iska:

у формы есть какое-нибудь встроенное свойство/метод .Controls, возвращающее коллекцию находящихся на ней элементов управления? »

Не нашел.

Serguei Kouzmine · Отправлено: **12:08, 18-09-2019** | #8

ro@Charg
да поможет вам XML

Код:

$textbox_nodes = $xaml.SelectNodes('//*[contains(name(.) ,"TextBox")]')
$textbox_names = @()
$textbox_nodes | foreach-object {
  $textbox_node = $_
  if (($textbox_node.Attributes -ne $null) -and ($textbox_node.Attributes.GetNamedItem('x:Name') -ne $null )) {
     $name = $textbox_node.Attributes['x:Name'].'#text'
     if ($name -ne $null) {
       write-host ('Found DOM element attribute: {0} of {1} of namepace {2} ' -f $name, $textbox_node.getType(), $textbox_node.GetNamespaceOfPrefix('x'))
       $textbox_names += $name
     }
  }
}

write-host ('names: {0}' -f ( $textbox_names -join ','))
# @('First_Name','Last_Name','Street','City','State', 'Zip')

ну и

Код:

$textbox_names | foreach-object {

  $name = $_

  $control = $target.FindName($name)
  if ($control -ne $null) {
    write-host ('Adding event handler to {0} named {1}' -f $control.getType() , $control.Name)
    $control.Background = [System.Windows.Media.Brushes]::Aqua
..

Charg · Конфигурация компьютера

Serguei Kouzmine, а вот тут всё понятно, спасибо.

Serguei Kouzmine · Отправлено: **19:53, 18-09-2019** | #10

как говорится it was my pleasure, anytime ...
остальное ще проще но я бы на вашем добавил namespaces в Name аттрибуты чтобы рыло было в http://schemas.microsoft.com/winfx/2006/xaml
вместо http://schemas.microsoft.com/winfx/2...l/presentation