Newsgroup: it.comp.lang.visual-basic
Titolo: Oscenità di Loadpicture

Dopo settimane e settimane di programmazione ad alto
livello (per me), io tutto gasato faccio partire il mio mitico
programmino che gestisce le sue immagini... Dopo aver
risolto problemi di ogni sorta, mi ritrovo solo soletto a dover
fronteggiare, se tutto va bene, un bug di VB6!!
Provate a far andare questo codice:
Private Sub Form_Load()
Picture1.PaintPicture LoadPicture _
("c:\winnypooh.bmp"), 0, 0, 3000, 3000
SavePicture Picture1.Image, _
"c:\windows\desktop\robetta.bmp"
For a = 1 To 20
Picture1.PaintPicture LoadPicture _
("c:\winnypooh.bmp"), 0, 0, 3000, 3000
SavePicture Picture1.Image, _
"c:\windows\desktop\robetta.bmp"
Next a
End Sub
Alla fine l'immagine winnypooh sara' solo l'angolino
in alto a destra! Questo perchč Loadpicture ingrandisce
leggermente l'immagine (credo). Nel mio programma le
immagini vengono salvate e caricate piů volte, quindi si
ritroveranno con una buona fetta tagliata via!
Qualcuno di voi ha suggerimenti in proposito?
Spero di essere stato esauriente...
Ciao
Giulio

 wrote in message
news:RVpW5.21036$hk4.8...@news.infostrada.it...

Secondo me ti sei fumato la proprieta' ScaleMode strada facendo ...
Cosi' come', il codice funzia.
Ciao
Aldo

 Cosi' com'e', il codice funzia.
Succede anche nelle migliori famiglie.
Ciao
Aldo

 > ritroveranno con una buona fetta tagliata via!
(...)
Non avevo riprodotto esattamente il tuo codice (anche perche' non avevo la
winnipooh.bmp) e quindi mi funzionava.
La vera causa e' che tu salvi la proprieta' image che riguarda tutta la
picture box (compresa l' area che non viene disegnata).
Se prima di caricarre l' immagine imposti le dimensioni della picture box,
il problema non si presenta piu'.
// Es. :
Dim a As Long
Picture1.Width = 3000    ' imposto qui larghezza e altezza
Picture1.Height = 3000
Picture1.PaintPicture LoadPicture _
                ("c:\oemlogo.bmp"), 0, 0
SavePicture Picture1.Image, _
                "c:\oemlogo2.bmp"
For a = 1 To 20
        Picture1.PaintPicture LoadPicture _
                                ("c:\oemlogo2.bmp"), 0, 0
        SavePicture Picture1.Image, _
                                "c:\oemlogo2.bmp"
Next a
Ciao
Aldo

> Hal1961:
[...]

Eee..ggia`! "Funzia", ormai, e` italiano corrente. Mi aspetto quindi che da
un momento all'altro qualche neopurista mi faccia notare che sbaglio quando
uso "funzionare". Che immagino sia:
    arc. des. da e. c. (*)
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------
(*) arcaico, desueto, da evitarsi, colto.


Ebbene si', Maurizio, mi hai scoperto. Sto cercando di imbastardire vieppiu'
(!!!) il mio italiano perche' spero iu un posto di giornalista televisivo.
;-)
Ciao
Aldo

 ;-)
unzeneparla. lunga e' la strada da fare.
cosi', al massimo una redazione come editor di giovani scrittori italiani.
funzia, fi^a, un attimino, sballo.
:)

 ;-)
Guarda che l'italiano non e` ne' tuo ne' mio... ce l'abbiamo in usufrutto.
Possiamo fare quel che vogliamo di quel che rende ma non possiamo intaccare
il capitale.
Quanto ai giornalisti televisivi... i piccoli fratell'astri bruttimbusti...
razza per via d'ostensione... hai toccato un nervo scoperto!...


 wrote in message
90dvj4$qj8v$1...@ID-56381.news.dfncis.de...
