[VB.NET] WebBrowser: funzioni Taglia, Copia, Incolla

[Alfy91]

Salve a tutti.
E' tantissimo tempo che seguo questo sito, trovandolo molto utile. Vi porgo una domanda, poichè ho un problema che mi affligge.
Ho creato un piccolo browser con visual basic.net, con il componente webbrowser. Tuttavia non riesco ad implementare le funzioni taglia, copia, incolla. Chi può aiutarmi?
Grazie mille.

[Frungillo]

Ciao, fammi capire, io ho fatto a volo una cosa simile per simulare il problema:

1) in una Form ho inserito una TEXTBOX, un BOTTONE ed il componente WebBrowser
2) all'evento onclick del bottone ho impostato WebBrowser1.Navigate(Textbox1.text)

ho provato a fare un taglia-incolla in tutte le direzioni e mi funge senza aggiungere alcuna riga di codice ma semplicemente usando il menu contestuale......

probabilmente non ho capito io dove ti incarti.....

[Alfy91]

Mi incarto quando, dal mio menu (il menu strip) voglio fare il taglia/copia/incolla del contenuto del browser. Cioè immagina di avere un bottone che si chiama btntaglia.All'evento click deve tagliare quello che è selezionato nel browser. Qui mi incarto...

[gibra]

Ma se non mostri il codice...

[Alfy91]

quale codice? in verità l'ho chiesto io a voi....

[alka]

Originariamente inviato da Alfy91
Mi incarto quando, dal mio menu (il menu strip) voglio fare il taglia/copia/incolla del contenuto del browser. Cioè immagina di avere un bottone che si chiama btntaglia.All'evento click deve tagliare quello che è selezionato nel browser. Qui mi incarto...

Hai verificato se il controllo WebBrowser non possiede metodi che abbiano un nome simile alle operazioni cut, copy e paste?

[Alfy91]

Si. Non solo, ma ho anche letto la documentazione su msdn. E, a meno che non l'abbia proprio visti questi metodi, pare che cut, paste e copy non ci siano.
Help me

[alka]

Hai provato con l'uso del metodo ExecCommand del controllo WebBrowser?

webBrowser1.Document.ExecCommand("Cut", True, Nothing)

webBrowser1.Document.ExecCommand("Copy", True, Nothing)

webBrowser1.Document.ExecCommand("Paste", True, Nothing)

Ciao!

[Frungillo]

AAAAHHHHH! Ora ho capito! Allora fai cosi:

Imports mshtml 
''per importare questo devi aggiungere un riferimento al progetto della libreria Microsoft.mshtml.dll 

........

''io creo un bottone tu fai quello che vuoi ;-)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Dim DocumentoHtml As IHTMLDocument2 = TryCast(WebBrowser1.Document.DomDocument, IHTMLDocument2)

    Dim Selezione As IHTMLSelectionObject = DocumentoHtml.selection

    If Seleizone IsNot Nothing Then
        Dim range As IHTMLTxtRange = TryCast(Selezione.createRange(), IHTMLTxtRange)
        If range IsNot Nothing Then
            MessageBox.Show(range.text) ' Butto il risultato in una MsgBox ma tu ne fai ciò che vuoi!
        End If
    End If
EndSub 

Fammi sapere mi raccomando!

[Alfy91]

Grazie mille a tutti. Ho risolto il mio problema.
Ciao