全选:(单选框)
If e.Sender.Checked = True Then
Dim lvw As
WinForm.ListView = e.Form.Controls("ListView1")
lvw.View = ViewMode.Details '显示模式切换为:复选框为全选的内容
End
If
已选:
If e.Sender.Checked = True Then
Dim lvw As
WinForm.ListView = e.Form.Controls("ListView1")
lvw.View = ViewMode.LargeIcon '显示模式切换为:复选框为已选的内容
End
If
未选:
If e.Sender.Checked = True Then
Dim lvw As
WinForm.ListView = e.Form.Controls("ListView1")
lvw.View = ViewMode.LargeIcon '显示模式切换为:复选框为未选的内容
End
If
这样能实现吗,红色代码修改