Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it L'avatar di LMondi
    Registrato dal
    Sep 2004
    Messaggi
    1,291

    VB6-Portare un'immagine da Frm a DataReport

    Mi sono chiesto se è possibile trasferire l'immagine di un grafico generato in un controllo MSChart direttamente dalla Frm al controllo RptImage; ho provato e non ci sono riuscito. Vorrei evitare di salvare la predetta immagine sull'HD per poi caricarla con il codice
    Set .Picture = LoadPicture(App.Path & "\Grafici\" & sNomeGraf).
    Si può saltare il predetto step?
    LM

  2. #2
    Utente di HTML.it L'avatar di LMondi
    Registrato dal
    Sep 2004
    Messaggi
    1,291
    Ma, evidentemente non è possibile passare direttamente l'immagine nel DR, quindi ho utilizzato:
    codice:
    Sub SalvaGrafico()
    
    ' Nome del grafico:
        sNGrafDiff = "GraficoDiff"
        vData = Clipboard.GetData
        Clipboard.Clear
        FrmLisDiff.MSChartD.EditCopy
        FrmLisDiff.ImageGraf.Picture = Clipboard.GetData(vbCFBitmap)    '(vbCFDIB)
        SavePicture FrmLisDiff.ImageGraf.Picture, App.Path & "\DATI\Grafico\" & sNGrafDiff & ".bmp"
        Clipboard.Clear
        Clipboard.SetData vData
    ' Acquisisce il Nome del Grafico con l'estensione:
        sNomeGraf = sNGrafDiff & ".bmp"
    ' Imposta cursore mouse :
        Screen.MousePointer = 0
        Exit Sub
    
    End Sub
    'Per poi caricarla con:
    Set .Picture = LoadPicture(App.Path & "\DATI\Grafico\" & sNomeGraf).
    LM

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.