Форум программистов, компьютерный форум, киберфорум
PowerShell
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 17.10.2017
Сообщений: 2

GUI. не передается переменная кнопкам в цикле

18.10.2017, 07:44. Показов 2932. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем доброго времени суток. Сообщество умных людей, взываю к Вашей помощи.
Рисую визуальную форму для скрипта, требуется создать массу однотипных кнопок, которые отображают путь к файлу в котором есть переменная с именем этой кнопки. Названия кнопок берутся перебором из массива.
Описание кнопки обернул в функцию и соответсвено эту функцию гоняю в цикле разматывающем массив с именами кнопок. Вот только при нажатии на кнопку, в отображаемом пути к файлу, нет значения переменной.
Вот код:
PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#Создаем масив с именами файлов
[array]$SomeDate = ('FixKB','VSS','LocalADM','HDDSmart')
 
#Отрисовка оболочки
    [void][reflection.assembly]::LoadWithPartialName("System.Windows.Forms")
    $form = new-object Windows.Forms.Form
    $form.Text = "Кнопки"
    $form.MaximizeBox = 0
    $form.MinimizeBox = 1
 
#Определяем начальные координаты положения первой кнопки
    [int]$tt = 10 #t - top, т.е. отступ сверху
    [int]$ll = 10 #l - left, т.е. отступ слева
 
#Создаем функцию описания кнопки
Function Butty {
    param ([string]$Name = "default",[int]$l = 10,[int]$t = 10)
    
    $LableHelp = new-object Windows.Forms.button
    $LableHelp.location = New-Object System.Drawing.Size(($l),($t))
    $LableHelp.text = "$Name"
#Тут проблема. Переменная Name - как будто пустая. И в консоль всегда пишет: d:\.txt
    $LableHelp.add_click({Write-host ("Path: d:" + $Name + ".txt")})  # После d: должен быть слэш, но он съеден редактором.
    Return $LableHelp    
}
 
#Добавляем кнопки цыклом
    for([int]$a = 0; $a -lt $SomeDate.count; $a++){
 
        #Каждая кнопка создается на 25 едениц ниже предидущей
        $tt = $tt + 25
        
        #Создаем новую кнопку
        $PozyBut = Butty -Name $SomeDate[$a] -l $ll -t $tt
        
        #Добавляем кнопку в форму
        $Form.controls.add($PozyBut)
    }
    
#Отображаем форму
    $form.Add_Shown({$form.Activate()})
    $form.ShowDialog()
Подскажите, что делаю не так?

Добавлено через 20 часов 6 минут
Up!
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.10.2017, 07:44
Ответы с готовыми решениями:

Как мне обратиться к кнопкам в цикле?
Прошу прощения, это наверно глупый вопрос, но я даже не знаю какой запрос ввести в гугл. У меня несколько кнопок btn1, btn2, btn3...

Переменная, которая только что использовалась в цикле в качестве счётчика в следующем цикле не используется
Помогите, пожалуйста. Вот отрывок программы (программа целиком- в архиве): procedure TForm1.Button1Click(Sender: TObject); begin ...

Не передаётся переменная
Здравствуйте. Программа должна брать значение из поля формы и выводить его. Но она выводит:$userName!"; ?> . Сервер у меня...

2
Покинул форум
3700 / 1483 / 355
Регистрация: 07.05.2015
Сообщений: 2,903
18.10.2017, 10:15
Лучший ответ Сообщение было отмечено cobrakvadro как решение

Решение

Для примера:
PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Add-Type -AssemblyName System.Windows.Forms
$ico = [Drawing.Icon]::ExtractAssociatedIcon("$PSHome\powershell.exe")
$btn = New-Object Windows.Forms.Button[] 4
$arr = 'FixKB', 'VSS', 'LocalADM', 'HDDSmart'
 
