Cortesemente, prima che continuo con i "Resoconti" le "Fatture" e le "Stampe"....
qualche anima pia che trova del tempo per testarlo la trovo ?

Grazie !!!

P.S.

Spero che le funzionalità e lo scopo del programma siano abbastanza intuitive, per questo non mi dilungo in spiegazioni.

ATTENZIONE:

Vi avvisa, ma ricordate che crea nella vostra Home crea una cartella denominata MyReport, ricordatevi di cancellarla.

Codice: [Seleziona]

  $ImLarghezza = ImageStat(User.Home &/ "ScalaImmagine/ImmagineOriginale.jpg").Width 'legge la larghezza dell'immagine
  If $ImLarghezza > 350 Then 'controlla se è superiore a quella voluta
  $Incognita = ($ImAltezza * 350) / $ImLarghezza 'calcola la giusta altezza proporzionale

Premesso che non ho gambas installato su questo computer e non posso fare dei test.
Quando cerchi di calcolare  $Incognita non ottieni un risultato valido perchè $ImAltezza non è ancora definita (valore 0).
Prova a modificare il codice così:

Codice: [Seleziona]

Public Sub Button1_Click()

Dim $ImLarghezza As Integer
Dim $ImAltezza As Integer
Dim $Incognita As Integer 'incognita per trovare la larghezza o l'altezza da scalare proporzionalmente
Dim $ImScala As Image
Dim $ImScalata As Image

  $ImLarghezza = ImageStat(User.Home &/ "ScalaImmagine/ImmagineOriginale.jpg").Width 'legge la larghezza dell'immagine

  $ImAltezza = ImageStat(User.Home &/ "ScalaImmagine/ImmagineOriginale.jpg").Height 'legge la altezza dell'immagine

  If $ImLarghezza > 350 Then 'controlla se è superiore a quella voluta
  $Incognita = ($ImAltezza * 350) / $ImLarghezza 'calcola la giusta altezza proporzionale
  $ImScala = Image.Load(User.Home &/ "ScalaImmagine/ImmagineOriginale.jpg") 'legge l'immagine
  $ImScalata = $ImScala.Stretch(350, $Incognita) 'scala l'immagine con il valore dato all'altezza
  $ImScalata.Save(User.Home &/ "ScalaImmagine/ImmagineScalata.jpg", 100) 'salva l'immagine scalata
  Endif

  If $ImAltezza > 150 Then 'controlla se è superiore a quella voluta
  $Incognita = ($ImLarghezza * 150) / $ImAltezza 'calcola la giusta larghezza proporzionale
  $ImScala = Image.Load(User.Home &/ "ScalaImmagine/ImmagineOriginale.jpg") 'legge l'immagine
  $ImScalata = $ImScala.Stretch($Incognita, 150) 'scala l'immagine con il valore dato alla larghezza
  $ImScalata.Save(User.Home &/ "ScalaImmagine/ImmagineScalata.jpg", 100) 'salva l'immagine scalata
  Endif

  PictureBoxScalata.Picture = Picture.Load(User.Home &/ "ScalaImmagine/ImmagineScalata.jpg")

End

Perfetto, questo funziona ed ottengo esattamente il risultato voluto.
Intanto, per chi vuole provare allego questo esempio funzionante da scompattare nella Home, poi provo il suggerimento di Gianluigi per capire la differenza.

adesso funziona, basta togliere .Width e .Height dopo ImageStat

Citazione da: ilfurlan - 03 Marzo 2017, 00:09:50

ma non funziona, cosa sbaglio?

Devi utilizzare "ImageStat" come funzione statica, ed in particolare le previste proprietà dell'oggetto di tipo ImageStat, da essa ritornato.

Più brevemente insomma così:

Codice: [Seleziona]

Dim l As Integer
Dim h As Integer

  l = ImageStat.Width(User.Home &/ "MyReport/.MyLogo.png").Width
  h = ImageStat.Height(User.Home &/ "MyReport/.MyLogo.png").Height

  Print l
  Print h

