이벤트 핸들러의 변수 외부를 호출 도움이 필요

Question

내가이 코드

Private Sub moAccounts_PositionUpdate(ByVal poPositions As A4.API.AccountList.PositionUpdateList) Handles moAccounts.PositionUpdate 

    ' Display the position details. 
    For Each oUpdate As AccountList.PositionUpdateList.PositionUpdate In poPositions 

     'code here 

    Next 

    End sub 

내가하고 싶은 것은 다른 하위 내에서 위의 하위 전화입니다이 괄호. 문제는 변수 poPositions가 코드에서 다른 곳에 나타나지 않는다는 것입니다. 나는 그것이 API에 의해 공급되는 데이터의 배열이라고 생각한다.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    udate() 

End Sub 

Private Sub udate() 

    Dim poPositions As A4.API.AccountList.PositionUpdateList 

    For Each oUpdate As AccountList.PositionUpdateList.PositionUpdate In poPositions 

     'code here 
    Next 

End Sub 

코드 컴파일 : 나는 그때 내가이 시도

데이터를 위의 서브를 호출하고 업데이트 할 수 있도록 이벤트 핸들러 괄호에있는 서버 API에서 데이터를 얻을 수있는 방법을 찾을 필요 하지만 코드를 실행하면 코드의 실행을 중지하고 A4.API.AccountList.PositionUpdateList 이벤트 핸들러 괄호 안에 작동으로, 그것이 갖는 ByVal의 poPositions 외부 작업 할 경우 오류 밑줄 poPositions

For Each oUpdate As AccountList.PositionUpdateList.PositionUpdate In **poPositions** 

*Object reference not set to an instance of an object.* 

를 나타낸다. 문제는 구문 (내 생각)입니다

내가 외부 괄호이 을 시도

Dim poPositions As A4.API.AccountList.PositionUpdateList 

이 분명히 나던 작업 :

ByVal poPositions As A4.API.AccountList.PositionUpdateList 

을하지만 그 ByVal의

에서 오류가 발생합니다

그래서 나는 어떻게 ... 정의 (?) ... poPositions에 붙어 있습니다. pPositons 앞에 넣을 단어는 무엇입니까? 외부에 이벤트 처리기 괄호가 있으면 데이터를 가져올 수 있습니까?

Dim poPositions As A4.API.AccountList.PositionUpdateList 

당신은 변수를 선언하지만, 당신이 그것을 설정하지 :

Answer 1

코드를 이동하는 것만 큼 간단하지 않습니다. moAccounts_PositionUpdate 이벤트가 트리거되면 서버는 처리기로 전달되어야하는 데이터를 가지고이를 제공합니다. 이 정보가 없으면 처음부터 moAccounts_PositionUpdate를 호출 할 때 서버가 제공 한 정보 사본을 처음부터 다시 만들어야합니다 (서버가 에 사본을 요청할 수있는 방법을 제공하지 않는 한) 수요에 관한 그 정보의). 한 가지 할 수있는 것은 서버가 제공 한 마지막 poPositionsValue 사본을 저장하는 것입니다. 그러나 moAccounts_PositionUpdate가 발생하면 이 발생하고 버튼을 클릭하기 전에 만 작동합니다. moAccounts_PositionUpdate 이벤트가 실행되지 않으면 아무 데이터도 없으며 버튼이 다시 오류를 줄 것입니다. 당신이 요청는 API의 현재 정보가 필요한 것 몇 가지 기능을 찾을 수 있다면 더 좋을 것이다 무엇

Private cachedPoPositions As A4.API.AccountList.PositionUpdateList 
Private Sub moAccounts_PositionUpdate(ByVal poPositions As A4.API.AccountList.PositionUpdateList) Handles moAccounts.PositionUpdate 
    ' Save for re-use later 
    cachedPoPositions = poPositions 
    ' Display the position details. 
    For Each oUpdate As AccountList.PositionUpdateList.PositionUpdate In poPositions 
     'code here 
    Next 
End sub 

Private Sub udate() 
    For Each oUpdate As AccountList.PositionUpdateList.PositionUpdate In cachedPoPositions 
     'code here 
    Next 
End Sub 

이다. 예를 들면 다음과 같습니다.

Private Sub udate() 
    Dim poPositions = moAccounts.GetPositionUpdateList() 
    For Each oUpdate As AccountList.PositionUpdateList.PositionUpdate In poPositions 
     'code here 
    Next 
End Sub 

Answer 2

이 줄은 당신의 문제입니다.