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
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim celPhoto As TableCell = CType(FindControl("celPhoto"), TableCell)
Dim slPhoto As New AjaxControlToolkit.SlideShowExtender
Dim btnPlay, btnSuiv, btnPrec As New Button
Dim imgSlide As New Image
With imgSlide
.ID = "imgSlide"
End With
With btnPlay
.ID = "btnPaly"
End With
With btnSuiv
.ID = "btnSuiv"
.Text = "Suivante"
End With
With btnPrec
.ID = "btnPrec"
.Text = "Précédente"
End With
With slPhoto
.ID = "slPhoto"
.Loop = True
.TargetControlID = imgSlide.ID
.NextButtonID = "SUIVANTE"
.PreviousButtonID = btnPlay.ID
.PlayButtonText = "PLAY"
.PlayButtonID = btnPlay.ID
.StopButtonText = "STOP"
.SlideShowServicePath = "/GMPhotoProfil.asmx"
.SlideShowServiceMethod = "GetSlides"
.BehaviorID = "SlideShow"
.ContextKey = Request.QueryString("iduser")
End With
With celPhoto
.Controls.Add(imgSlide)
.Controls.Add(btnPrec)
.Controls.Add(btnPlay)
.Controls.Add(btnSuiv)
.Controls.Add(slPhoto)
End With
End Sub |
Partager