Incredibile, è notte e sei ancora qui a rispondere.... Grazie !!!

Sono riuscito a scalare le dimensioni di una immagine con questo codice


il problema è che vorrei indicare il valore della larghezza a 150, ma non indicare l'altezza 100 che deve ridimensionarsi in maniera proporzionale.

Esempio:
una immagine L 1600 x H 1200 deve diventare L 150 x H 113

Grazie !

ciao ilfurlan, probabilmente ti da errore perché il percorso del banner è sbagliato, devi andare in in SetUp e modificare percorso.
Come suggerito da Gianluigi ( ho studiato il tuo esempio ma non sono riuscito ad applicarlo al mio progetto in quanto alle VSpli e le HSplit non so come fare dare delle dimensioni prestabilite) ho aggiunto del codice per avere il resize dei controlli, non è perfetto ma funziona, magari con un aiuto si può migliorare.

Codice: [Seleziona]

Private hControl As Object
Private Px As New Integer[]
Private Py As New Integer[]
Private Pw As New Integer[]
Private Ph As New Integer[]
Private Fs As New Integer[]
Private Mw As Integer
Private Mh As Integer

Public Sub Form_Open()
 frmcli.Top = True
  frmcli.y = FMain.Height + 30
  Mod_Open.controlla_db()
  
  verifica_tab
  lista_tab
  grid_carica
  foglio_fattura
   
   Print Me.Controls.Count
 
For Each hControl In Me.Controls
      Px.Add(hControl.x)
      Py.Add(hControl.y)
      Pw.Add(hControl.w)
      Ph.Add(hControl.h) 
      Fs.Add(hControl.Font.size)  
      Next

  Mw = Me.W
  Mh = Me.h
 
End

Public Sub form_Resize()
  
  Dim cx, cy As Float
  Dim Nw, Nh, i As Integer

  Nw = Me.W
  Nh = Me.h

  Cx = Nw / Mw
  Cy = Nh / Mh
  
  i = 0
  
  For Each hControl In Me.Controls
    hControl.x = Px[i] * Cx
    hControl.y = Py[i] * Cy
    hControl.w = Pw[i] * Cx
    hControl.h = Ph[i] * Cy
    hControl.Font.size = Fs[i] * Cx
    Inc i
  
  Next
  
End

fonte : http://www.gambas-it.org/smf/index.php?topic=3588.msg33661#msg33661
al momento applicato solo al form: frmcli
 
ho aggiunto anche il controllo del C.F. quando inserisci nuovo cliente.   

Io rifaccio tutto perché mi piaceva troppo la tua grafica e non mi piaceva il mio codice.

Comunque, io faccio così per evitare successivi problemi di percorso:

1) Quando avvio il programma la prima volta, se non esiste crea una sua cartella per avere un percorso prestabilito
2) Controlla se nella cartella esiste il DB altrimenti lo crea
3) Controlla se nella cartella esiste il Logo provvisorio, altrimenti lo crea (nascosto .Logo)

Per le dimensioni del logo, ho deciso prima che devono avere una dimensione di pixel 150 x150 e l'immagine si ridimensiona a coprire tutto il PictureBox,
non mi sono quindi preoccupato per un logo, ad esempio 150 x 100 che nel mio caso risulterebbe deformato.

Non so aiutarti, comunque è interessante... vedo come fare

Intanto ti allego l'inizio dell'ennesimo rifacimento, dove, nelle impostazioni trovi come gestisco l'immagine 

Citazione da: ilfurlan - 27 Febbraio 2017, 12:45:01

Veramente molti complimenti, io, dopo aver installato le QT5 ricieste vedo tutto bene...

Unica cosa, se vado in fatture, seleziono la fattura e clicco su visualizza,
si pianta sul Mod_Print
alla riga

Codice: [Seleziona]

       .DrawImage(Image.Load(rsditta[14]), 20, 150) 'caricare immagine banner

Questo errore dovrebbe essere generato da un riferimento ad un path errato durante il caricamento dell'immagine.

Dove hai la cartella del programma? Nella Home?