Wstęp
Czasami przychodzi potrzeba pokazania podglądu pliku na formularzu. Szczególnie wtedy gdy przetrzymujemy linki do plików w bazie, a chcielibyśmy dać użytkownikom możliwość podejrzenia zawartości bez opuszczania aplikacji.
Rozwiązanie
Rozwiązanie jest niezwykle proste. Wystarczy na formularzu osadzić przeglądarkę internetową i wskazać jej plik do wyświetlenia.
Access 2003
Tworzymy formularz i wstawiamy do niego kontrolkę Microsoft Web Browser. Przy wykorzystaniu metody Navigate jesteśmy wstanie wskazać dokument do wyświetlenia.
Oczywiście należy ograniczyć rozszerzenia, aby uniknąć komunikatu o tym czy chcemy otworzyć, czy zapisać plik…
Realizujemy to prostym kodem:
Dim ext() As String 'sprawdź czy jest wybrany plik If Len(Nz(Me.txtAdres, "")) > 0 Then 'sprawdź czy wybrane plik istnieje If Len(Dir(CStr(Me.txtAdres))) > 0 Then 'sprawdź czy obsługiwane rozszerzenie ext = Split(Me.txtAdres, ".") Select Case ext(UBound(ext)) Case "pdf", "bmp", "jpg", "tiff", "png", "gif", "jpeg", "tif", "xps", "htm", "html", "xml" Me.FileBrowser.Object.Navigate CStr(Me.txtAdres.Value) Me.FileBrowser.Visible = True Case Else Me.FileBrowser.Visible = False End Select Else Me.FileBrowser.Visible = False End If End If
Access 2010
tutaj jest dokładnie tak samo, tylko używamy już wbudowanej kontrolki przeglądarki w tej wersji.
Oczywiście należy pamiętać o tym, że aby plik był widoczny w przeglądarce należy mieć zainstalowany dodatek do tejże. Czyli albo Foxit Readera albo Adobe Readera
Podsumowanie
Taka wiedza pozwala w bardzo fajny i przystępny sposób rozbudować naszą aplikacje o dodatkowe funkcje.
Standardowo zamieszczam link do przykładu w wersji 2003 i 2010
Genialne 🙂