CRÉATION ET APPLICATION MANIFEST EN UNE SEULE LIGNE [MODULE DE CLASSE]

Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
- - Dernière réponse : Philippe734
Messages postés
309
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
- 25 avril 2010 à 12:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/34784-creation-et-application-manifest-en-une-seule-ligne-module-de-classe

Philippe734
Messages postés
309
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
1 -
Ton test de la version de windows peut être amélioré de cette façon par exemple :

'dans les déclarations :
Private Const win95 As String = "Windows 95"
Private Const win98 As String = "Windows 98"
Private Const win2000 As String = "Windows 200"
Private Const XP As String = "XP"
Private Const Vista As String = "Vista"
Private Const win2003 As String = "Windows 2003"
Private Const Seven As String = "Seven"

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

'-> retourne des infos sur la plateforme système
'changé ton api avec celle-là
Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer

'la fonction public ou privée pour récupérer la version de windows
'et préciser si c'est au moins windows XP avec AtLeastXP
Public Function GetVersionWin(Optional ByRef AtLeastXP As Boolean) As String
Dim osinfo As OSVERSIONINFO
Dim retvalue As Integer
osinfo.dwOSVersionInfoSize = 148
osinfo.szCSDVersion = Space$(128)
retvalue = GetVersionExA(osinfo)
With osinfo
Select Case .dwMajorVersion
Case 4
Select Case .dwMinorVersion Case 0: GetVersionWin win95: AtLeastXP False Case 10: GetVersionWin win98 : AtLeastXP False
End Select
Case 5
Select Case .dwMinorVersion Case 0: GetVersionWin win2000: AtLeastXP False Case 1: GetVersionWin XP: AtLeastXP True Case 2: GetVersionWin win2003: AtLeastXP True
End Select
Case 6
Select Case .dwMinorVersion Case 0: GetVersionWin Vista: AtLeastXP True Case 1: GetVersionWin Seven: AtLeastXP True
End Select Case Else: GetVersionWin "Failed": AtLeastXP False
End Select
End With
End Function

'et changer le contenus de ta fonction avec ça :
Private Function IsWindowsXP() As Boolean
[...]
Call GetVersionWin(IsWindowsXP)

Concernant ma question précédent, en attendant de trouver mieux, j'applique une astuce trouvé dans le forum : je remplace le texte des objets dont leurs couleurs ne change pas par un label coloré
Philippe734
Messages postés
309
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
1 -
Super source je vais enfin pouvoir me passer d'un fichier stylewindows.res

En revanche, comment faire pour que la couleur changée des checkbox, option et des frames fonctionne ? car si on les mets dans une autre couleur que celle du style de windows alors leurs couleurs ne sera pas prise en charge et sera celle du style de windows.
violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
-
C'est ici que j'ai appris à mettre systématiquement une PictureBox dans chaque Frame ;)

@+
MadM@tt
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
Vraiment sympa, j'avais jamais vu cette source !
Voilà quelque chose qui résoud tous mes problèmes, merci bien et bravo ;)
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
CheckBox, OptionButtons, et boutons doivent bénéficier de PictureBoxes