Private Sub AjouteUntexte() Dim TexteTest As TextBox = New TextBox Me.Controls.Add(TexteTest) AddHandler TexteTest.KeyUp, AddressOf TexteTest_KeyUp AddHandler TexteTest.LostFocus, AddressOf TexteTest_LostFocus AddHandler TexteTest.GotFocus, AddressOf TexteTest_GotFocus AddHandler TexteTest.DoubleClick, AddressOf TexteTest_DbClick AddHandler TexteTest.DoubleClick, AddressOf TexteTest_Click End Sub Private Sub TexteTest_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) End Sub Private Sub TexteTest_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) End Sub Private Sub TexteTest_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) End Sub Private Sub TexteTest_DbClick(ByVal sender As Object, ByVal e As System.EventArgs) End Sub Private Sub TexteTest_Click(ByVal sender As Object, ByVal e As System.EventArgs) End Sub
ucl.ButtonChargerFiche.Tag = i FlowLayoutPanel1.Controls.Add(ucl) AddHandler ucl.ButtonChargerFiche.Click, AddressOf ButtonChargerFiche_Click
Public Sub ButtonChargerFiche_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim i As Integer = sender.tag ' Index, ou position du bouton dans la liste des résultats Dim CodeFilm As String = ft(i).Code Dim Lien_Api As String = "http://api.allocine.fr/rest/v3/movie?" & _ "partner=YW5kcm9pZC12M3M" & _ "&code=" & CodeFilm & _ "&profile=medium" & _ "&format=json" & _ "&filter=movie" & _ "&striptags=synopsis"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question