Path: csiph.com!aioe.org!.POSTED!not-for-mail
From: Paperino <non_te@lo.dico.invalid>
Newsgroups: it.comp.lang.visual-basic
Subject: Re: ZOrder tra famiglie di controlli
Date: Tue, 1 Aug 2017 22:50:09 +0200
Organization: Aioe.org NNTP Server
Lines: 50
Message-ID: <olqphq$ilr$1@gioia.aioe.org>
References: <oloak8$cdk$1@solani.org> <olobp3$mm2$1@gioia.aioe.org> <olp6rp$qqm$1@solani.org> <olq94m$1l9e$1@gioia.aioe.org> <olqaml$htp$1@solani.org>
NNTP-Posting-Host: LyXOICabRp068athyFiNzA.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-15; format=flowed
Content-Transfer-Encoding: 8bit
X-Complaints-To: abuse@aioe.org
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1.24) Gecko/20100228 Thunderbird/2.0.0.24 Mnenhy/0.7.5.666
X-Notice: Filtered by postfilter v. 0.8.2
Content-Language: it
Xref: csiph.com it.comp.lang.visual-basic:19121

Greg ha scritto:
> Paperino ha scritto:
>> Chi ti obbliga a usare le api per scrivere su una picturebox?
> Uhm....Il fatto che non esponga la proprietà text o caption?
> Ci sarebbe per caso altro?

Picture1.Print "Ciao :-)"


Per essere più completi, prendi il test della Region di ieri
e sostitisci le ultime due righe, dopo la definizione dei Point,
con queste qui:

hRegion = CreatePolygonRgn(Punti(1), NumeroPunti, ALTERNATE)

' Cambiamo la forma della PictureBox alla nuova forma definita
' come Region, ma stavolta prima ci scriviamo dentro.
     With Freccia
         .ScaleMode = vbPixels
         .AutoRedraw = True
         .CurrentX = 30
         .CurrentY = 85
         .Font.Name = "Arial"
         .Font.Bold = True
         .Font.Italic = True
         .ForeColor = vbRed
         .Font.Size = 10

         ' lungo da spiegare perché, ma non poi mettere .Print
         ' dentro il With come il resto. Il motivo comunque
         ' è lo stesso per cui non compare nell'Intellisense;
         ' fondamentalmente perché è un comando, non una proprietà
         ' specifica della PictureBox
         Freccia.Print "Il FSM ";
         .ForeColor = vbGreen
         Freccia.Print "è ";
         .ForeColor = RGB(230, 180, 0)
         Freccia.Print "GRANDE!"
         .ForeColor = vbBlack
         .CurrentX = 30
         .Font.Size = 6
         Freccia.Print "E Paperino è il suo profeta."
     End With

  SetWindowRgn Freccia.hWnd, hRegion, True

' *******************************


Bye, G.