学习FileDialog.SelectedItems 属性的笔记

ning84 · 发表于 2024-8-30 13:15

学习FileDialog.SelectedItems 属性的笔记

SelectedItems 接口 (EnvDTE) | Microsoft Learn https://learn.microsoft.com/zh-c ... tudio-2010/w83cceaw(v=vs.100)

SelectedItems 接口

项目
2011/08/12

本文内容

[color=var(--theme-hyperlink)]语法
[color=var(--theme-hyperlink)]属性
[color=var(--theme-hyperlink)]方法
[color=var(--theme-hyperlink)]备注

显示另外 2 个

包含 [color=var(--theme-hyperlink)]SelectedItem 对象，它们表示所选项目或项目项。

命名空间： [color=var(--theme-hyperlink)]EnvDTE
程序集： EnvDTE（在 EnvDTE.dll 中）

语法
[backcolor=var(--theme-code-header)][size=0.8]C#复制[color=var(--theme-success-invert) !important][backcolor=var(--theme-success-base) !important][size=1.125]

[GuidAttribute("6CAA67CF-43AE-4184-AAAB-0200DDF6B240")]public interface SelectedItems : IEnumerable

SelectedItems 类型公开以下成员。

属性
[size=0.875em]展开表

名称

说明

[color=var(--theme-hyperlink)]Count获取指示 SelectedItems 集合中的对象数的值。

[color=var(--theme-hyperlink)]DTE获取顶级扩展性对象。

[color=var(--theme-hyperlink)]MultiSelect获取指示当前选定内容是否包含多个项的值。

[color=var(--theme-hyperlink)]Parent获取 SelectedItems 集合的直接父对象。

[color=var(--theme-hyperlink)]SelectionContainer获取表示承载所选项的设计器的 [color=var(--theme-hyperlink)]SelectionContainer 对象。

页首

方法
[size=0.875em]展开表

名称

说明

[color=var(--theme-hyperlink)]GetEnumerator()返回一个循环访问集合的枚举数。（继承自 [color=var(--theme-hyperlink)]IEnumerable。）

[color=var(--theme-hyperlink)]GetEnumerator()获取集合中项的枚举。

[color=var(--theme-hyperlink)]Item返回 SelectedItems 集合中的一个 [color=var(--theme-hyperlink)]SelectedItem 对象。

页首

备注

即使没有项目项，也总是有一个 SelectedItems 集合。例如，如果**“解决方案资源管理器”**具有焦点并且一个项目节点被选中，则有一个 [color=var(--theme-hyperlink)]SelectedItem 对象。所选项的 [color=var(--theme-hyperlink)]Project 属性引用所选项目，而所选项的 [color=var(--theme-hyperlink)]ProjectItem 属性为 Null。

示例
[backcolor=var(--theme-code-header)][size=0.8]VB复制[color=var(--theme-success-invert) !important][backcolor=var(--theme-success-base) !important][size=1.125]

Sub SelectedItemsExample() Dim SelItems As SelectedItems Dim SelItemObj As SelectedItem Dim SelContain As SelectionContainer Dim SelItem As SelectedItem Dim NameStr As String SelItems = DTE.SelectedItems ' List the number of items selected. If SelItems.MultiSelect = True Then MsgBox("You have " & SelItems.Count & " items selected in Solution Explorer.") End If ' Set a reference to the first selected item. SelItemObj = SelItems.Item(1) ' List the names of the project or project items under the selected ' item. For Each SelItem In SelItemObj.Collection NameStr = NameStr & SelItem.Name If TypeOf SelItem.Project Is Project Then NameStr = NameStr & " Project-" & SelItem.Project.Name & vbCrLf Else If TypeOf SelItem.ProjectItem Is ProjectItem Then NameStr = NameStr & SelItem.ProjectItem.FileNames(1) & vbCrLf End If End If Next MsgBox("You selected: " & NameStr)End Sub

ning84 · 发表于 2024-8-30 13:16

Sub ReadPhotoInfo()
Dim Fso As Scripting.FileSystemObject
Set Fso = New Scripting.FileSystemObject
Dim fDia As FileDialog
Dim oFiles As Files, oFile As file
Dim Str, sItem
Set fDia = Application.FileDialog(msoFileDialogFilePicker)
With fDia
.Title = ""
.AllowMultiSelect = True
.InitialFileName = "F:"
.Show
Debug.Print .SelectedItems.Count
For Each sItem In .SelectedItems
Debug.Print sItem
'Str = .SelectedItems(ii)
Set oFile = Fso.GetFile(sItem)
'Debug.Print Fso.GetExtensionName(oFile.Path)
If Fso.GetExtensionName(oFile.Path) = "jpg" Then
Debug.Print oFile.Name, oFile.Path
End If
Next sItem
Stop
Stop
End With
Stop
End Sub

复制代码

ning84 · 发表于 2024-9-8 20:05

ning84 发表于 2024-8-30 13:16

Private Sub SelectFileChangeShtName()
Dim Str
Dim oFile As Scripting.File
Dim FileDia As FileDialog
Set FileDia = Application.FileDialog(msoFileDialogFilePicker)
With FileDia
.AllowMultiSelect = True
.Show
Str = .SelectedItems(1)
End With
Str = Mid(Str, InStrRev(Str, "") + 1, 40)
Str = Replace(Str, ".pptm", "")
Dim Rng As Range
Set Rng = Selection
Dim Sht As Worksheet
Set Sht = Rng.Parent
Sht.Name = Str
Stop
Stop
Stop
End Sub

复制代码

ning84 · 发表于 2024-9-9 09:07

Private Sub ShtNameChangeFolderName()
Dim Str
Dim Fso As Scripting.FileSystemObject
Set Fso = New Scripting.FileSystemObject
Dim oFile As Scripting.File, oFolder As Folder
Dim FileDia As FileDialog
Set FileDia = Application.FileDialog(msoFileDialogFolderPicker)
With FileDia
.AllowMultiSelect = True
.Show
Str = .SelectedItems(1)
Set oFolder = Fso.GetFolder(Str)
End With
Dim Rng As Range
Set Rng = Selection
Dim Sht As Worksheet
Set Sht = Rng.Parent
oFolder.Name = Sht.Name
Stop
Stop
Stop
End Sub

复制代码

ning84 · 发表于 2024-9-9 11:12

学习，学习再学习

Sub SelectRngChangeSldName()
Dim Rng As Range
Set Rng = Selection
Dim Sht As Worksheet
Set Sht = Rng.Parent
Dim Fso As Scripting.FileSystemObject
Set Fso = New FileSystemObject
Dim Pres As Presentation
Dim Ppt As PowerPoint.Application
Set Ppt = New PowerPoint.Application
Dim Sld As Slide, SldRng As SlideRange
Dim PathName
Set SldRng = Ppt.ActiveWindow.Selection.SlideRange
SldRng.Name = Rng
Debug.Print SldRng.Name
End Sub

复制代码

		自动登录	找回密码
密码			免费注册