Discussion :

[Indepakassoil]

Bonjour,

Nous utilisons un outil de développement 4GL pour générer nos interfaces utilisateur. Le front-end ainsi obtenu hérite automatiquement du theme windows utilisé.

En contrepartie, on utilise également certains OCX créés en VB6 qui ont leur propre apparence totalement indépendante du theme Windows en vigueur.

Cela pose problème, car selon le theme de Windows, les champs "standard" de notre application 4GL varient, mais les OCX faits en VB6 restent constants.

Je me suis documenté et ai trouvé ceci: http://support.microsoft.com/kb/309366/en-us. Il serait donc possible, au moyen d'un fichier manifest, d'appliquer un style windows particulier à une application VB6. Il est cependant bien précisé que cette méthode n'est pas supportée et peut donner des résultats inattendus. Et je confirme, cette méthode ne fonctionne pas dans notre cas.

J'aimerais donc tenter une autre approche qui consisterait à définir manuellement l'apparence de nos OCX pour chaque style de Windows. Il me reste cependant un problème: détecter le style de windows utilisé pour pouvoir appliquer l'apparence correcte.
J'ai trouvé ceci pour déterminer la version de Windows utilisée: http://support.microsoft.com/kb/189249/en-us ou http://msdn2.microsoft.com/en-us/library/ms724451.aspx. Il me faudrait cependant le style de Windows utilisé. Je pourrais par exemple appliquer le theme "Windows Classic" tout en étant sous Windows XP; la version de windows ne m'est donc d'aucune utilité.

Quelqu'un aurait-il une idée?

Merci pour votre aide.

[OhMonBato]

Trouve sur un autre site :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Declare Function IsThemeActive Lib "UxTheme.dll" () As Boolean
 
If IsThemeActive Then
   MsgBox "Style XP activé"
Else
   MsgBox "Style classique activé"
End If