1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
Public Class FormBase
Private Sub FormBase_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i As Integer = 1 To 10
ComboBox1.Items.Add("Item" + i.ToString)
ListBox1.Items.Add("Item" + i.ToString)
Next
End Sub
'modifie comme overridable :son code sera modifie dans FormDeriveA
Protected Overridable Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("button1 base")
End Sub
'idem: :son code sera modifie dans FormDeriveA et FormDeriveB
Protected Overridable Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
MessageBox.Show(ComboBox1.SelectedItem.ToString)
End Sub
End Class
'form herité A
Public Class FormDeriveA
Protected Overrides Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show("button1 DERIVEA")
End Sub
Protected Overrides Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show(ComboBox1.SelectedIndex.ToString)
End Sub
End Class
'form herité B
Public Class FormDeriveB
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
'MyBase.OnLoad(e)
ComboBox1.Items.Clear()
For i As Integer = 1 To 5
ComboBox1.Items.Add("ItemDerivedB" + i.ToString)
Next
End Sub
Protected Overrides Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ListBox1.Items.Add(ComboBox1.SelectedItem.ToString)
Label1.Text = ComboBox1.SelectedItem.ToString
End Sub
End Class |
Partager