none
[VBA] TreeView Expand 이벤트 질문입니다. RRS feed

  • 질문

  • 최초 트리뷰 작성시에

    마우스의 클릭 이벤트로 Tree 확장을 하였습니다.

    그러나 문제는 노드명 옆의 '+' 기호를 통해서 확장된 Node의 값을 가져올 만한 속성을 발견하지 못하

    여 노드명을 더블클릭시에만 이벤트를 등록하여 하위 Node의 값을 추가 하였습니다.

    '+' 기호로 확장시에도 Node값을 가져 올 수 없는가를 찾던중에

    Expand 라는 이벤트 가 있더군요 Expand(Node As Node) 이벤트를 사용하면 편리하게 

    구현할 수 있겠다는 생각이 들어서 xTree.Expand(Node As Node) 이하의 코드에 작성을 했더니

    다른 모든 이벤트 들이 형식과 일치 하지 않는다는 에러가 나면서 수행이 되지 않더군요

    Expand 이벤트를 사용하지 않을때는 정상 작동합니다.

    Expand 이벤트는 어떻게 사용해야 되나요?

     

     

    2012년 1월 18일 수요일 오전 2:10

답변

  • 안녕하십니까? RatmTom

    Microsoft TechNet Forum 사이트를 방문해 주셔서 감사합니다.

     

    문의 “[VBA] TreeView Expand 이벤트 질문입니다.”에 대한 답변을 드리겠습니다.

     

    Expand사용 예제는 다음과 같습니다.

     

    Private Sub Form_Load()

       Dim nodX As Node

       Dim i as Integer

       TreeView1.BorderStyle = vbFixedSingle ' Show border.

     

       ' Create a root node.

       Set nodX = TreeView1.Nodes.Add(,,"root","Root")

     

       For i = 1 to 5   ' Add 5 child nodes.

          Set nodX = TreeView1.Nodes.Add(i,tvwChild,,"Node " & CStr(i))

       Next i

    End Sub

     

    Private Sub Form_Click()

       Dim I as Integer

       For I = 1 to TreeView1.Nodes.Count

          ' Expand all nodes.

          TreeView1.Nodes(i).Expanded = True

       Next I

    End Sub

     

    Syntax   >>> object.Expanded[= boolean]

    참조문서

    http://msdn.microsoft.com/ko-kr/library/aa443625(v=vs.60).aspx

     

    제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

    제시해 드린 답변이 도움이 되었기를 바랍니다.

     

    답변이 문제 해결에 도움이 되었다면 답변으로 채택을 부탁드립니다. 하지만 문제 해결이 되지 않아서 정확한 답변을 원하는 경우에는 문제의 정보를 더 자세하게 답변으로 제공해주시기 바랍니다.

    • 답변으로 표시됨 RatmTom 2012년 2월 24일 금요일 오전 11:48
    2012년 1월 27일 금요일 오전 6:38
    중재자

모든 응답

  • 안녕하십니까? RatmTom

    Microsoft MSDN Forum 사이트를 방문해 주셔서 감사합니다.

     

    문의 “[VBA] TreeView Expand 이벤트 질문입니다.”에 대한 답변을 드리겠습니다.

     

    아래 제공해드리는 MSDN을 참조하시면 좋을 꺼 같습니다.

    참고자료

    http://msdn.microsoft.com/ko-kr/library/ms996437.aspx

     

    제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

    제시해 드린 답변이 도움이 되었기를 바랍니다.

    2012년 1월 18일 수요일 오전 2:49
    중재자
  • 우선 답변에 감사드립니다.

    제 질문의 중심 요점은 (TreeView).Expand 이벤트 사용시

    다른 이벤트 에서 발생하는 에러의 수정과 Expand 이벤트의 사용 방법이었습니다.

    일반 Click 이벤트처럼 작성을 하니 모든 이벤트가 작동이 되지 않는 에러가 발생하였습니다.

    첨부하여 주신 링크에서는 아쉽게도 정보를 찾을 수 없었습니다.

    Expand 이벤트 사용과 관련하여 정보가 있으시다면 알려주시면 감사하겠습니다.

     

    제가 참고한 내용입니다.

    http://msdn.microsoft.com/en-us/library/aa443068(v=vs.60).aspx

     

     

     

     


    • 편집됨 RatmTom 2012년 1월 18일 수요일 오전 4:18
    2012년 1월 18일 수요일 오전 4:07
  • 안녕하십니까? RatmTom

    Microsoft TechNet Forum 사이트를 방문해 주셔서 감사합니다.

     

    문의 “[VBA] TreeView Expand 이벤트 질문입니다.”에 대한 답변을 드리겠습니다.

     

    Expand사용 예제는 다음과 같습니다.

     

    Private Sub Form_Load()

       Dim nodX As Node

       Dim i as Integer

       TreeView1.BorderStyle = vbFixedSingle ' Show border.

     

       ' Create a root node.

       Set nodX = TreeView1.Nodes.Add(,,"root","Root")

     

       For i = 1 to 5   ' Add 5 child nodes.

          Set nodX = TreeView1.Nodes.Add(i,tvwChild,,"Node " & CStr(i))

       Next i

    End Sub

     

    Private Sub Form_Click()

       Dim I as Integer

       For I = 1 to TreeView1.Nodes.Count

          ' Expand all nodes.

          TreeView1.Nodes(i).Expanded = True

       Next I

    End Sub

     

    Syntax   >>> object.Expanded[= boolean]

    참조문서

    http://msdn.microsoft.com/ko-kr/library/aa443625(v=vs.60).aspx

     

    제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

    제시해 드린 답변이 도움이 되었기를 바랍니다.

     

    답변이 문제 해결에 도움이 되었다면 답변으로 채택을 부탁드립니다. 하지만 문제 해결이 되지 않아서 정확한 답변을 원하는 경우에는 문제의 정보를 더 자세하게 답변으로 제공해주시기 바랍니다.

    • 답변으로 표시됨 RatmTom 2012년 2월 24일 금요일 오전 11:48
    2012년 1월 27일 금요일 오전 6:38
    중재자
  • 답변 감사드립니다
    2012년 2월 24일 금요일 오전 11:48