Ciao Tornu,
ti ringrazio per la prova, purtroppo questo conferma che la voce di menu non funziona.
Infatti se provi invece con Ctrl+V puoi vedere che il testo si incolla (non formattato) sulla WebView, almeno spero :)
Prima mi ero dimenticato di precisare che ho fatto anche altre prove, prima di tutto l’uso di paste Public Sub mnPaste_Click()
Dim s As String
s = Clipboard.Paste("text/plain")
If IsNull(s) Then Return
Clipboard.Copy(s)
WebView1.Eval("document.execCommand('Paste', false, false)")
End
Comunque tutte senza esito soddisfacente.
:ciao: :ciao:
Sì è vero con Ctrl+V funziona.
Con questa modifica funziona anche dal menu popup, utilizzando al posto di WebView1.Eval,WebView1.HTML
Public Sub mnPaste_Click()
Dim s As String
s = Clipboard.Paste("text/plain")
If IsNull(s) Then Return
s = "<div>" & s & "</div>"
s = Replace(s, "\n", "</div><br><div>")
s = Replace(s, ".", ".</div><div>")
WebView1.HTML = s
End
Potrei aver risolto con un trucco:
Public Sub mnPaste_Click()
Dim s, p As String
s = Clipboard.Paste("text/plain")
If IsNull(s) Then Return
p = "[xhpz5]"
WebView1.Eval(Subst("document.execCommand('InsertHTML', false,'&1')", p))
s = "<div>" & s & "</div>"
s = Replace(s, "\n", "</div><br><div>")
s = Replace(s, ".", ".</div><div>")
WebView1.HTML = Replace(WebView1.HTML, p, s)
End
Cosa ne pensate?
:ciao: :ciao:
Contrordine ragazzi, ;D
il codice
Public Sub mnPaste_Click()
Dim s As String
s = Clipboard.Paste("text/plain")
Clipboard.Copy(s)
WebView1.Eval("document.execCommand('Paste', false,false)")
End
funziona, l'importante è settare con
WebSettings[WebSettings.JavascriptCanAccessClipboard] = True
Evidentemente sbagliavo qualcosa o non ricompilavo prima delle prove, scusate il disturbo. :-[
E pensare che ci sono diventato matto...
Conferme a questo sarebbero gradite :ciao: