Enregistrer un formulaire en imageRésolu

Question

bonjour , je souhaiterais sauvegard&#233; un formulaire vers une image soit BMP ou JPEG, car je dessine des graph directement sur la form et je voudrais les avoir en jpeg, c'est pour quel soit g&#233;n&#233;r&#233; automatiquement sur un site web.

merci

cyberdam

damien174 · Accepted Answer

slt j'ai essayer mais sans succes, soit il faut avoir le focus sur la
feuille ou sinon il prend tout l'ecran, c'est pas grave je ferais
autrement mes pages web



merci quand meme pour votre recherche :)

cyberdam

nhervagault · Answer

Salut

recherche des renseignements sur l'api
static extern IntPtr PrintWindow(IntPtr hwnd, IntPtr hDC, uint nFlags);
D&#233;sol&#233; c'est en C# 

Mais c'est une api WIN32

Donc a toi de trouver comment faire, 

Voila

cs_Jack · Answer

Salut
Sous VB6, il n'existe pas de capture graphique.
Cherche du c&#244;t&#233; des sources qui parlent de 'capture d'&#233;cran' (ce n'est pas ce qui manque !).
Parmi elles, certaines savent g&#233;rer la capture de fen&#234;tre seule et d'autres savent g&#233;rer la transformation BMP (ce que tu r&#233;cup&#232;reras de la capture) vers JPG.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

nhervagault · Answer

Re Voila Un code deniché sous google, pour faire voir la capture sous VB General declarations Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Const GW_HWNDFIRST = 0 Public Const GW_HWNDLAST = 1 Public Const GW_HWNDNEXT = 2 Public Const GW_HWNDPREV = 3 Public Const GW_OWNER = 4 Public Const GW_CHILD = 5 '--------------------------------------------------------------------------- ' Put this in sub main or something: hwnd = FindWindow(0&,"The Window's Caption") Open "out.txt" for output as #1 Call PrintWindow(hwnd, 1, 0) '--------------------------------------------------------------------------- Private Sub PrintWindows(hwnd As Long, filenum As Integer, iLevel As Integer) 'Prints all window captions and handles to file Dim hWndx As Long Dim ts As String Dim ts1 As String * 256 Dim rtn As Long hWndx = GetWindow(hwnd, GW_CHILD) Do While hWndx rtn = GetWindowText(hWndx, ts1, 255) 'If Asc(UCase$(Left$(ts1, 1))) < Asc("A") Or Asc(UCase$(Left$(ts1, 1))) > Asc("Z") Then ts1 = "" ts = String(iLevel, "-") & Left$(ts1, rtn) & " : " & Format$(hWndx) Print #(filenum), ts Call PrintWindows(hWndx, filenum, iLevel + 1) hWndx = GetWindow(hWndx, GW_HWNDNEXT) Loop Print #(filenum), "" End Sub

damien174 · Answer

slt merci pour tes recherche mais ca ne marche pas, ca marque dans un fichier text le nom des controles de la from.

cyberdam

nhervagault · Answer

Salut

j'avais pas lu le code

http://groups.google.fr/group/comp.lang.basic.visual.misc/browse_thread/thread/1c0d31a539e6e37/da63d3b0c08953c8?lnk=st&q=printwindow+basic&rnum=1&hl=fr#da63d3b0c08953c8

C'est peut etre mieux celui la

Bonne capture

nhervagault · Answer

Salut 

pour trouver et selectionner le handles de la fenetre 

 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal 
 lpClassName As String, ByVal lpWindowName As String) As Long 
 Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long 
 dans un bouton : 
 Private Sub Command1_Click() 
 Dim hNoteWnd As Long 
 Dim x As Long 
    hNoteWnd = FindWindow("Notepad", "Sans titre - Bloc-notes") 
    If hNoteWnd = 0 Then 
    'le notepad avec le titre "Sans titre - Bloc-notes" n'est pas en m&#233;moire 
            x =Shell("notepad.EXE", vbNormalFocus) 
    Else 
    'il est en m&#233;moire : on le force en avant plan 
         BringWindowToTop (hNoteWnd) 
   End If 
 End Sub 
 

Sinon, tu peux utiliser GetWindow pour obtenir la liste de toutes les 
 fen&#234;tres actives : 
 

dans un module basique : 
 Public Const GW_HWNDFIRST = 0 
 Public Const GW_HWNDNEXT = 2 
 Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As 
 Long, ByVal wCmd As Long) As Long 
 Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal 
 hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 
 

dans un bouton : 
 Private Sub Command1_Click() 
 Dim hWndNext As Long 
 Dim x As Long 
 Dim lpString As String * 255 
 Dim vLen As Long 
 

    hWndNext = GetWindow(hWnd, GW_HWNDFIRST) 
     If hWndNext <> 0 Then 
         vLen = GetWindowText  (hWndNext , lpString , len(lpString )) 
         Debug.print Left(lpString ,vLen ) 
     End If 
     do until  hWndNext = 0 
         hWndNext = GetWindow(hWndNext, GW_HWNDNEXT) 
         vLen = GetWindowText  (hWndNext , lpString , len(lpString )) 
         Debug.print Left(lpString ,vLen ) 
     loop 
 End Sub

Voila tu y arriveras maintenant

damien174 · Answer

merci, mais je vais dessin&#233; mes graph tout seul en php, comme je le fait en VB

ca va etre chiant sinon lol



merci kan meme :)


cyberdam

nhervagault · Answer

Salut

Pour faire des graph en PHP, il faut utiliser GD.

Enregistrer un formulaire en image

9 réponses

Discussions similaires