Embeddare Windows Explorer nella DocumentUI

Qualcosa di davvero carino ed interessante che magari potrà esservi utile..

La possibilità di poter embeddare all'interno di una Form Notes la Windows Explores semplicemente aggiungendo alla postopen di una form, il seguente codice :

********************************
Sub Postopen(Source As Notesuidocument)
Dim browser As Variant
Set browser = source.GetObject("Microsoft Web Browser")
If (Len(Source.FieldGetText("url")) > 0) Then
If (browser.width <> 400) Then
 browser.width = 400
 browser.height = 400
End If
Call browser.navigate(Source.FieldGetText("url"))
End If
End Sub

********************************


L'articolo è tratto da qui e viene spiegato nel dettaglio come fare.

E se volete vedere un video della soluzione proposta cliccate qui