Call sub from another sub.

[djpaul]

Hello,
Can i call a sub from another sub?

I short i did this:

 'Addhandler to the textboxes
                AddHandler TextField(i).MouseClick, AddressOf Mouse_Click
                AddHandler TextField(i).KeyPress, AddressOf Text_Save
                AddHandler TextField(i).LostFocus, AddressOf Text_Focus
                AddHandler TextField(i).Disposed, AddressOf Text_Dispose
 
                'Addhandler to the DeleteButton
                AddHandler DeleteBtn(i).MouseHover, AddressOf Delete_Hover
                AddHandler DeleteBtn(i).Click, AddressOf Delete_Click
                AddHandler DeleteBtn(i).Disposed, AddressOf Delete_Dispose
 
                'Addhandler Picturebox
                AddHandler ThumbPicturearr(i).MouseClick, AddressOf Thumb_Click
                AddHandler ThumbPicturearr(i).MouseHover, AddressOf Thumb_Hover
                AddHandler ThumbPicturearr(i).Disposed, AddressOf Thumb_Dispose
 
'AND THEN I CREATED THE SUBS
 
'FOR EXAMPLE
 Sub Text_Dispose(ByVal Sender As Object, ByVal e As EventArgs)
 
        Sender.Dispose()
 
    End Sub
 
'AND I WANT TO CALL HEM FROM HERE:
 
Sub Delete_Click(ByVal Sender As Object, ByVal e As EventArgs)
 
 
 
        If MessageBox.Show("Delete " & Sender.text & " from the database?" & vbCr & "(Pictures are not deleted!)", "Confirm", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then
 
            DeletSql = "DELETE FROM foto WHERE (id = " & Sender.Name & ")"
 
            If UpdateDatabase(DeletSql) > 0 Then
 
                Sender.Dispose()
                Text_Dispose(Sender, e)
                Delete_Dispose(Sender, e)
                Thumb_Dispose(Sender, e)
                MsgBox("Photo (" & Sender.Text & ") removed from the database")
 
            End If
 
        End If
 
    End Sub

In short, when the photo has been deleted, the picturebox, the button and the textbox must be removed/disposed.

[Curtis Rutland]

Sure, why wouldn't you be able to?

This seems like it's one of those things that's faster to try than to ask...

Anyway, while you're here, since you are using VB.NET, you should be using .NET constructs. For example, MessageBox.Show() instead of MsgBox().

Hope that helps.

[djpaul]

Yeah ok, but the msgbox is fine for here.
But the subs doesn't react.

 
Text_Dispose(Sender, e)
Delete_Dispose(Sender, e)
Thumb_Dispose(Sender, e)
 

Only the button (Sender.Dispose()) disapears.
But the other (above) subs doesn't do anything!

[Curtis Rutland]

Oh, I see.

Think about it this way. You are passing Sender from your first Sub to your next, and then calling Sender.Dispose(). So you're trying to dispose the same sender every time. You need to pass a reference to the actual object you are trying to dispose. For example: Text_Dispose(TextBox1, e) or whatever your textbox name is.