Public Interface IMDIChild
Function CanSave() As Boolean
End Interface
Public Class Form1
Inherits System.Windows. Forms.Form
#Region " Windows Form Designer generated code "
....
#End Region
Implements IMDIChild
Public Function CanSave() As Boolean Implements IMDIChild.CanSa ve
Return True
End Function
End Class
Public Class Form2
Inherits System.Windows. Forms.Form
Implements IMDIChild
#Region " Windows Form Designer generated code "
....
#End Region
Public Function CanSave() As Boolean Implements IMDIChild.CanSa ve
Return False
End Function
End Class
Public Class MDIForm
Inherits System.Windows. Forms.Form
#Region " Windows Form Designer generated code "
....
#End Region
Private Sub MDIForm_Load(By Val sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim f As Form
f = New Form1
f.MdiParent = Me
f.Show()
f = New Form2
f.MdiParent = Me
f.Show()
End Sub
Private Sub MDIForm_MdiChil dActivate(ByVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.MdiChild Activate
Dim frm As Form
Dim objIMDIChild As IMDIChild
frm = Me.ActiveMdiChi ld
Me.Text = "Can not save"
If Not (frm Is Nothing) Then
If TypeOf frm Is IMDIChild Then
objIMDIChild = DirectCast(frm, IMDIChild)
If objIMDIChild.Ca nSave Then
Me.Text = "Can save"
End If
End If
End If
End Sub
End Class
--
Carlos J. Quintero
MZ-Tools 4.0: Productivity add-ins for Visual Studio .NET
You can code, design and document much faster.
http://www.mztools.com
"Ellis Yu" <el******@trans field.com> escribió en el mensaje
news:ej******** ******@TK2MSFTN GP15.phx.gbl...
Thanks for your help. But I'm still don't understand how to use
interface for invoking the action for different child windows. Would you
please kindly give me some sample code for this? Many thanks.