- 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