شكراً اخي على رسالتك ,
يمكنك التحكم بالبرنامج المكتوب بالـVB.Net عن طريق صفحة ويب يتم تحميلها داخل Gecko WebBrowser
في المشروع اضف ملف الى الـResources واجعل اسمه html وضع بداخله الكود التالي :
ثم في نافذه Form1 اضف اداة GeckoWebBrowser1 و TextBox1
وضع الكود التالي
تحياتي وتمنياتي لك بالتوفيق
يمكنك التحكم بالبرنامج المكتوب بالـVB.Net عن طريق صفحة ويب يتم تحميلها داخل Gecko WebBrowser
في المشروع اضف ملف الى الـResources واجعل اسمه html وضع بداخله الكود التالي :
كود :
<!DOCTYPE html>
<html>
<head>
</head>
<body>
<h1>Welcome</h1>
<button onclick="ShowText()">Show Text</button>
<button onclick="End()">End</button>
<script type='text/javascript'>
function ShowText(){
var event = document.createEvent('MessageEvent');
var origin = window.location.protocol + '//' + window.location.host;
var event = new MessageEvent('ABC', { 'view': window, 'bubbles': false, 'cancelable': false, 'data': "This Text From HTML Page" });
document.dispatchEvent (event);
}
function End(){
var event = document.createEvent('MessageEvent');
var origin = window.location.protocol + '//' + window.location.host;
var event = new MessageEvent('ABC', { 'view': window, 'bubbles': false, 'cancelable': false, 'data': "End" });
document.dispatchEvent (event);
}
</script>
</body>
</html>ثم في نافذه Form1 اضف اداة GeckoWebBrowser1 و TextBox1
وضع الكود التالي
PHP كود :
Public Class Form1
Private Sub MyBase_Load(sender As Object, e As EventArgs) Handles MyBase.Load
GeckoWebBrowser1.LoadHtml(My.Resources.html)
End Sub
Private Sub x1(a As String)
If a = "End" Then
MsgBox("Now Will Exit App ;")
End
Else
TextBox1.Text = a
End If
End Sub
Private Sub GeckoWebBrowser1_DocumentCompleted(sender As Object, e As Gecko.Events.GeckoDocumentCompletedEventArgs) Handles GeckoWebBrowser1.DocumentCompleted
GeckoWebBrowser1.AddMessageEventListener("ABC", AddressOf x1)
End Sub
End Class
تحياتي وتمنياتي لك بالتوفيق
