[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
5i365

Rank: 5Rank: 5

帖子
1013 
积分
1228 
技术
14  
捐助
0  
注册时间
2019-2-20 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2022-9-21 19:23 | 只看该作者

[问题求助] PowerShell怎样给列表项添加双击和中键事件？

下面的代码能显示 可多选的列表框

存在两个问题:
1.不管用下面的哪种方法,窗体底部都有空白, 如何去除? 我想尽量使用第2种方法
$listBox.Size = '160,260'
或
$listBox.Dock = 'Fill'



2.我已经将窗体中的OK按钮删除了, 我想:
A.当选中了一个列表项时: 鼠标双击, 实现OK按钮的功能
B.当选中了多个列表项时: 按下鼠标中键, 实现OK按钮的功能


这样一搞, 感觉干净利索, 尤其是列表项很多时, 点OK按钮不太方便
  1. Add-Type -AssemblyName System.Windows.Forms

  2. 

  3. $form = New-Object System.Windows.Forms.Form

  4. $form.Text = '双击查询'

  5. $Form.FormBorderStyle = "FixedToolWindow"

  6. $form.StartPosition = 'CenterScreen'

  7. $form.Font = New-Object System.Drawing.Font("微软雅黑", 10, [Drawing.FontStyle]::Bold)

  8. $form.ClientSize = '160, 260'

  9. 

  10. $listBox = New-Object System.Windows.Forms.Listbox

  11. $listBox.Size = '160,260'

  12. $listBox.SelectionMode = 'MultiExtended'

  13. $listBox.DataSource = '张三', '李四', '王五', '赵六'

  14. $form.Controls.Add($listBox)

  15. 

  16. $result = $form.ShowDialog()

  17. if ($result -eq [System.Windows.Forms.DialogResult]::OK)

  18. {

  19.         $selectedItems = $listBox.SelectedItems

  20. }
复制代码
收藏 分享
本人所发所有贴子或代码, 诸大侠若认为有改进之处,请不吝赐教,感激不尽!

flashercs

Rank: 6Rank: 6

帖子
1250 
积分
2216 
技术
279  
捐助
0  
注册时间
2017-3-20 
2楼
发表于 2022-9-23 16:12 | 只看该作者 
  1. Add-Type -AssemblyName System.Windows.Forms

  2. 

  3. [system.Windows.forms.form]$form = New-Object System.Windows.Forms.Form

  4. $form.Text = '双击查询'

  5. $Form.FormBorderStyle = "FixedToolWindow"

  6. $form.StartPosition = 'CenterScreen'

  7. $form.Font = New-Object System.Drawing.Font("微软雅黑", 10, [Drawing.FontStyle]::Bold)

  8. $form.ClientSize = '160, 260'

  9. 

  10. $listBox = New-Object System.Windows.Forms.Listbox

  11. # $listBox.Size = '160,260'

  12. $listBox.Dock = 'Fill'

  13. $listBox.SelectionMode = 'MultiExtended'

  14. $listBox.DataSource = '张三', '李四', '王五', '赵六'

  15. $form.Controls.Add($listBox)

  16. $form.add_FormClosing( {

  17.     param($oSender, $oArgs)

  18.     $oArgs.Cancel = $listBox.SelectedItems.Count -eq 0

  19.     $Script:selectedItems = $listBox.SelectedItems

  20.   })

  21. 

  22. $result = $form.ShowDialog()

  23. $Script:selectedItems
复制代码
必须选择至少一个对象才能退出窗口;
微信:flashercs
QQ:49908356

TOP

5i365

Rank: 5Rank: 5

帖子
1013 
积分
1228 
技术
14  
捐助
0  
注册时间
2019-2-20 
3楼
发表于 2022-9-23 21:26 | 只看该作者
回复 2# flashercs


双击没有反应
本人所发所有贴子或代码, 诸大侠若认为有改进之处,请不吝赐教,感激不尽!

TOP

went

Rank: 6Rank: 6

帖子
853 
积分
1721 
技术
227  
捐助
0  
注册时间
2017-9-22 
4楼
发表于 2022-9-23 23:27 | 只看该作者 
  1. Add-Type -AssemblyName System.Windows.Forms

  2. 

  3. $form = New-Object System.Windows.Forms.Form

  4. $form.Text = '双击查询'

  5. $Form.FormBorderStyle = "FixedToolWindow"

  6. $form.StartPosition = 'CenterScreen'

  7. $form.Font = New-Object System.Drawing.Font("微软雅黑", 10, [Drawing.FontStyle]::Bold)

  8. $form.ClientSize = '160, 260'

  9. 

  10. $listBox = New-Object System.Windows.Forms.Listbox

  11. $listBox.Size = '160,260'

  12. $listBox.SelectionMode = 'MultiExtended'

  13. $listBox.DataSource = '张三', '李四', '王五', '赵六'

  14. $form.Controls.Add($listBox)

  15. 

  16. $Script:selectedItems = $null

  17. 

  18. $listBox.add_DoubleClick({

  19.     if($listBox.SelectedItems.Count -ne 1){ return }

  20.     $Script:selectedItems = $listBox.SelectedItems

  21.     $form.Close()

  22. })

  23. $listBox.add_MouseDown({

  24.     if($_.Button -ne 'Middle'){ return }

  25.     $Script:selectedItems = $listBox.SelectedItems

  26.     $form.Close()

  27. })

  28. 

  29. $result = $form.ShowDialog()

  30. 

  31. 

  32. $Script:selectedItems
复制代码
https://docs.qq.com/doc/DSVJ0d094Q1NtbGta

TOP

5i365

Rank: 5Rank: 5

帖子
1013 
积分
1228 
技术
14  
捐助
0  
注册时间
2019-2-20 
5楼
发表于 2022-9-24 05:40 | 只看该作者
回复 4# went

感谢大侠帮忙,没想到$_还能用在事件中!


列表框下边的空白无解吗?

本人所发所有贴子或代码, 诸大侠若认为有改进之处,请不吝赐教,感激不尽!

TOP

went

Rank: 6Rank: 6

帖子
853 
积分
1721 
技术
227  
捐助
0  
注册时间
2017-9-22 
6楼
发表于 2022-9-24 08:52 | 只看该作者
回复 5# 5i365


    listbox的高没必要和form相同，调大一点，260改成300
https://docs.qq.com/doc/DSVJ0d094Q1NtbGta

TOP

返回列表