Salve, mi sono appassionato alla programmazione in visual basic da un mese.
Sono riuscito ad fare 2 programmini ed ora sto tentando di farne un terzo, ma mi sono bloccato evidentemente per la mia non esperienza in programmazione.
Ho cercato in rete ma per ora non ho trovato soluzioni, se potreste aiutarmi.
Il programmino e un visualizzatore di video su Youtube.
Prima versione di codice:
Imports System.IO
Imports System.Net
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports System
Imports System.Windows.Forms
Public Class YouTubeClickIT
Private Sub YouTubeClickIT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WebBrowser1.Navigate("www.youtube.com/v/" & TextBox1.Text.Split("=")(1))
End Sub
Questa soluzione è brutta esteticamente e non molto funzionale.
Seconda versione di codice:
Imports System.IO
Imports System.Net
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports System
Imports System.Windows.Forms
Public Class YouTubeClickIT
Private Sub YouTubeClickIT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim html As String = "<html><head>"
html += "<meta content='IE=Edge' http-equiv='X-UA-Compatible'/>"
html += "<iframe id='video' src= 'https://www.youtube.com/embed/{0}' width='600' height='300' frameborder='0' allowfullscreen></iframe>"
html += "</body></html>"
Me.WebBrowser1.DocumentText = String.Format(html, TextBox1.Text.Split("=")(1))
End Sub
Mi piacerebbe la soluzione 2, ovvero visualizzare solo il video.
Come potrei fare?
Grazie in anticipo.
Aurelio