Sunday, November 24, 2013

Vb Code

Public Class MainWindow @@@@@@@@ OUATTARA G. ROMUALD @@@@@@@@ @@@@@@@@ WEBBROWSER @@@@@@@@ # component part GESTION DE LA FENETRE PRINCIPALE Chargement de la fenetre surreptitious Sub MainWindow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load On demande à ce que le bouton go soit équivalent à la touche ENTREE Comme sa on peut naviguer en tapant juste ENTREE Me.AcceptButton = Me.Go_BT End Sub #End surface area #Region GESTION DU/DES WEBBROWSER DocumentComplete permet de savoir si le page a fini de courser Private Sub WebBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser.DocumentCompleted Si ladresse du WebBrowser nexiste pas encore dans la barre daddresse (AdresseURl_CB) Cela permet déviter de copier plusieurs fois la même adresse dans le ComboBox If Me.AdresseURL_CB.Items.IndexOf(Me.WebBrowser.Url.ToString) < 0 Then Alors on ajoute ladresse Me.Adr esseURL_CB.Items.Add(Me.WebBrowser.Url.ToString) End If Ensuite on donne le titre de la page à longlet Me.Onglets.SelectedTab.Text = Me.WebBrowser.DocumentTitle On donne aussi a la barre dadresse ladresse exacte de la page Me.AdresseURL_CB.Text = Me.WebBrowser.Url.ToString On desactive le bouton stop Me.Stop_BT.
bestessaycheap.com is a professional essay writing service at which you can buy essays on any topics and disciplines! All custom essays are written by professional writers!
Enabled = ludicrous Si on peut repartir a la page preceding(prenominal)e If Me.WebBrowser.CanGoBack Then On active le bouton precedent Me.Precedent_BT.Enabled = accepted Else Me.Precedent_BT.Enabled = False End If Si on peut repartir a la page siuvante If Me.WebBrowser.CanGoForward Then On active le bouton suivant Me.Suivant_BT.Enabled = True Else Me! .Suivant_BT.Enabled = False End If End Sub NewWindow permet de savoir si une fenetre est en stop de creer Private Sub WebBrowser_NewWindow(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser.NewWindow Dim elementActif As HtmlElement = WebBrowser.Document.ActiveElement On obtient lelement actif du...If you want to get a right essay, order it on our website: BestEssayCheap.com

If you want to get a full essay, visit our page: cheap essay

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.