[Risolto]PictureBox riottosa

[vuott]

Devi istruire l'apertura immediata della finestra del Form, ponendo subito un
 

Codice: gambas [Seleziona]

Public Sub Form_Open()
  
  Dim i As Byte

   Me.Show

  ......

Inoltre devi sostituire le funzioni Sleep con Wait .

[Top Fuel]

Ora funziona, e pure velocemente.
Versione riveduta e corretta:

Codice: [Seleziona]

' Gambas class file

Private imm As Image

Public Sub Form_Open()
Dim i As Byte
Me.Show
imm = Image.Load("/usr/share/icons/hicolor/128x128/apps/vlc.png")
With foto
   .W = imm.W
   .H = imm.H
   .Picture = imm.Picture
End With
Wait 1
For i = 1 To 8
   shifta
   foto.Picture = imm.Picture
   Wait 0.01
Next
End

Public Sub shifta()
Dim flusso As Stream
Dim fo, dato As Byte, j, grandezza As Integer
fo = Len(imm.Format)
flusso = Memory imm.Data For Read Write
grandezza = (imm.H * imm.W * fo) - 1
For j = 0 To grandezza
   Read #flusso, dato
   dato = Rol(dato, 1)
   Seek #flusso, j
   Write #flusso, dato As Byte
Next
End

Ma ci si può ancora lavorare su...

[vuott]

Devo dire che hai fatto un'applicazioncina veramente simpatica ! 
Io l'ho provata con questa icona:
"/usr/share/icons/hicolor/128x128/apps/vlc.png"

Come s'è potuto vedere dal tuo codice, l'utilizzo della risorsa Memory Stream con i Puntatori può essere praticato. 

[Gianluigi]

Proprio forte!
Mi unisco ai complimenti, funziona benissimo con un bell'effetto anche su Gambas3.png
 

[Picavbg]

Fatto. Nessun risultato.

Hai provato anche allungando esageratamente il tempo di wait? (Es. wait 1.0 o > )

[Top Fuel]

Ho risolto con l'aiuto dell'ineffabile Vuott.
Ho messo più sopra il listato riveduto e corretto.
Ma la cosa strana è che se togli il Wait il programma non esegue le trasformazioni, visualizza l'image e basta. Chissà perchè.

[Top Fuel]

Variazione sul tema.
Date 2 Picturebox ne creiamo una terza che è il risultato di una operazione booleana (che tanto piacciono a Gianluigi... ) tra le prime 2, con 6 operatori a scelta.
Bellina l'operazione di And, non trovate?

[Gianluigi]

Variazione sul tema.
Date 2 Picturebox ne creiamo una terza che è il risultato di una operazione booleana (che tanto piacciono a Gianluigi... ) tra le prime 2, con 6 operatori a scelta.
Bellina l'operazione di And, non trovate?

Complimenti vivissimi a mio avviso ti sei guadagnato sul campo i gradi di “Grande Alchimista Manipolatore di Immagini”. 
L'unico sommesso appunto che posso fare è avvisare che se qualcuno come me non ha i programmi VLC e ICEDOVE farà meglio a cambiare l'icona su cui operare   

 

[Top Fuel]

Puoi mettere quella che vuoi, anzi, aggiungere una finestra di Dialog per caricarla sul momento.