공유 서브 루틴 및 값 파싱

Question

두 개의 윈도우 폼이있는 가정용 폼에 울트라 그리드가있는 프로젝트를 사용 중입니다. 다른 데이터는 _dd 데이터로 표시됩니다. 데이터 형식 추가이 닫혀있을 때 ultragrid를 새로 고침하고 싶지만 현재 그렇게 할 수 없습니다.

나는 나를 데이터를로드 홈 형태의 서브 루틴을 사용하여 ShowDialog.OK 가치를 얻을 수 있도록 추가 데이터 양식을 form_closing 서브 루틴 Public Shared Sub을해야, 그래서 새로 고침 여부를 알고있다. 그러나 공유 하위이므로 Me.Dispose을 사용할 수 없습니다. 이 문제를 어떻게 해결할 수 있습니까?

Private Sub fHome_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
' This is where the UltraGrid gets it's data from 

    If fAdd.ShowDialog() = DialogResult.OK Then 

     uwgDisplay.DataSource = Nothing 
     displayData() 

' addData form is open, then get the data from the database (dont refresh it) 

    Else 
displayData() 

' if add data form is closed, then refresh the data 
    End If 

    Me.Location = New Point(0, 0) 

End Sub 

이

는 인스턴스 메서드 내에서만 유효 양식 닫는 추가 양식 하위 나는

나

에게하고 모두 Me.Dispose() 라인에

Public Shared Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 

    If Globals.savedValue = False Then 

     Dim closeBox As MsgBoxResult 
     closeBox = MsgBox("Exit without saving?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm") 
     If closeBox = MsgBoxResult.Yes Then 
      Me.Dispose() 

     ElseIf closeBox = MsgBoxResult.No Then 
      e.Cancel = True 
      Exit Sub 
     End If 
    Else 
     Me.Dispose() 
    End If 

End Sub 

입니다

Answer 1

진술서

"나는 나를 ShowDialog.OK를 얻을 수 있도록하기 위해 추가 데이터 폼 form_closing 서브 루틴에게 공개 공유 하위를 만들 필요가 있어요"잘못된입니다. FormClosing 방법은

Private _myform As frmFoo 

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click 
    If _myform Is Nothing Then _myForm = New frmFoo 
    If _myform.ShowDialog = DialogResult.OK Then 
     'do something 
    End If 
End Sub