| 12
 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
 55
 56
 
 |  
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
		Dim lTitre As New Label
		lTitre.Text = "Bienvenue dans la Concession"
		Me.Controls.Add(lTitre)
 
		Dim btnVoiture As New Button
		With btnVoiture
			AddHandler btnVoiture.Click, AddressOf AfficheConcession
			.Text = "Choisir une voiture"
			.ID = "btnVoiture"
		End With
		Me.Controls.Add(btnVoiture)
		Dim upConcession As New UpdatePanel
		With upConcession
			.UpdateMode = UpdatePanelUpdateMode.Conditional
			.ID = "upConcession"
		End With
		Dim trigbtnVoiture As New AsyncPostBackTrigger
		With trigbtnVoiture
			.ControlID = btnVoiture.ID
			.EventName = "Click"
		End With
		upConcession.Triggers.Add(trigbtnVoiture)
		Me.Controls.Add(upConcession)
 
	End Sub
 
	Sub AfficheConcession(ByVal sender As Object, ByVal e As System.EventArgs)
		Dim upc As UpdatePanel = Me.FindControl("upConcession")
		Dim lTest As New Label
		lTest.Text = "test d'affichage du panel de Consession"
		upc.ContentTemplateContainer.Controls.Add(lTest)
		Dim btnTest As New Button
		With btnTest
			AddHandler btnTest.Click, AddressOf AfficheDetailVoiture
			.Text = "Détail de voiture"
			.ID = "btnDetail"
		End With
		upc.ContentTemplateContainer.Controls.Add(btnTest)
		Dim trigDetailVoiture As New AsyncPostBackTrigger
		With trigDetailVoiture
			.ControlID = btnTest.ID
			.EventName = "Click"
		End With
		upc.Triggers.Add(trigDetailVoiture)
	End Sub
 
	Sub AfficheDetailVoiture(ByVal sender As Object, ByVal e As System.EventArgs)
		Logage("je passe")
		Dim upc As UpdatePanel = Me.FindControl("upConcession")
		Dim lDetailVoiture As New Label
		lDetailVoiture.Text = "Detail de la voiture"
		upc.ContentTemplateContainer.Controls.Add(lDetailVoiture)
 
	End Sub | 
Partager