[ Active X Controls ] Buttons σε WebBrowser Object

[Tasos]

Αγαπητέ φίλε Βαγγέλη καλημέρα και χρόνια πολλά!

Είχαμε γράψει παλαιότερα ότι στο αντικείμενο του WebBrowser δεν παρέχεται κάποια ρύθμιση για την εμφάνιση XP ή Vista styles.

Μπορείς να κάνεις όμως να προσθέσεις στα Meta Tags της σελίδας-html που φορτώνεται τα εξής:

<meta http-equiv="msthemecompatible" content="yes">

Για να σου εμφανίζει τα στοιχεία της σελίδας σύμφωνα με το θέμα του συστήματος.
Αν αυτό δεν είναι εφικτό, ή αν πρόκειται για περισσότερες σελίδες
Τότε, θα μπορούσαμε μέσω της VBA να προσθέσουμε την παραπάνω γραμμή
στον κώδικά-Html του εγγράφου κάθε φορά που αυτό θα φορτώνεται στον WebΒrowser.

Ακόμα καλύτερα (για μένα η πιο αξιόπιστη λύση) είναι η χρήση του παρακάτω κώδικα
Στην κλάση της φόρμας.

'Στην κλάση της φόρμας που περιέχει τον Webbrowser  κάτω από το  _ 
Option Compare Database:

Option Explicit
Private Declare Function LoadLibrary Lib "kernel32" _
        Alias "LoadLibraryA" ( _
        ByVal lpLibFileName As String) As Long

Private Declare Function FreeLibrary Lib "kernel32" ( _
        ByVal hLibModule As Long) As Long
        
Private ExlrorerModule As Long

'Στο συμβάν onload προσθέτουμε το παρακάτω:

Private Sub Form_Load()
    ExlrorerModule = LoadLibrary("explorer.exe")
End Sub

'Και στο συμβάν Close προσθέτουμε το παρακάτω

Private Sub Form_Close()
    If ExlrorerModule Then FreeLibrary ExlrorerModule
End Sub

Με εκτίμηση

Τάσος