ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 82|ตอบกลับ: 0

[VIDEO] การใช้งาน WebView2 (Edge-Chromium) ด้วย Visual Basic 2017+

[คัดลอกลิงก์]

257

กระทู้

386

โพสต์

3256

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
3256

Using WebView2 with Visual Basic .NET (2017+) ... คลิปวิดีโอนี้จะสาธิตถึงวิธีการเรียกใช้งาน WebView2 Control ซึ่งเป็น Web Browser ของฟรีตัวใหม่ล่าสุดของ Microsoft ด้วยชุด Canary Channel ซึ่งมีฐานมาจาก Edge-Chromium เท่าที่แอดมินได้ลองทดสอบดู ก็ค่อนข้างมีความเร็ว กินทรัพยากรระบบต่ำ เอามาฝากสำหรับนักพัฒนาที่จำเป็นต้องใช้งาน Desktop Application ผสมกับ Web Application กันล่ะครับ ...



โค้ดตัวอย่าง ...
  1. Public Class frmWebView
  2.     Private Sub frmWebView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3.         txtURL.Text = "https://www.google.co.th"
  4.     End Sub

  5.     Private Sub txtURL_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtURL.KeyPress
  6.         '// หากมีการกด ENTER
  7.         If Asc(e.KeyChar) = 13 Then
  8.             '// ปิดเสียงการกดคีย์
  9.             e.Handled = True
  10.             Try
  11.                 '// หรือ --> WebView21.CoreWebView2.Navigate(txtURL.Text)
  12.                 WebView21.Source = New Uri(txtURL.Text)
  13.             Catch ex As UriFormatException
  14.                 MessageBox.Show("ต้องปรับรูปแบบ URL ให้ครบ เช่นต้องนำหน้าด้วย HTTP[S]://")
  15.             Catch ex As Exception
  16.                 MessageBox.Show("Error: {ex}")
  17.             End Try
  18.         End If
  19.     End Sub
  20. End Class
คัดลอกไปที่คลิปบอร์ด

โค้ดทดสอบกับการรัน JavaScript (เราสามารถฝัง Script เอาไว้ในโปรเจค หรือดึงมาจากไฟล์เอกสาร HTML ก็ได้) ... เพิ่มปุ่ม Button เข้่ามา 1 ตัว ให้ชื่อว่า btnHTML
  1. Public Class Form1
  2.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3.         txtURL.Text = "https://www.google.co.th"
  4.         WebView21.Source = New Uri(txtURL.Text)
  5.     End Sub
  6.     Private Sub btnHtml_Click(sender As Object, e As EventArgs) Handles btnHtml.Click
  7.         Dim strHtml As String = "<h1>สวัสดีชาวโลก</h1><h2>Hello, World</h2>"
  8.         strHtml = strHtml + "<form><input type=""button"" id=""btn01"" value=""OK""></form>
  9.         <p>Click the ""Disable"" button to disable the ""OK"" button:</p>
  10.         <button onclick=""disableElement()"">Disable</button><script>
  11.         function disableElement() {
  12.           document.getElementById(""btn01"").disabled = true;
  13.         }</script>"
  14.         WebView21.NavigateToString(strHtml)
  15.     End Sub
  16.     Private Sub txtURL_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtURL.KeyPress
  17.         '// Press Enter in TextBox
  18.         If Asc(e.KeyChar) = 13 Then
  19.             '// No Beep
  20.             e.Handled = True
  21.             Try
  22.                 Me.WebView21.Source = New Uri(txtURL.Text)
  23.                 '// OR
  24.                 '// Me.WebView21.CoreWebView2.Navigate(txtURL.Text)
  25.             Catch ex As UriFormatException
  26.                 MessageBox.Show("Full URL ex. --> HTTP[S]://")
  27.             Catch ex As Exception
  28.                 MessageBox.Show(ex.Message)
  29.             End Try

  30.         End If
  31.     End Sub

  32. End Class
คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2017) ได้ที่นี่ (จำเป็นต้องใช้ .NET Framework 4.6.2 ขึ้นไปน่ะครับ) ...

ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

x
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-12-2 19:56 , Processed in 0.315413 second(s), 4 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้