Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto

Come faccio a scattare un'immagine del desktop in vb?

Come faccio a scattare un'immagine del desktop in vb?
Dim typeDEVMODE As DEVMODE
Dim hdcs As Long
Picture1.Height = Screen.Height
Picture1.Width = Screen.Width
Picture1.AutoRedraw = True
hdcs = CreateDC("DISPLAY", "", "", typeDEVMODE)
BitBlt Picture1.hdc, 0, 0, Screen.Width, Screen.Height, hdcs, 0, 0, &HCC0020
Picture1.Refresh
Le dichiarazioni delle funzioni usate sono:
Public Const CCHFORMNAME = 32
Public Const CCHDEVICENAME = 32
Public Type DEVMODE
        dmDeviceName As String * CCHDEVICENAME
        dmSpecVersion As Integer
        dmDriverVersion As Integer
        dmSize As Integer
        dmDriverExtra As Integer
        dmFields As Long
        dmOrientation As Integer
        dmPaperSize As Integer
        dmPaperLength As Integer
        dmPaperWidth As Integer
        dmScale As Integer
        dmCopies As Integer
        dmDefaultSource As Integer
        dmPrintQuality As Integer
        dmColor As Integer
        dmDuplex As Integer
        dmYResolution As Integer
        dmTTOption As Integer
        dmCollate As Integer
        dmFormName As String * CCHFORMNAME
        dmUnusedPadding As Integer
        dmBitsPerPel As Long
        dmPelsWidth As Long
        dmPelsHeight As Long
        dmDisplayFlags As Long
        dmDisplayFrequency As Long
End Type
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
	ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
	ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _
	ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" _
	(ByVal lpDriverName As String, ByVal lpDeviceName As String, _
	ByVal lpOutput As String, lpInitData As DEVMODE) As Long
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Thanks 1k

 ha scritto

<imbonitore :: lui-sa-perche' :: altrimenti detto :: _
    coda-di-paglia-da-qui-a-grado>
questo ms ne sa sempre una piu' del diavolo...
</imbonitore>
cmq c'e' anche una deliziosa dll delphi in uno di quegli zip che il
magnanimo gbc ha messo ftpabili dal suo sito qualche giorno fa, che cattura
e ridimensiona in un attimo...

    coda-di-paglia-da-qui-a-grado>
????? Tradotto? Pal, non parlare sempre così difficile... mi sono appena svegliato... :-))))


Salve,
Come posso mettere un colonna delle cifre usando print?
Es.:
Print #nuovofile, "Luce               "  & TotLuce
Print #nuovofile, "Gas                 " & TotGas
Print #nuovofile, "Acqua             " & TotAcqua
Questo è il risultato:
Luce                          120000
Gas                            4000
Acqua                        52100
Io invece vorrei:
Luce                          120000
Gas                               4000
Acqua                         52100
Il prg crea piu' dati, con un ciclo for - next quindi i vari importi possono
essere a 3 ,4 , 5 cifre o piu', come posso fare?
Scusate la spiegazione banale, sono un principiante.
grazie
Roberto.