Bonjour
j'ai une appli que je transfert de poste à poste, le problème est que j'ai
développé celle-ci
en 1024*768, et parfois les gens ont leur écran en 800*600
Je souhaite pouvoir, au lancement de cette aplli faire un test afin de
prévenir l'utilisateur de passer en 1024*768
Je vous remercie
Didier
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RGI
Bonjour
avec ceci
'***************************************************************** ' DECLARATIONS SECTION '***************************************************************** Option Explicit Type RECT x1 As Long y1 As Long x2 As Long y2 As Long End Type ' NOTE: Ces déclarations suivantes sont très sensibles. Declare Function GetDesktopWindow Lib "User32" () As Long Declare Function GetWindowRect Lib "User32" _ (ByVal hWnd As Long, rectangle As RECT) As Long
'***************************************************************** ' FUNCTION: GetScreenResolution() ' ' PROPOSE: ' Déterminer la taille d'écran actuelle ou résolution. ' ' RENVOIE: ' La résolution d'écran actuelle. Typiquement un des suivants: ' 640 x 480 ' 800 x 600 ' 1024 x 768 '1280x1024 '***************************************************************** Function GetScreenResolution() As String Dim R As RECT Dim hWnd As Long Dim RetVal As Long
End Function '****************************************************************************** Sub tamacro() Dim ecran ecran = GetScreenResolution MsgBox "La resolution d'écran est :" & ecran If ecran = "640x480" Then Feuil1.Activate If ecran = "800x600" Then Feuil2.Activate If ecran = "1024x768" Then Feuil3.Activate If ecran = "1280x1024" Then Feuil4.Activate End Sub
salutations
RGI
Bonjour j'ai une appli que je transfert de poste à poste, le problème est que j'ai développé celle-ci en 1024*768, et parfois les gens ont leur écran en 800*600 Je souhaite pouvoir, au lancement de cette aplli faire un test afin de prévenir l'utilisateur de passer en 1024*768 Je vous remercie Didier
Bonjour
avec ceci
'*****************************************************************
' DECLARATIONS SECTION
'*****************************************************************
Option Explicit
Type RECT
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type
' NOTE: Ces déclarations suivantes sont très sensibles.
Declare Function GetDesktopWindow Lib "User32" () As Long
Declare Function GetWindowRect Lib "User32" _
(ByVal hWnd As Long, rectangle As RECT) As Long
'*****************************************************************
' FUNCTION: GetScreenResolution() '
' PROPOSE:
' Déterminer la taille d'écran actuelle ou résolution. '
' RENVOIE:
' La résolution d'écran actuelle. Typiquement un des suivants:
' 640 x 480 ' 800 x 600 ' 1024 x 768 '1280x1024
'*****************************************************************
Function GetScreenResolution() As String
Dim R As RECT
Dim hWnd As Long
Dim RetVal As Long
End Function
'******************************************************************************
Sub tamacro()
Dim ecran
ecran = GetScreenResolution
MsgBox "La resolution d'écran est :" & ecran
If ecran = "640x480" Then Feuil1.Activate
If ecran = "800x600" Then Feuil2.Activate
If ecran = "1024x768" Then Feuil3.Activate
If ecran = "1280x1024" Then Feuil4.Activate
End Sub
salutations
RGI
Bonjour
j'ai une appli que je transfert de poste à poste, le problème est que j'ai
développé celle-ci
en 1024*768, et parfois les gens ont leur écran en 800*600
Je souhaite pouvoir, au lancement de cette aplli faire un test afin de
prévenir l'utilisateur de passer en 1024*768
Je vous remercie
Didier
'***************************************************************** ' DECLARATIONS SECTION '***************************************************************** Option Explicit Type RECT x1 As Long y1 As Long x2 As Long y2 As Long End Type ' NOTE: Ces déclarations suivantes sont très sensibles. Declare Function GetDesktopWindow Lib "User32" () As Long Declare Function GetWindowRect Lib "User32" _ (ByVal hWnd As Long, rectangle As RECT) As Long
'***************************************************************** ' FUNCTION: GetScreenResolution() ' ' PROPOSE: ' Déterminer la taille d'écran actuelle ou résolution. ' ' RENVOIE: ' La résolution d'écran actuelle. Typiquement un des suivants: ' 640 x 480 ' 800 x 600 ' 1024 x 768 '1280x1024 '***************************************************************** Function GetScreenResolution() As String Dim R As RECT Dim hWnd As Long Dim RetVal As Long
End Function '****************************************************************************** Sub tamacro() Dim ecran ecran = GetScreenResolution MsgBox "La resolution d'écran est :" & ecran If ecran = "640x480" Then Feuil1.Activate If ecran = "800x600" Then Feuil2.Activate If ecran = "1024x768" Then Feuil3.Activate If ecran = "1280x1024" Then Feuil4.Activate End Sub
salutations
RGI
Bonjour j'ai une appli que je transfert de poste à poste, le problème est que j'ai développé celle-ci en 1024*768, et parfois les gens ont leur écran en 800*600 Je souhaite pouvoir, au lancement de cette aplli faire un test afin de prévenir l'utilisateur de passer en 1024*768 Je vous remercie Didier
Didier Novarin
Merci beaucoup RGI C'est parfait ! Bonne journée Didier
"RGI" a écrit dans le message de news:
Bonjour
avec ceci
'***************************************************************** ' DECLARATIONS SECTION '***************************************************************** Option Explicit Type RECT x1 As Long y1 As Long x2 As Long y2 As Long End Type ' NOTE: Ces déclarations suivantes sont très sensibles. Declare Function GetDesktopWindow Lib "User32" () As Long Declare Function GetWindowRect Lib "User32" _ (ByVal hWnd As Long, rectangle As RECT) As Long
'***************************************************************** ' FUNCTION: GetScreenResolution() ' ' PROPOSE: ' Déterminer la taille d'écran actuelle ou résolution. ' ' RENVOIE: ' La résolution d'écran actuelle. Typiquement un des suivants: ' 640 x 480 ' 800 x 600 ' 1024 x 768 '1280x1024 '***************************************************************** Function GetScreenResolution() As String Dim R As RECT Dim hWnd As Long Dim RetVal As Long
End Function '****************************************************************************** Sub tamacro() Dim ecran ecran = GetScreenResolution MsgBox "La resolution d'écran est :" & ecran If ecran = "640x480" Then Feuil1.Activate If ecran = "800x600" Then Feuil2.Activate If ecran = "1024x768" Then Feuil3.Activate If ecran = "1280x1024" Then Feuil4.Activate End Sub
salutations
RGI
Bonjour j'ai une appli que je transfert de poste à poste, le problème est que j'ai développé celle-ci en 1024*768, et parfois les gens ont leur écran en 800*600 Je souhaite pouvoir, au lancement de cette aplli faire un test afin de prévenir l'utilisateur de passer en 1024*768 Je vous remercie Didier
Merci beaucoup RGI
C'est parfait !
Bonne journée
Didier
"RGI" <nospam.gilbert@wanadoo.fr> a écrit dans le message de news:
448404D2.3080501@wanadoo.fr...
Bonjour
avec ceci
'*****************************************************************
' DECLARATIONS SECTION
'*****************************************************************
Option Explicit
Type RECT
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type
' NOTE: Ces déclarations suivantes sont très sensibles.
Declare Function GetDesktopWindow Lib "User32" () As Long
Declare Function GetWindowRect Lib "User32" _
(ByVal hWnd As Long, rectangle As RECT) As Long
'*****************************************************************
' FUNCTION: GetScreenResolution() '
' PROPOSE:
' Déterminer la taille d'écran actuelle ou résolution. '
' RENVOIE:
' La résolution d'écran actuelle. Typiquement un des suivants:
' 640 x 480 ' 800 x 600 ' 1024 x 768 '1280x1024
'*****************************************************************
Function GetScreenResolution() As String
Dim R As RECT
Dim hWnd As Long
Dim RetVal As Long
End Function
'******************************************************************************
Sub tamacro()
Dim ecran
ecran = GetScreenResolution
MsgBox "La resolution d'écran est :" & ecran
If ecran = "640x480" Then Feuil1.Activate
If ecran = "800x600" Then Feuil2.Activate
If ecran = "1024x768" Then Feuil3.Activate
If ecran = "1280x1024" Then Feuil4.Activate
End Sub
salutations
RGI
Bonjour
j'ai une appli que je transfert de poste à poste, le problème est que
j'ai développé celle-ci
en 1024*768, et parfois les gens ont leur écran en 800*600
Je souhaite pouvoir, au lancement de cette aplli faire un test afin de
prévenir l'utilisateur de passer en 1024*768
Je vous remercie
Didier
Merci beaucoup RGI C'est parfait ! Bonne journée Didier
"RGI" a écrit dans le message de news:
Bonjour
avec ceci
'***************************************************************** ' DECLARATIONS SECTION '***************************************************************** Option Explicit Type RECT x1 As Long y1 As Long x2 As Long y2 As Long End Type ' NOTE: Ces déclarations suivantes sont très sensibles. Declare Function GetDesktopWindow Lib "User32" () As Long Declare Function GetWindowRect Lib "User32" _ (ByVal hWnd As Long, rectangle As RECT) As Long
'***************************************************************** ' FUNCTION: GetScreenResolution() ' ' PROPOSE: ' Déterminer la taille d'écran actuelle ou résolution. ' ' RENVOIE: ' La résolution d'écran actuelle. Typiquement un des suivants: ' 640 x 480 ' 800 x 600 ' 1024 x 768 '1280x1024 '***************************************************************** Function GetScreenResolution() As String Dim R As RECT Dim hWnd As Long Dim RetVal As Long
End Function '****************************************************************************** Sub tamacro() Dim ecran ecran = GetScreenResolution MsgBox "La resolution d'écran est :" & ecran If ecran = "640x480" Then Feuil1.Activate If ecran = "800x600" Then Feuil2.Activate If ecran = "1024x768" Then Feuil3.Activate If ecran = "1280x1024" Then Feuil4.Activate End Sub
salutations
RGI
Bonjour j'ai une appli que je transfert de poste à poste, le problème est que j'ai développé celle-ci en 1024*768, et parfois les gens ont leur écran en 800*600 Je souhaite pouvoir, au lancement de cette aplli faire un test afin de prévenir l'utilisateur de passer en 1024*768 Je vous remercie Didier
JB
Bonjour,
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Sub auto_open() If GetSystemMetrics(0) = 800 Then MsgBox "Ecran 800" End Sub
Corialement JB
Bonjour j'ai une appli que je transfert de poste à poste, le problème est que j'ai développé celle-ci en 1024*768, et parfois les gens ont leur écran en 800*600 Je souhaite pouvoir, au lancement de cette aplli faire un test afin de prévenir l'utilisateur de passer en 1024*768 Je vous remercie Didier
Bonjour,
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long)
As Long
Sub auto_open()
If GetSystemMetrics(0) = 800 Then MsgBox "Ecran 800"
End Sub
Corialement JB
Bonjour
j'ai une appli que je transfert de poste à poste, le problème est que j'ai
développé celle-ci
en 1024*768, et parfois les gens ont leur écran en 800*600
Je souhaite pouvoir, au lancement de cette aplli faire un test afin de
prévenir l'utilisateur de passer en 1024*768
Je vous remercie
Didier
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Sub auto_open() If GetSystemMetrics(0) = 800 Then MsgBox "Ecran 800" End Sub
Corialement JB
Bonjour j'ai une appli que je transfert de poste à poste, le problème est que j'ai développé celle-ci en 1024*768, et parfois les gens ont leur écran en 800*600 Je souhaite pouvoir, au lancement de cette aplli faire un test afin de prévenir l'utilisateur de passer en 1024*768 Je vous remercie Didier
