Vb6 ปิดการคลิ๊กขวา และ Scroll ใน Webbrowser Control

เป็นการใช้ Function ใน Cafe.ocx เพื่อปิด ไม่ให้คลิ๊กขวาได้ใน Webbrowser Control

Function ที่จะนำมาใช้งาน คือ Hookwebbrowser และ UnHookwebbrowser

ตัวอย่างการใช้งานตามโค้ดด้านล่างนี้

Private Sub Form_Load()
LibCafe1.Hookwebbrowser
WebBrowser1.Navigate "http://oneintel.blogspot.com"
End Sub

Private Sub Form_Unload(Cancel As Integer)
LibCafe1.UnHookwebbrowser
End Sub

หากทำไม่ให้คลิ๊กขวา แล้ว ไม่อยากให้ โชว์  Scroll ิ ตาม แนวขอบของ Control

ให้เพิ่มโค็ดนี้ลงไปตรง DocumentComplete(ByVal pDisp As Object, URL As Variant)

โดยการคลิ๊กที่ ตัว Control ของเรา แล้วเลือกตรงช่อง  Procedure


ตัวอย่างเช่น


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Scroll = "no" 'ชื่อ Control ตามด้วย Document.body.Scroll = "no"
End Sub


ดูรูปภาพ ตัวอย่าง การใช้งาน โค้ดนี้ กับการไม่ใช้งาน ครับ

ก่อนการใส่โค้ดนี้

หลังการใส่โค้ดนี้