begin process at 2012 02 14 06:31:37
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

VB.NET et VB 2005

 > 

Divers

 > 

General

 > 

resolution screen

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

resolution screen

mercredi 24 janvier 2007 à 20:22:22 | resolution screen

1217meyrin
bonjour, j'ai ce code et quand je veux effectuer un changement de resolution comme suit, ca ne marche pas?

SetResolution(800, 600, 32),

voici le code du module:

Private

DeclareAutoFunction EnumDisplaySettings Lib "user32.dll" (ByVal lpszDeviceName AsString, ByVal iModeNum As Int32, ByRef lpDevMode As DEVMODE) AsBoolean

PrivateDeclareAutoFunction ChangeDisplaySettings Lib "user32.dll" (ByRef lpDevMode As DEVMODE, ByVal dwFlags As Int32) As Int32

PrivateConst DM_BITSPERPEL As Int32 = &H40000

PrivateConst DM_PELSWIDTH As Int32 = &H80000

PrivateConst DM_PELSHEIGHT As Int32 = &H100000

PrivateConst DISP_CHANGE_SUCCESSFUL As Int32 = 0

 

PrivateStructure POINTL

Public x As Int32

Public y As Int32

EndStructure

 

PrivateStructure DEVMODE_union1

' struct {

Public dmOrientation As Int16

Public dmPaperSize As Int16

Public dmPaperLength As Int16

Public dmPaperWidth As Int16

' }

Public dmPosition As POINTL

EndStructure

 

PrivateStructure DEVMODE_union2

Public dmDisplayFlags As Int32

Public dmNup As Int32

EndStructure

 

PrivateStructure DEVMODE

PrivateConst CCDEVICENAME As Int32 = 32

PrivateConst CCFORMNAME As Int32 = 32

 

Public dmDeviceName AsString

Public dmSpecVersion As Int16

Public dmDriverVersion As Int16

Public dmSize As Int16

Public dmDriverExtra As Int16

Public dmFields As Int32

Public u1 As DEVMODE_union1

Public dmScale As Int16

Public dmCopies As Int16

Public dmDefaultSource As Int16

Public dmPrintQuality As Int16

Public dmColor As Int16

Public dmDuplex As Int16

Public dmYResolution As Int16

Public dmTTOption As Int16

Public dmCollate As Int16

Public dmFormName AsString

Public dmUnusedPadding As Int16

Public dmBitsPerPel As Int16

Public dmPelsWidth As Int32

Public dmPelsHeight As Int32

Public u2 As DEVMODE_union2

Public dmDisplayFrequency As Int32

Public dmICMMethod As Int32

Public dmICMIntent As Int32

Public dmMediaType As Int32

Public dmDitherType As Int32

Public dmReserved1 As Int32

Public dmReserved2 As Int32

Public dmPanningWidth As Int32

Public dmPanningHeight As Int32

EndStructure

PublicFunction SetResolution(ByVal Width As Int32, ByVal Height As Int32, ByVal BitsPerPixel As Int16) AsBoolean

Dim dm As DEVMODE

IfNot EnumDisplaySettings(Nothing, 0, dm) Then

ReturnFalse

Else

With dm

.dmFields = DM_PELSWIDTH

Or DM_PELSHEIGHT Or DM_BITSPERPEL

.dmPelsWidth = Width

.dmPelsHeight = Height

.dmBitsPerPel = BitsPerPixel

EndWith

Return (ChangeDisplaySettings(dm, 0) = DISP_CHANGE_SUCCESSFUL)

EndIf

EndFunction
mercredi 31 janvier 2007 à 14:44:39 | Re : resolution screen

ShareVB
salut,

http://www.experts-exchange.com/Programming/Programming_Languages/Dot_Net/VB_DOT_NET/Q_21256018.html
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=316763&SiteID=1

ShareVB


Cette discussion est classée dans : dm, int32, devmode, int16public, int32public

Répondre à ce message

Sujets en rapport avec ce message

Devmode (Access 97) [ par isa911 ] Bonjour, J’essaye d’utiliser devmode pour imprimer le formulaire actif avec entre autres une échelle de 150 %. Mais lorsque je passe dans mon code, j Récuperer les dimensions de l'ecran. [ par Affoufa ] Bonjour,j'ai un petit probleme c'est que l'execution de mon programme VB.6 me donne une male affichage càd une fenetre avec les deux ascenceures à dro RichtextBox : recuperer numero ligne et colonne en cours [ par romagny13 ] Bonjour voila je cherche a recupérer le numéro de  la ligne et de  la colonne en cours de saisie (et a evenement MouseDowmn) de la souris afin des [VB2005] echec inscription dragDrop [ par swan94 ] salut à tous,j'ai un problème : quand j'essaye de lancer un autre form j'obtient cette erreur : L'exception System.InvalidOperationException n'a pas é Modifier la résolution de plusieurs écrans [ par Daghis ] Bonjour,J'ai récupérer le code suivant sur le site pour modifier la résolution d'un écran, mais comment l'adapter pour modifier l'affichage de 4 écran Structure contenant un pointeur [ par ywillener ] Bonjour,J'ai besoin d'accéder à la fonction d'une DLL ayant comme paramètre une structure contenant un pointeur void. Cela peut être un pointeur vers erreur sur connexion bdd [ par eldac59 ] bonjour,je me suis servi d'un des codes exemples fourni sur vbfrance, mais apres correction de quelques petits bugs, je me recupere une erreur : L'exc Problème de service web [ par ManuAntibes ] Bonjour j'ai fais un service web que je teste en localhost, mais j'ai une erreur que je n'arrive pas à corriger, Merci de l'aider.Je charge un web ser prise en compte paramétre imprimante sous word [ par mathbou73 ] Bonjour,je me permets de poster ce message après plusieurs journées de recherche sur le web et sur vbfrance entre autres. Voila mon souci, je souhaite Int32 >> Bytes [ par yvesyves ] Bonjour,Dans mon projet, j'ai la nécéssité de transformer une série de 3 millions de nombres Int32 en mots de 4 octets chacun. Ma question est : Comme


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,718 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)