Udfør handling efter form.close

Du kan lave noget ala nedenstående, men prøv at forklare dig lidt nærmere jeg tror ikke helt jeg forstår dit problem.

while(true){
if( addServer != null){
  //Do stuff
}
}

Tja.. det er ikke muligt at kalde noget fra en form der er lukket. Men i close_eventen kan addServer godt kalde frmConnect.

frmAddServer skal have en metode der kan tage en reference til frmConnect. Fx:
protected frmConnectType _kaldendeForm;

public void SetParenForm (frmConnectType kaldendeForm)
{
  _kaldendeForm = kaldendeForm
}

I close_evnten på addServer skriver du så:
_kaldendeForm.FunktionDerSkalKaldes(..);

I forlængelse af moonducks svar er det ikke nok at teste på null. Der skal også testes på IsDisposed. Fx:

while(true){
if(!(addServer == null || addServer.IsDisposed)){
  //Do stuff
}
}

Det kommer vel an på om man husker at sætte sine objekter lig null efter de er blevet disposed.

Hej igen.

I close eventen kalder jeg nu følgende funktion:

Dim frmConnectForm As frmConnect = Me.ParentForm
frmConnectForm.UpdateLists(frmConnectForm.cboServerGroups.SelectedIndex)

VS brokker sig ikke over koden, men siger "Object reference not set to an instance of an object".

Jeg har sikkert misforstået noget :)

Mvh Mark

Er det Me.ParentForm den brokker sig over?
For så skal du i frmConnect huske

Dim addServer As New frmAddServer()
Me.AddOwnedForm(addServer)
addServer.Show()

>> moonduck : Hvordan ved du om en formvariabel skal sættes = null, hvis formen selv lukker sig som i spørgsmålet.?

Stadig problemer :(.

Nu åbner jeg frmAddServer således:

Dim addServer As New frmAddServer()
Me.AddOwnedForm(addServer)
addServer.Tag = arrGroupIDs(cboServerGroups.SelectedIndex)
addServer.Show()


Og jeg prøver at kalde en funktion i frmConnect fra frmAddServer således:

Dim frmConnectForm As frmConnect = Me.ParentForm
frmConnectForm.UpdateLists(frmConnectForm.cboServerGroups.SelectedIndex)

Og den brokker sig over den ovenstående linie (.UpdateLists).

Jeg hæver lige points lidt.

Og UpdateLists er public? Hvad er fejlen?

Yep, UpdateLists er public:
Public Function UpdateLists(ByVal StartIndex As Integer)

Fejlen er den samme som før "Object reference not set to an instance of an object"

:/

kichian >> Doh.. Der havde jeg vist ikke lige alle hjernecellerne på arbejde :-)

Jeg kan heller ikke lige få ParentForm til at give det jeg forventer. Så der er lige noget der skal læses op på :-)

Men den løsning jeg startede med at beskrive fungerer OK.

kichian -> Jeg kan desværre ikke få dit eksempel til at virke, nok fordi jeg ikke oversætte C# koden til VB godt nok, kan du uddybde det lidt?

Mvh Mark

I frmAddServer definerer du en global variabel Fx,

public _KaldendeForm as frmConnect

Derudover defineres en public metode Fx.

public function SetKaldendeForm(kaldendeForm as frmConnect)
  _KaldendeForm = kaldendeForm
end function

Fra din frmAddServer kan der så kaldes tilbage med

_KaldendeForm.UpdateLists(_KaldendeForm.cboServerGroups.SelectedIndex)
eller det du nok i virkeligeheden vil:
_KaldendeForm.UpdateLists(Tag)

For at sætte det hele op skal der i frmConnectForm gøres følgende:

Dim addServer As New frmAddServer()
addServer.SetKaldendeForm(Me)
addServer.Tag = arrGroupIDs(cboServerGroups.SelectedIndex)
addServer.Show()

Hej igen.

Jeg fik din kode til at virke, samt min egen, dog har jeg fået et nyt problem. (jeg har accepteret dit svar, du behøver ikke hjælpe mere :)).

I min frmAddServers OK knap kører jeg koden her:

'#Tilføj serveren til db'en
Dim sqlCmd As New OleDbCommand("INSERT INTO [tblServers] ([Title], [Address], [Timeout], [Username], [Password], [GroupID], [Database], [Comment]) VALUES ('" & Replace(txtName.Text, "'", "''") & "', '" & Replace(txtAddress.Text, "'", "''") & "', 3000, '" & Replace(txtUsername.Text, "'", "''") & "', '" & Replace(txtPassword.Text, "'", "''") & "', 22, '" & Replace(txtDatabase.Text, "'", "''") & "', '" & Replace(txtComment.Text, "'", "''") & "')", Conn)
Conn.Open()
    sqlCmd.ExecuteNonQuery()
Conn.Close()

'#Opdater serverlisten i frmConnect
Dim frmConnectForm As frmConnect = Me.Owner
frmConnectForm.UpdateLists(frmConnectForm.cboServerGroups.SelectedIndex)

'#Luk vindue
Close()


Den melder ikke om nogen fejl, men der blievr ikke tilføjet noget til databasen, Connection string'en er korrekt, og den har fat i db'en.

Mvh Mark