🚀 go-pugleaf

"Niggle" <catch9800@libero.it> ha scritto nel messaggio
news:xMqkc.170689$rM4.7044705@news4.tin.it...
> Salve a tutti,
>  premetto che sono un neofita del VB...
> Mi servirebbero due suggerimenti:
>
> - Una volta inserita una BMP in una Picture Box in che modo posso sapere
le
> dimensioni (in pixel) della BMP? Cio� inserita la BMP mi servono l'altezza
e
> la larghezza della BMP espresse in Pixel.
>
> - Della stessa BMP come posso ottenere il valore di un determinato pixel?
> Spulciando tra varie guide ho trovato questa funzione:
> PSet (xpos, ypos), RGB(255, 255, 255), che mi setta il pixel con
coordinate
> (xpos, ypos) con il colore presente in RGB. Andando ad intuizione ho
provato
> a vedere se esistesse PGet ma, o non esiste, o non riesco a farla
> funzionare.
>
> Help me!
>
> Grazie a tutti
>
> --
> P.
> --
> "Comporrai una canzone per lui?" chiese la donna.
> "Ha gi� una canzone" rispose il re.
> "E' il principe che venne promesso e suo � il canto del ghiaccio e del
> fuoco".
>
>
La soluzione potrebbe essere la seguente
dopo aver posizionato l'oggetto picture1 sulla Form1
impostare la propriet� ScaleMode = 3 ad ambedue gli oggetti
il che significa impostare la scala in pixel,
di seguito
impostare la propriet� AutoSize = True sull'oggetto Picture1
Una volta caricata l'immagine, le Propriet� Width e Height
restituiranno le dimensioni in pixel larghezza e altezza
per avitare di considerare nelle dimensioni anche lo spessore
della cornice della picture1, impostare la propriet� BorderStyle = 0

Per leggere il colore di un determinato pixel dell'immagine,
utilizzare il comando colore = Form1.Picture1.point(x,y)

interessante potrebbe essere questo semplice esempio

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Form1.Line (10, 10)-(30, 30), Form1.Picture1.Point(X, Y), BF
End Sub

Il codice sopra riportato, disegnera un quadratino sulla form del colore del
punto
selezionato con il mouse nell'immagine caricata sulla Picture1

Buon divertimento