Nenhuma descrição
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

測試介面.vb 1.0KB

12345678910111213141516171819202122
  1. 
  2. Public Class 測試介面
  3. Private Sub 播放YT()
  4. Dim html As String = "<html><head>"
  5. html &= "<meta content='IE=Edge' http-equiv='X-UA-Compatible'/>"
  6. html &= "<iframe id='video' src= 'https://www.youtube.com/embed/{0}' width='" & WB1.Width - 25 & "' height='" & WB1.Height - 25 & "' frameborder='1' allowfullscreen></iframe>"
  7. html &= "</body></html>"
  8. Me.WB1.DocumentText = String.Format(html, YT網址_tb.Text.Split("=")(1))
  9. End Sub
  10. Private Sub 測試介面_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  11. End Sub
  12. Private Sub 測試介面_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  13. Label2.Text = Strings.Format(Today(), "yyyy/MM/dd") & " - " & Strings.Format(TimeOfDay(), "HH:mm:ss")
  14. End Sub
  15. Private Sub 測試介面_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
  16. 播放YT()
  17. End Sub
  18. Private Sub 執行_bt_Click_1(sender As Object, e As EventArgs) Handles 執行_bt.Click
  19. 播放YT()
  20. End Sub
  21. End Class