+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

Autoadattamento image non funziona in array

  1. #1
    tizike non è in linea Scolaretto
    Salve
    Tempo fa , anche con la vostra collaborazione, avevo
    realizzato un autoadattamento immagine.
    la figura caricata, sia essa rettangolare o quadrata, faceva autoadattare il controllo image al suo formato
    Dim proporzione As Single
       Image1.Stretch = True
       CommonDialog1.ShowOpen
        Image1.Picture = LoadPicture(CommonDialog1.FileName)
       proporzione = Image1.Picture.Width / Image1.Picture.Height
       Image1.Width = Image1.Height * proporzione
    
    lo stesso codice, volevo usarlo per una array di image
    in questo modo
    Dim proporzione As Single
       Image1(index).Stretch = True
       CommonDialog1.ShowOpen
       Image1(index).Picture = LoadPicture(CommonDialog1.FileName)
       proporzione = Image1(index).Width / Image1(index).Height
       Image1(index).Width = Image1(index).Height * proporzione
    
    ma con la array non viene autoadattato nulla.
    Come mai?
    grazie
    tizike

  2. #2
    Primo codice
    proporzione = Image1.Picture.Width / Image1.Picture.Height

    Secondo codice
    proporzione = Image1(index).Width / Image1(index).Height
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    tizike non è in linea Scolaretto
    Che sbadata.

    Grazie Antonio .
    Ora funziona naturalmente a dovere.

    Grazie
    tizike

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Dichiarazione di un array: Perché non funziona?
    Da Oetzi6972 nel forum Visual Basic 6
    Risposte: 7
    Ultimo Post: 11-08-2020, 06:47
  2. Creare array di componenti image
    Da caviccun nel forum Delphi
    Risposte: 5
    Ultimo Post: 07-01-2014, 23:52
  3. Autoadattamento schermo/zoom in/out
    Da tizike nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 27-06-2011, 11:14
  4. Risposte: 3
    Ultimo Post: 12-05-2008, 20:47
  5. Risposte: 2
    Ultimo Post: 05-11-2005, 09:22