비주얼스튜디오 그룹파일 매크로 사용하기

참고 링크  http://www.codewrecks.com/blog/index.php/2011/09/28/visual-studio-macro-to-group-files/

http://www.sysnet.pe.kr/Default.aspx?mode=2&sub=0&detail=1&pageno=0&wid=1136&rssMode=1&wtype=0

프로젝트 파일을 수정했던 사항을 매크로로 간편하게 해결

1. 도구 -> 매크로 -> 매크로 탐색기

2. 새 모듈

3. 새 매크로

4. 편집 

   1: Sub GroupFileTogether()

   2:  

   3:     Dim lvProcesses As New ListView

   4:     For I As Int32 = 1 To DTE.SelectedItems.Count

   5:         Dim item As EnvDTE.SelectedItem = DTE.SelectedItems.Item(I)

   6:         Dim lvi As New ListViewItem

   7:         lvi.Tag = item

   8:         lvi.Text = item.Name

   9:         lvProcesses.Items.Add(lvi)

  10:     Next

  11:  

  12:     If lvProcesses.Items.Count < 2 Then

  13:         Return

  14:     End If

  15:  

  16:  

  17:     Dim frm As New Form

  18:     Dim btn As New Button

  19:     btn.Text = "OK"

  20:     btn.DialogResult = DialogResult.OK

  21:     frm.Controls.Add(btn)

  22:     frm.Width = 300

  23:     frm.Text = "Choose the file to be used as root"

  24:     btn.Dock = DockStyle.Bottom

  25:     frm.Controls.Add(lvProcesses)

  26:     lvProcesses.Dock = DockStyle.Fill

  27:     lvProcesses.View = View.Details

  28:     lvProcesses.Columns.Add("Name", 300, HorizontalAlignment.Left)

  29:     lvProcesses.FullRowSelect = True

  30:  

  31:     If frm.ShowDialog() = DialogResult.OK Then

  32:         Dim selected As EnvDTE.SelectedItem = lvProcesses.SelectedItems.Item(0).Tag

  33:  

  34:         For I As Int32 = 0 To lvProcesses.Items.Count - 1

  35:             Dim item As EnvDTE.SelectedItem = lvProcesses.Items.Item(I).Tag

  36:             If item.Name <> selected.Name Then

  37:                 selected.ProjectItem.ProjectItems.AddFromFile( _

  38:                     item.ProjectItem.FileNames(0))

  39:             End If

  40:         Next

  41:     End If

  42: End Sub

5. 도구 -> 사용자지정 -> 명령 -> 상황에 맞는 메뉴 -> 프로젝트 및 솔루션 상황에 맞는 메뉴 | 항목 -> 명령추가

-> 매크로 -> GroupFileMacro.GroupFileTogether 선택

6. 사용하기

7. 결과