$frmMain = New-Object Windows.Forms.Form -Property @{
  FormBorderStyle = 'FixedSingle'
  Icon = $ico
  MaximizeBox = $false
  MinimizeBox = $true
  Size = New-Object Drawing.Size(500, 310)
  StartPosition = 'CenterScreen'
  Text = 'Buttons'
}
$frmMain.Add_Load({
  $ico.Dispose()
 
  for ($i = 0; $i -lt $btn.Length; $i++) {
    $btn[$i] = New-Object Windows.Forms.Button
    $btn[$i].Parent = $this
    $btn[$i].Top = 10
    $btn[$i].Left = $i * ($btn[$i].Width + 7)
    $btn[$i].Text = $arr[$i]
    $btn[$i].Add_Click({
      Write-Host "Path : D:\$($this.Text).txt"
    })
  }
})
 
[void]$frmMain.ShowDialog()
В этом примере показал Вам как, собственно, создаются однотипные элементы на форме. Если нужно задавать имя переменной динамически, используйте лямбда выражение.
Еще один пример вдогонку:
PowerShell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Add-Type -AssemblyName System.Windows.Forms
$ico = [Drawing.Icon]::ExtractAssociatedIcon("$PSHome\powershell.exe")
$btn = New-Object Windows.Forms.Button[] 4
$arr = 'FixKB', 'VSS', 'LocalADM', 'HDDSmart'
 
$frmMain = New-Object Windows.Forms.Form -Property @{
  FormBorderStyle = 'FixedSingle'
  Icon = $ico
  MaximizeBox = $false
  MinimizeBox = $true
  Size = New-Object Drawing.Size(500, 310)
  StartPosition = 'CenterScreen'
  Text = 'Buttons'
}
$frmMain.Add_Load({
  $ico.Dispose()
 
  for ($i = 0; $i -lt 4; $i++) {
    $btn[$i] = New-Object Windows.Forms.Button
    $btn[$i].Parent = $this
    $btn[$i].Top = 3 + $i * ($btn[$i].Height + 7)
    $btn[$i].Left = 10
    $btn[$i].Text = $arr[$i]
    $btn[$i].Add_Click({
      Write-Host $(switch -Regex ($this.Text) {
        'fixkb'    { 'action 1' }
        'vss'      { 'action 2' }
        'localadm' { 'action 3' }
        'hddsmart' { 'action 4' }
      })
    })
  }
})
 
[void]$frmMain.ShowDialog()
Вообще в чем проблема у Вас? - это попытка создания элемента управления циклом по одиночке.
1
0 / 0 / 0
Регистрация: 17.10.2017
Сообщений: 2
18.10.2017, 20:51  [ТС]
Благодарю за отличные примеры. Не совсем конечно понял, почему мой вариант не работает, но теперь постараюсь разобраться в чем именно загвоздка, используя Ваш пример.
Суть моей задачи в том, что бы открывать текстовые файлы с описанием одноименных скриптов (типа справки). Каждый текстовый файл для удобства я назвал в соответствии со скриптом, который он описывает (такое же название используется в названии кнопки на визуальной форме). Далее, при клике на какую либо из кнопок, должен вызыватсья блокнот с открытием соответствующего файла. Но в моем случае путь формировался не полностью, например правильный путь должен был быть "D:\vss.txt" (где vss - хранится в переменной и по совместительству отображается в названии кнопки.), а получался "D:\.txt". Я подозреваю, что переменная $Name, либо перезаписывалась, либо уничтожалась к моменту окончания выполнения скрипта.
В любом случае большее спасибо за рабочий пример. Буду двигаться дальше.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.10.2017, 20:51
Помогаю со студенческими работами здесь

Не передается переменная
Помогите пожалуйста. Привожу 2 куска своих кодов. Передаю переменные с html в php через post, проблема состоит в том, что первая переданная...

Не передается переменная...
Всем доброго времени суток! Столкнулся с проблемой передачи переменной элемента <input type="hidden">. Не могу понять...

Как в цикле обратиться к конкретным кнопкам на форме и поменять им название?
На форме находится много всяких разных кнопочек. Мне же нужно в цикле for обратиться только к конкретным 10 кнопкам (у них поле Name:...

Не передается переменная в вид
Подскажите, пожалуйста. Не могу передать переменную при создании, что я делаю не так? create.blade @extends('layouts.app') ...

Не передается вторая переменная
всем привет. сделал поделится в соц сети, проблема в том то - что вторая переменная не передается. адрес должен быть таким -...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru