GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI


			
				
					
						
						
							12345678910111213141516171819202122
							

Public Class 測試介面
    Private Sub 播放YT()
        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='" & WB1.Width - 25 & "' height='" & WB1.Height - 25 & "' frameborder='1' allowfullscreen></iframe>"
        html &= "</body></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