Public Class 測試介面
Private Sub 播放YT()
Dim html As String = ""
html &= ""
html &= ""
html &= ""
Me.WB1.DocumentText = String.Format(html, YT網址_tb.Text.Split("=")(1))
End Sub
Private Sub 測試介面_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub 測試介面_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
Label2.Text = Strings.Format(Today(), "yyyy/MM/dd") & " - " & Strings.Format(TimeOfDay(), "HH:mm:ss")
End Sub
Private Sub 測試介面_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
播放YT()
End Sub
Private Sub 執行_bt_Click_1(sender As Object, e As EventArgs) Handles 執行_bt.Click
播放YT()
End Sub
End Class