Sub IncreaseNumber()
       Dim objTextSelection As TextSelection
       objTextSelection = CType(DTE.ActiveDocument.Selection(), EnvDTE.TextSelection)
       objTextSelection.Text = objTextSelection.Text + 1
   End Sub

   Sub DecreaseNumber()
       Dim objTextSelection As TextSelection
       objTextSelection = CType(DTE.ActiveDocument.Selection(), EnvDTE.TextSelection)
       objTextSelection.Text = objTextSelection.Text - 1
   End Sub


의외로 종종 필요한 경우가 있다

Control +, - 에 세팅해 놓고 쓰면 좋다


크리에이티브 커먼즈 라이선스
Creative Commons License

'게임개발 > ' 카테고리의 다른 글

파일포맷 png  (0) 2005/09/07
Cubemap을 이용한 SkyBox  (4) 2005/07/11
Increase, Decrease Macro  (0) 2005/07/08
Two-Sided Polygons  (0) 2005/05/20
nVidia 2005년 4월 뉴스레터 팁  (0) 2005/05/19
루프내에서 여러번 호출되는 함수의 First Time구분하기.  (0) 2005/04/11
Posted by 쑥갓
TAG