تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعديل على هذا الكودلو سمحتم
#1
السلام عليكم ورحمة الله تعالى وبركاته
     اريد التعديل على الكود  بحيث النموذج عبارة عن برنامج يستعمله عامة الناس
اريد ان اجعل البرنامج عند فتحه من عامةالناس وكانه مفتوح من طرف شخص واحد اي بابي واحد    
  ارجو اكون قد اوصلة الفكرة  .... وشكرا

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 ObjectByVal e As System.EventArgsHandles Browser.DocumentTitleChanged
        Me
.Text Browser.DocumentTitle 'Set form text to website title
    End Sub
End Class 
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: