Accueil > > > FAIRE UN APERÇU DES APPLIS / FICHIERS OUVERTS DANS UNE FORM AVEC L'API PRINTWINDOW
 FAIRE UN APERÇU DES APPLIS / FICHIERS OUVERTS DANS UNE FORM AVEC L'API PRINTWINDOW
 Information sur la source
 Description
Histoire de m'occuper, j'ai fait ce bout de code qui liste les fichiers et les applis ouverts dans une ListBox, et lors du choix de l'item, une autre Form s'ouvre avec l'aperçu dedans, grâce à l'API PrintWindow. En fait je me baladais sur DelphiFR.com et j'ai vu ce titre, alors je l'ai fait en VB ;)
 Source
- Public Sub AddWindowsName(oForm As Form, oControl As String)
- Dim Handle As Long
- Dim NewHandle As Long
- Dim i As Long
- Dim sNameWindow As String
-
- ' Handle de la Form qui appelle la méthode
- Handle = oForm.hWnd
-
- ' Handle de la Form qui appelle la méthode en propriété
- HandleForm = oForm.hWnd
-
- ' Passage de la valeur du Handle
- NewHandle = Handle
-
- On Local Error Resume Next
- ' Recherche des handle + affichage de la liste dans le contrôle mis en paramètre
- For i = 2 To 3
- Do
- Handle = NewHandle
- ' And IsIconic(Handle)
- If IsWindow(Handle) = 1 And (IsWindowVisible(Handle)) Then
- If Not Not (IsIconic(Handle)) Then
- sNameWindow = String(100, Chr$(0))
- GetWindowText Handle, sNameWindow, 100
- sNameWindow = Left$(sNameWindow, InStr(sNameWindow, Chr$(0)) - 1)
-
- If sNameWindow <> vbNullString Then
- oForm.Controls(oControl).AddItem sNameWindow
- Debug.Print "~" & CStr(Handle) & "~" & sNameWindow & "~"
- mcolWindows.Add CStr(Handle), sNameWindow
- End If
- End If
- End If
- NewHandle = GetNextWindow(Handle, i)
- Loop Until Handle = NewHandle
- Next i
- End Sub
-
- Public Sub GenerateWindow(ByVal sName As String, ByVal oFormPrint As Form)
-
- ' obligé d'afficher la fenêtre voulue sinon elle n'apparait pas dans la form :$
- Load oFormPrint
- ShowWindow CLng(mcolWindows.Item(sName)), SW_SHOWNORMAL
- oFormPrint.Caption = sName
- oFormPrint.AutoRedraw = True
- PrintWindow mcolWindows.Item(sName), oFormPrint.hDC, 0
- ShowWindow CLng(mcolWindows.Item(sName)), SW_SHOWMINIMIZED
- oFormPrint.Show
-
- End Sub
Public Sub AddWindowsName(oForm As Form, oControl As String)
Dim Handle As Long
Dim NewHandle As Long
Dim i As Long
Dim sNameWindow As String
' Handle de la Form qui appelle la méthode
Handle = oForm.hWnd
' Handle de la Form qui appelle la méthode en propriété
HandleForm = oForm.hWnd
' Passage de la valeur du Handle
NewHandle = Handle
On Local Error Resume Next
' Recherche des handle + affichage de la liste dans le contrôle mis en paramètre
For i = 2 To 3
Do
Handle = NewHandle
' And IsIconic(Handle)
If IsWindow(Handle) = 1 And (IsWindowVisible(Handle)) Then
If Not Not (IsIconic(Handle)) Then
sNameWindow = String(100, Chr$(0))
GetWindowText Handle, sNameWindow, 100
sNameWindow = Left$(sNameWindow, InStr(sNameWindow, Chr$(0)) - 1)
If sNameWindow <> vbNullString Then
oForm.Controls(oControl).AddItem sNameWindow
Debug.Print "~" & CStr(Handle) & "~" & sNameWindow & "~"
mcolWindows.Add CStr(Handle), sNameWindow
End If
End If
End If
NewHandle = GetNextWindow(Handle, i)
Loop Until Handle = NewHandle
Next i
End Sub
Public Sub GenerateWindow(ByVal sName As String, ByVal oFormPrint As Form)
' obligé d'afficher la fenêtre voulue sinon elle n'apparait pas dans la form :$
Load oFormPrint
ShowWindow CLng(mcolWindows.Item(sName)), SW_SHOWNORMAL
oFormPrint.Caption = sName
oFormPrint.AutoRedraw = True
PrintWindow mcolWindows.Item(sName), oFormPrint.hDC, 0
ShowWindow CLng(mcolWindows.Item(sName)), SW_SHOWMINIMIZED
oFormPrint.Show
End Sub
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Lancer Media player en full screen ? [ par Webmineur ]
Salut,j'aimerai savoir:-comment lancer Media player en full screen.-connaitre la frequence du processeur-connaitre la quantité de Ram-savoir si une dl
Screen Saver sous win 2000 [ par tjp88 ]
problème avec windows 2000, mon screen saver qui affiche un simple formulaire, reste en taille réduit en bas a droite de l'ecran, et ne s'affiche pas
Aucun aperçu des methodes d'un object [ par Timide ]
Lorsque je declare un variable Ole je n'ai pas la liste de ses methodes apres le point de celle ciPouvez vous m'eclairez Timide
Aperçu d'un fichier msg [ par Gbrissot ]
Bonjour,dans une application je voudrais faire un aperçu rapide du contenu d'un message enregistrer à partir d'Outlook avec l'option "Enregistrer au f
Comment inserer un aperçu dans une form ?? [ par Galereman ]
Salut je cherche a inserer l'apercu d'un fichier rtf dans une form.J'ai essayer avec la methode printpreview mais ca ouvre une nouvelle fenetre propos
[8d]cree un screen mate en visual basic [ par morganno ]
salutje chercher une personne qui aurait le code d'un screen mate ou un screen mate fait. merci @++
Full screen sous access [ par moebius ]
Existe t'il un moyen d'afficher un formulaire en plein écran (autre chose que la commande DoCmd.Maximize)Merci
Quelqu'un sait il comment faire une aperçu avant impression [ par eltaris ]
Ca m'interresserait beaucoupmerci
Résolution écran...MARCHE PO Screen.Height !! [ par ghiscool ]
Je cherches à avoir la résolution actuelle de mon écran pour pouvoir positionner au mieux mes formulaires, notamment lors des changements de résolutio
Aperçu rapide (Quickview) [ par Vow ]
Bonjour.J'ai lu que l'on pouvait voir toutes les fonctions incluses dans une DLL en utilisant l'"aperçu rapide" (QuickView).J'aurais voulu savoir si Q
|
Derniers Blogs
 ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|