01-05-16, 08:58 PM
السلام عليكم ورحمة الله تعالى وبركاته
اريد التعديل على الكود بحيث النموذج عبارة عن برنامج يستعمله عامة الناس
اريد ان اجعل البرنامج عند فتحه من عامةالناس وكانه مفتوح من طرف شخص واحد اي بابي واحد
ارجو اكون قد اوصلة الفكرة .... وشكرا
اريد التعديل على الكود بحيث النموذج عبارة عن برنامج يستعمله عامة الناس
اريد ان اجعل البرنامج عند فتحه من عامةالناس وكانه مفتوح من طرف شخص واحد اي بابي واحد
ارجو اكون قد اوصلة الفكرة .... وشكرا
PHP كود :
Public Class Form1
Dim WithEvents Browser As New Skybound.Gecko.GeckoWebBrowser 'make new geckobrowser
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Skybound.Gecko.Xpcom.Initialize(Application.StartupPath & "\xulrunner") 'initialize xulrunner from .\xulrunner
Me.Controls.Add(Browser) 'add browser control to form
Browser.Visible = True 'show webbrowser
Browser.Dock = DockStyle.Fill 'set webbrowser to fill all form/parent
Browser.Navigate("http://vb4arb.com/vb/thread-15406-post-75047.html#pid75047") 'navigate to teamnibic.com
Button1.BringToFront() 'set navigate button to front
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Browser.Navigate("www.google.com") 'navigate to google.com
End Sub
Private Sub Browser_DocumentTitleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Browser.DocumentTitleChanged
Me.Text = Browser.DocumentTitle 'Set form text to website title
End Sub
End Class