GianniGiaccaglini

GianniGiaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/Default.aspx Tricks & mini applics on WPF it-IT Gianni Giaccaglini giannigiac@tin.it Subtext Version 2.5.1.19 GianniGiaccaglini http://blogs.wpfitalia.it/images/RSS2Image.gif http://blogs.wpfitalia.it/GianniGiaccaglini/Default.aspx 77 60 Prove threading, con un pulsante “ballerino” http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/04/05/Prove-threading-con-un-Button-ballerino.aspx <p> </p> <h1>Prove threading, con un Button “ballerino”<o:p /></h1> <p class="MsoNormal">Questo piccolo divertissement deriva da un prezioso suggerimento di R. Serati, con qualche ulteriore ampiamento. Lo scopo immediato è di lanciare delle animazioni di un certo pulsante <strong style="mso-bidi-font-weight: normal">Button1 </strong>entro le “celle” di una Grid. Il termine celle è improprio, Grid è una struttura e non dà accesso a colonne e righe, né tantomeno a celle, ma è possibile cambiare dinamicamente le proprietà dipendenti <em style="mso-bidi-font-style: normal">Grid.RowProperty </em>e <em style="mso-bidi-font-style: normal">Grid.ColumnProperty</em> di un controllo come il nostro Button1 facendolo vagabondare qua e là, su e giù, secondo tempi di ritardo fissati by code.<o:p /></p> <p class="MsoNormal">Il lato istruttivo di cotanta frivolezza è comprendere il meccanismo di <strong style="mso-bidi-font-weight: normal">Thread </strong>e <strong style="mso-bidi-font-weight: normal">Task</strong> che, ahimè, impone il rispetto di priorità, code e altre diavolerie, utili in soluzioni avanzate ma che rendono penosa la vita all’utente, non solo primo-armigero. Se costui proviene da vecchi mondi come VB 6 o quello delle macro di Excel se ne stupisce perché là tutto è più semplice e diretto.<o:p /></p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Una buona notizia, con Visual Studio 2012: i metodi asincroni</strong>. Rispondendo a questo e altri gridi di dolore l’imminente versione permette di tornare alle origini. In parole povere, se ho ben inteso (e come confermatomi a voce dal relatore all’ultimo Community Day a Microsoft Italia), fermi restando thread & task per scopi speciali, <u>si avrà il supporto di metodi </u><strong style="mso-bidi-font-weight: normal">asincroni </strong><u>le cui istruzioni procedono indisturbate</u> rispetto ad altri thread (restituendo il controllo al chiamante ma solo al termine). La parolina magica che qualifica tali routine privilegiate è, guardacaso, <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Async</em></strong>… <o:p /></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #b6dde8; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #b6dde8; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>. Articoli in materia già fioriscono su MSDN e uno è addirittura linkato nelle News di Visual Studio, ma auspicherei che altri blogger Wpf-italioti contribuiscano...<o:p /></p> </div> <p class="MsoNormal">Ma proseguiamo con l’esposizione del nostro esempietto di pulsante ballerino.<o:p /></p> <h2><span style="mso-ansi-language: EN-US" lang="EN-US">XAML<o:p /></span></h2> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Window</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> x</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">:</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Class</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="MainWindow"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>xmlns</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml/presentation"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>xmlns</span><span style="COLOR: blue">:</span><span style="COLOR: red">x</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Title</span><span style="COLOR: blue">="Pulsante ballerino"</span><span style="COLOR: red"> Height</span><span style="COLOR: blue">="450"</span><span style="COLOR: red"> Width</span><span style="COLOR: blue">="450"></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Grid</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="miaGrid"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Background</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="LawnGreen"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: red"><span style="mso-spacerun: yes"> </span>ShowGridLines</span><span style="COLOR: blue">="True"></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Grid.RowDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">/></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">/></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">/></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">/></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Grid.RowDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Grid.ColumnDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">ColumnDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">/></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">ColumnDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">/></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">ColumnDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">/></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">ColumnDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">/></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Grid.ColumnDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/><o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/><o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="3"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl4"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl5"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl6"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl7"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="3"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl8"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl9"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl10"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span> <span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl11"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span> <span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="3"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl12"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span> <span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="3"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl13"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span> <span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="3"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl14"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="3"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl15"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="3"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="3"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Lbl16"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="30"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Content</span><span style="COLOR: blue">="X"</span><span style="COLOR: red"> HorizontalContentAlignment</span><span style="COLOR: blue">="Center"</span><span style="COLOR: red"> Background</span><span style="COLOR: blue">="LightBlue"</span><span style="COLOR: red"> Visibility</span><span style="COLOR: blue">="Hidden"</span><span style="COLOR: red"> FontWeight</span><span style="COLOR: blue">="Bold"/></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Content</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Ballerino"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="49"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> HorizontalAlignment</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="Left"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Margin</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">="12,17,0,0"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Click</span><span style="COLOR: blue"> ="Balla"</span><span style="COLOR: red"> Name</span><span style="COLOR: blue">="Button1"</span><span style="COLOR: red"> VerticalAlignment</span><span style="COLOR: blue">="Top"</span><span style="COLOR: red"> Width</span><span style="COLOR: blue">="81" /></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt">Grid</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><o:p> </o:p></span></p> <p class="MsoNormal">Come è immediate constatare, si ottiene una Grid 4 x 4, nelle cui 16 caselle si hanno 16 minuscole Label da <strong style="mso-bidi-font-weight: normal">Lbl1</strong> a <strong style="mso-bidi-font-weight: normal">Lbl16</strong> in sostanza etichettate con una grossa “X”, assieme a un <strong style="mso-bidi-font-weight: normal">CommandButton1 </strong>indicato come “Ballerino”, al cui clic è associato la routine <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Balla</em></strong>.<o:p /></p> <h2>VB<o:p /></h2> <p style="TEXT-ALIGN: justify" class="MsoNormal">Il codice della <strong style="mso-bidi-font-weight: normal">MainWindow.xaml.VB </strong>è riportato interamente qui sotto. Lo riporto quasi come ricetta, unitamente a commenti tacitiani. Ne anticipo subito quelli relativi all’esordio (le due basilari <em style="mso-bidi-font-style: normal">Imports</em>, ma ne basta una a piacere salvo i casi in cui siano in ballo dei Task che sono babbi di Thread…)<em style="mso-bidi-font-style: normal"> </em>e al primo metodo <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">SpostamTempo</em></strong> di argomenti autosplicativi <em style="mso-bidi-font-style: normal">Riga, Colonna </em>e <em style="mso-bidi-font-style: normal">tempo. </em>SpostaTempo, che ho già utilizzata in questo blog di Wpfitalia nel post che precede quello presente, sfrutta razionalmente l’indicazione Sarati, i cui punti chiave sono <em style="mso-bidi-font-style: normal">Dim myThread As New Thread</em>, al cui interno una Sub (delegata?, si dice così?) sfrutta la basilare <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Dispatcher.Invoke</em></strong>, che a sua volta incastona la Sub che richiama <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">SpostaSuGrid(Riga, Colonna) </em></strong>e <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Thread.Sleep(Tempo)</em></strong>. La prima, subito sotto alla Sub SpostamTempo, agisce sulle proprietà <em style="mso-bidi-font-style: normal">Grid.RowProperty </em>e <em style="mso-bidi-font-style: normal">Grid.ColumnProperty</em> dell’oggetto il nostro Button1 (v. più avanti), la seconda definisce il <em style="mso-bidi-font-style: normal">Tempo</em> in millisecondi della sua “dormita”, ossia ritardo.<o:p /></p> <p style="TEXT-ALIGN: justify" class="MsoNormal">Che altro dire? Al termine della SpostamATempo non va, tassativamente, dimenticata <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">myThread.Start() </em></strong>senza la quale il dannato Thread (o Task) non si degna di avviarsi.<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Imports</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> System.Threading.Tasks<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Imports</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> System.Threading<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Class</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: #2b91af">MainWindow</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Private</span> <span style="COLOR: blue">Sub</span> SpostamTempo(<span style="COLOR: blue">ByVal</span> Riga <span style="COLOR: blue">As</span> <span style="COLOR: blue">Integer</span>, <span style="COLOR: blue">ByVal</span> Colonna <span style="COLOR: blue">As</span> <span style="COLOR: blue">Integer</span>, <span style="COLOR: blue">ByVal</span> tempo <span style="COLOR: blue">As</span> <span style="COLOR: blue">Double</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> myThread <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> <span style="COLOR: #2b91af">Thread</span>(<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Sub</span>()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>Dispatcher.Invoke(<span style="COLOR: blue">Sub</span>()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>SpostaSuGrid(Riga, Colonna)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: #2b91af">Thread</span>.Sleep(tempo)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Esecuzione di myThread</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>myThread.Start()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Sub</span> SpostaSuGrid(<span style="COLOR: blue">ByVal</span> R <span style="COLOR: blue">As</span> <span style="COLOR: blue">Integer</span>, <span style="COLOR: blue">ByVal</span> C <span style="COLOR: blue">As</span> <span style="COLOR: blue">Integer</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>Button1.SetValue(<span style="COLOR: #2b91af">Grid</span>.RowProperty, R)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>Button1.SetValue(<span style="COLOR: #2b91af">Grid</span>.ColumnProperty, C)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Private</span> <span style="COLOR: blue">Sub</span> Balla()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: #00b050">' Su clic del pulsante ballerino<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> inizTempo = Now<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>SpostamTempo(3, 3, 2500) <span style="COLOR: green">' Fuziona, ma UNA TANTUM,</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' poi la seg.te istr. non agisce:</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' SpostaSuGrid(0, 0)</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: #2b91af">MessageBox</span>.Show(<span style="COLOR: #a31515">"Primo giro finito"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> GeneRCasuali <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> <span style="COLOR: #2b91af">Random</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> NCas = GeneRCasuali.Next(100, 500)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Nr = miaGrid.RowDefinitions.Count<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Nc = miaGrid.ColumnDefinitions.Count<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Coordinate riga/colonna percorso programmato (spirale)</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> VettR = {0, 0, 0, 0, 1, 2, 3, 3, 3, 3, 2, 1, 1, 1, 2, 2}<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> VettC = {0, 1, 2, 3, 3, 3, 3, 2, 1, 0, 0, 0, 1, 2, 2, 1}<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> VettLbl = _<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span>{Lbl10, Lbl11, Lbl7, Lbl6, Lbl5, Lbl9, Lbl13, Lbl14, Lbl15, Lbl16, Lbl12, Lbl8, <span style="mso-spacerun: yes"> </span>Lbl4, Lbl3, Lbl2, Lbl1}<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> task <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> <span style="COLOR: #2b91af">Task</span>(<span style="COLOR: blue">Sub</span>()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> i = 0, j = 0, k = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Secondo giro: percorso programmato "lento"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' For k = 0 To VettR.Length - 1 ' Ex giro diretto</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> x = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> k = VettR.Length - 1 <span style="COLOR: blue">To</span> 0 <span style="COLOR: blue">Step</span> -1 <span style="COLOR: green">' Giro da centro a periferia</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>Dispatcher.Invoke(<span style="COLOR: blue">Sub</span>() SpostaSuGrid(VettR(k), VettC(k)))<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: #2b91af">Thread</span>.Sleep(1500)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>Dispatcher.Invoke(<span style="COLOR: blue">Sub</span>()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>VettLbl(x).Visibility = Windows.<span style="COLOR: #2b91af">Visibility</span>.Visible<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>x += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Terzo giro: percorso casuale "veloce"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> i = 0 <span style="COLOR: blue">To</span> VettLbl.Length – 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: #00b050">' Occulta tutte le Label con crocette<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Dispatcher.Invoke(<span style="COLOR: blue">Sub</span>()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>VettLbl(i).Visibility = Windows.<span style="COLOR: #2b91af">Visibility</span>.Hidden<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> GenCas <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> <span style="COLOR: #2b91af">Random</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> i = 0 <span style="COLOR: blue">To</span> Nr - 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> j = 0 <span style="COLOR: blue">To</span> Nc - 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>Dispatcher.Invoke(<span style="COLOR: blue">Sub</span>() SpostaSuGrid(GenCas.Next(Nr), GenCas.Next(Nc)))<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: #2b91af">Thread</span>.Sleep(NCas)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Dispatcher.InvokeShutdown() 'TROPPO DRASTICO: cessa il PROGRAMMA!</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: blue">Sub</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>task.Start()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: green; FONT-SIZE: 9pt">' MessageBox.Show(balla.IsCompleted) ' Viene comunque eseguita...</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> <span style="COLOR: blue">Class<o:p /></span></span></p> <p class="MsoNormal"><o:p> </o:p></p> <p class="MsoNormal">Il codice rimanente è quasi interamente affidato all’ermeneutica del visitatore, che deve anzitutto meditare sui seguenti vettori:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> VettR = {0, 0, 0, 0, 1, 2, 3, ...}</span><o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> VettC = {0, 1, 2, 3, 3, 3, 3, ...}</span><o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> VettLbl = {Lbl10, Lbl11, Lbl7, Labl6, ...}<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><o:p> </o:p></span></p> <p class="MsoNormal">I primi due indicano le successive coordinate di un percorso programmato, il terzo elenca i controlli Label che via via debbono apparire sulla scia degli spostamenti del pulsante ballerino. Con un po’ di pazienza si può arrivare a comprendere che la Sub del “secondo giro” agisce come illustra alla buona questa figura:<o:p /></p> <p> </p> <table style="WIDTH: 192pt; BORDER-COLLAPSE: collapse; MARGIN-LEFT: 35.4pt; mso-padding-alt: 0cm 3.5pt 0cm 3.5pt; mso-yfti-tbllook: 1184" border="0" cellspacing="0" cellpadding="0" width="256" class="MsoNormalTable"> <tbody> <tr style="HEIGHT: 37.5pt; mso-yfti-irow: 0; mso-yfti-firstrow: yes"> <td style="BORDER-BOTTOM: medium none; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-top-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-top-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-top-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-top-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 37.5pt; mso-yfti-irow: 1"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #b7dee8; HEIGHT: 37.5pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Ballerino<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><strong><span style="COLOR: black; FONT-SIZE: 14pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">X<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><strong><span style="COLOR: black; FONT-SIZE: 14pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">X<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 37.5pt; mso-yfti-irow: 2"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-left-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><strong><span style="COLOR: black; FONT-SIZE: 14pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">X<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><strong><span style="COLOR: black; FONT-SIZE: 14pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">X<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 37.5pt; mso-yfti-irow: 3; mso-yfti-lastrow: yes"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-left-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #99ff66; HEIGHT: 37.5pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-right-alt: solid windowtext .5pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> </tbody> </table> <p class="MsoNormal"><o:p> </o:p></p> <p class="MsoNormal">La quale fotografa la situazione intermedia in cui il pulsante, partendo dalla casella 10 (della Lb10) si è portato nella 11 (della Lb11), poi nella 7 (della Lb7), poi nella 6 (della Lb6) e ora si trova nella casa 5. Viene così seguito un percorso a spirale dal centro alla periferia.<o:p /></p> <p class="MsoNormal">Sull’ultima Sub che impone al ballerino un percorso semifolle, governato dalla (pseudo) casualità non ho altro da dire, perché è una variante del discorso. Che qui si conclude.<o:p /></p><img src="http://blogs.wpfitalia.it/GianniGiaccaglini/aggbug/100.aspx" width="1" height="1" /> Gianni Giaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/04/05/Prove-threading-con-un-Button-ballerino.aspx Thu, 05 Apr 2012 15:13:12 GMT http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/04/05/Prove-threading-con-un-Button-ballerino.aspx#feedback 3 http://blogs.wpfitalia.it/GianniGiaccaglini/comments/commentRss/100.aspx Circolare Outlook con indirizzi in archivio CSV http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/03/30/Circolare-Outlook-con-indirizzi-in-archivio-CSV.aspx <h1>Circolare Outlook con indirizzi in archivio CSV<o:p /></h1> <p class="MsoNormal">Questo articolo è l’ultimo atto della saga in cui ho rivisitato la tecnologia (OLE) Automation applicata a Excel e Outlook. Pertanto non starò a ripetermi né a fare il sunto dei precedenti, invito solo a rileggersi il precedente post, ove è affidato appunto ad Automation l’accesso a un <strong style="mso-bidi-font-weight: normal">IndirizziOutlook.xls</strong>, contenente una tabella di 4 campi che si presenta così:<o:p /></p> <table style="WIDTH: 446.2pt; BORDER-COLLAPSE: collapse; MARGIN-LEFT: 2.75pt; mso-padding-alt: 0cm 3.5pt 0cm 3.5pt; mso-yfti-tbllook: 1184" border="0" cellspacing="0" cellpadding="0" width="595" class="MsoNormalTable"> <tbody> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 0; mso-yfti-firstrow: yes"> <td style="BORDER-BOTTOM: white 1.5pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 92.9pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #4f81bd; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid white 1.5pt; mso-border-right-alt: solid white .5pt" valign="bottom" width="124" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: white; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">Nome<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: white 1.5pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 87pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #4f81bd; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid white 1.5pt; mso-border-left-alt: solid white .5pt; mso-border-right-alt: solid white .5pt" valign="bottom" width="116" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: white; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">Cognome<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: white 1.5pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 111.45pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #4f81bd; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid white 1.5pt; mso-border-left-alt: solid white .5pt; mso-border-right-alt: solid white .5pt" valign="bottom" width="149" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: white; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">Indirizzopostaelettronica<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: white 1.5pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 154.85pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #4f81bd; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-left-alt: solid white .5pt" valign="bottom" width="206" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: white; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">Nomevisualizzatopostaelettronica<o:p /></span></strong></p> </td> </tr> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 1"> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 92.9pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #b8cce4; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid white .5pt; mso-border-right-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="124" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">Armando<o:p /></span></p> </td> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 87pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #b8cce4; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid white .5pt; mso-border-left-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="116" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">Rossetti<o:p /></span></p> </td> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 111.45pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #b8cce4; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid white .5pt; mso-border-left-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="149" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">armross@megasoft.com<o:p /></span></p> </td> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 154.85pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #b8cce4; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-bottom-alt: solid white .5pt; mso-border-left-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="206" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">omissis<o:p /></span></p> </td> </tr> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 2"> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 92.9pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #dce6f1; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid white .5pt; mso-border-right-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="124" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">Paola<o:p /></span></p> </td> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 87pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #dce6f1; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid white .5pt; mso-border-left-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="116" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">Bertoldi<o:p /></span></p> </td> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 111.45pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #dce6f1; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid white .5pt; mso-border-left-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="149" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">paolab@megasoft.com<o:p /></span></p> </td> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 154.85pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #dce6f1; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-bottom-alt: solid white .5pt; mso-border-left-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="206" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">omissis<o:p /></span></p> </td> </tr> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 3; mso-yfti-lastrow: yes"> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 92.9pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #b8cce4; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid white .5pt; mso-border-right-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="124" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">ecc.<o:p /></span></p> </td> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 87pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #b8cce4; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid white .5pt; mso-border-left-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="116" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">ecc<o:p /></span></p> </td> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 111.45pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #b8cce4; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: white 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid white .5pt; mso-border-left-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="149" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">ecc.<o:p /></span></p> </td> <td style="BORDER-BOTTOM: white 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 154.85pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #b8cce4; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-bottom-alt: solid white .5pt; mso-border-left-alt: solid white .5pt; mso-border-top-alt: solid white .5pt" valign="bottom" width="206" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "MS Sans Serif", "serif"; COLOR: black; FONT-SIZE: 10pt; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: IT">omissis<o:p /></span></p> </td> </tr> </tbody> </table> <p class="MsoNormal"><o:p> </o:p></p> <p class="MsoNormal">Microsoft Outlook permette di esportarla sia in formato Excel sia in un file <strong style="mso-bidi-font-weight: normal">IndirizziOutlook.csv</strong> di tipo comma separated value. Fin dall’inizio mi sono affannato a indagare come caricare quest’ultimo, ottenendo solo indicazioni generiche e comunque poco adatte al limitato comprendonio di un amatore qual sono.<o:p /></p> <p class="MsoNormal">Finalmente uno spunto più chiaro mi è pervenuto da <strong style="mso-bidi-font-weight: normal">Stefano Pranzo</strong>,<strong style="mso-bidi-font-weight: normal"> </strong>un valido membro di Wpfitalia. Il carteggio si trova sul Forum. Di fatto, rinunciando a una soluzione più completa (con Classe canonica e Binding XAML) a torto o ragione mi sono accontentato di questo snippet, che mi preme riportare subito:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">Dim</span></strong><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> TutteRighe() = _<o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: #2b91af">File</span>.ReadAllLines(<span style="COLOR: blue">My</span>.Computer.FileSystem.CurrentDirectory & <span style="COLOR: #a31515">"\IndirizziOutlook.csv"</span>)<o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><o:p> </o:p></span></strong></p> <p class="MsoNormal">Aggiungendo che l’istruzione contiene pure una chicca, scoperta autonomamente (giuro). La giro ai miei pari grado mentre i più scafati faranno spallucce (lo sapevamo già!). Sia come sia, il trucchetto ovviamente affidato a una preliminare <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Imports System.IO</em></strong>, sostituisce un normale argomento con path completo tipo “C:\...\IndirizziOutlook.csv” la directory corrente e per funzionare occorre preliminarmente copiare il nostro csv nelle directory <em style="mso-bidi-font-style: normal">bin\Debug</em> e <em style="mso-bidi-font-style: normal">bin\Release</em> del progetto.<o:p /></p> <p class="MsoNormal">Completo il quadro riportando tutto il codice relativo al primo pulsante di questa nuova soluzione WPF, preceduto dagli incipit del caso:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">Imports</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"> Microsoft.Office.Interop <span style="COLOR: #00b050">' Occorre solo per MS Outlook<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">Imports</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"> System.IO<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">Imports</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"> System.Threading <span style="COLOR: #00b050">' Per il messaggio temporaneo (v. più avanti)</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">Class</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: #2b91af">MainWindow</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Outlk <span style="COLOR: blue">As</span> Microsoft.Office.Interop.Outlook.<span style="COLOR: #2b91af">Application</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> IndirEmail() <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> IndirEmailScelti(0) <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Private</span> <span style="COLOR: blue">Sub</span> Button1_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.<span style="COLOR: #2b91af">Object</span>, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.<span style="COLOR: #2b91af">RoutedEventArgs</span>) <span style="COLOR: blue">Handles</span> Button1.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: green; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">' Caricamento archivio IndirizziOutlook.csv</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Static</span> swFileCSVCaricato <span style="COLOR: blue">As</span> <span style="COLOR: blue">Boolean</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> swFileCSVCaricato <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> <span style="COLOR: #2b91af">MessageBox</span>.Show(<span style="COLOR: #a31515">"Dati e-mail già presenti... Ripeto il caricamento?"</span>, <span style="COLOR: #a31515">"Attenzione!"</span>, <span style="COLOR: #2b91af">MessageBoxButton</span>.YesNo) = _<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: #2b91af; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">MessageBoxResult</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">.No <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Exit Sub</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> TutteRighe() = _<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: #2b91af">File</span>.ReadAllLines(<span style="COLOR: blue">My</span>.Computer.FileSystem.CurrentDirectory & <span style="COLOR: #a31515">"\IndirizziOutlook.csv"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> NumRighe = TutteRighe.Length<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> TutteCol(3) <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Riga <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> NomiCogn(NumRighe - 1) <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">ReDim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"> IndirEmail(NumRighe - 1)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> k = -1 <span style="COLOR: green">' Per saltare le intestazioni</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">For</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: blue">Each</span> Riga <span style="COLOR: blue">In</span> TutteRighe<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>TutteCol = Riga.Split(<span style="COLOR: #a31515">";"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> k >= 0 <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">NomiCogn(k) = TutteCol(0) & <span style="COLOR: #a31515">" "</span> & TutteCol(1)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span>IndirEmail(k) = TutteCol(2)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span>k += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: #2b91af">Array</span>.Sort(NomiCogn, IndirEmail)<span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Ordina nomi + cognomi ed email corrisp.ti!</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span>ListBox1.ItemsSource = NomiCogn<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span>ListBox1.SelectedIndex = 0 <span style="COLOR: green">' Seleziona il primo record</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span>swFileCSVCaricato = <span style="COLOR: blue">True</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><o:p> </o:p></span></p> <p class="MsoNormal">Anticipo che lo scopo della routine è duplice: il popolamento di una <strong style="mso-bidi-font-weight: normal">ListBox1 </strong>della finestra WPF (o una Form, volendo) con tutti i vari “Mario Rossi”, “Peppina Mastropasqua” ecc. e, al tempo stesso, dei corrispettivi indirizzi email nel vettore comunitario <strong style="mso-bidi-font-weight: normal">IndirEmail</strong>. Questo perché solo il primo va mostrato all’utente.<o:p /></p> <p style="tab-stops: 120.5pt" class="MsoNormal">La parte iniziale la affido all’esegesi autogestita del visitatore di questo blog, per il resto mi limito a dire che il loop <em style="mso-bidi-font-style: normal">For Each Riga In TutteRighe. . . Next </em>spazzola le righe del .csv incluse intestazioni (che vanno skippate) e ad ogni passo pone nel vettore <em style="mso-bidi-font-style: normal">TutteCol </em>di 4 elementi la <em style="mso-bidi-font-style: normal">Riga.Split(“;”)</em> provvidenziale codice che separa i campi sulla base del delimitatore “;”.<o:p /></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #daeef3; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 51"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #daeef3; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 51; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt; tab-stops: 120.5pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota </strong>Il separatore punto e virgola si ha nell’edizione italiana. In quella inglese c’è la virgola. Ne può nascere, ahimè, un guaio per gli anglofoni/fili cui si rimedia ma, temo, solo a livello debug.<o:p /></p> </div> <p style="tab-stops: 120.5pt" class="MsoNormal">Cos’altro dire? Solo che l’istruzione <em style="mso-bidi-font-style: normal">NomiCogn(k) = TutteCol(0) & " " & TutteCol(1) </em>concatena nomi e cognomi ottenuti con l’indice 0 e, rispettivamente, 1 di <strong style="mso-bidi-font-weight: normal">TutteCol</strong>, dopo di che tale vettore viene affibbiato alla proprietà <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">ItemsSource</em></strong> della ListBox, inoltre merita di essere evidenziata la precedente <em style="mso-bidi-font-style: normal">Array.Sort(NomiCogn, IndirEmail) </em>la quale riordina in modo coerente entrambi i vettori (guai a farlo separatamente!).<o:p /></p> <p style="tab-stops: 120.5pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Il confronto che convince</strong>. Rispetto a precedenti soluzioni con OLE Automation applicato a IndirizziOutlook.xls a colpo d’occhio si osserva <u>una velocità operativa molto maggiore</u>, oltre che un minor spreco di RAM.<o:p /></p> <h2>Uno sguardo al layout<o:p /></h2> <p class="MsoNormal">Per brevità non riporto l’XAML ma mi limito a dare un’idea dell’aspetto risultante come segue:<o:p /></p> <span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Calibri", "sans-serif"; FONT-SIZE: 11pt; mso-fareast-font-family: Calibri; mso-bidi-font-family: 'Times New Roman'; mso-fareast-language: EN-US; mso-ansi-language: IT; mso-bidi-theme-font: minor-bidi; mso-ascii-theme-font: minor-latin; mso-fareast-theme-font: minor-latin; mso-hansi-theme-font: minor-latin; mso-bidi-language: AR-SA"><br style="mso-special-character: line-break; mso-column-break-before: always" clear="all" /> </span> <p class="MsoNormal"><o:p> </o:p></p> <table style="WIDTH: 355pt; BORDER-COLLAPSE: collapse; MARGIN-LEFT: 2.75pt; mso-padding-alt: 0cm 3.5pt 0cm 3.5pt; mso-yfti-tbllook: 1184" border="0" cellspacing="0" cellpadding="0" width="473" class="MsoNormalTable"> <tbody> <tr style="HEIGHT: 15.75pt; mso-yfti-irow: 0; mso-yfti-firstrow: yes"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 101pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="135" colspan="2" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Nominativi completi<o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="57" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="64" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 85pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="113" colspan="2" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Nominativi scelti<o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 56pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="75" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 15.75pt; mso-yfti-irow: 1"> <td style="BORDER-BOTTOM: black 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 144pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: black 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: black; mso-border-left-alt: windowtext; mso-border-right-alt: black; mso-border-top-alt: windowtext; mso-border-style-alt: solid; mso-border-width-alt: .5pt" valign="bottom" rowspan="6" width="192" colspan="3" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #d9d9d9; HEIGHT: 15.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">===></span><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"><o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> </td> <td style="BORDER-BOTTOM: medium none; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 141pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: black 1pt solid; PADDING-TOP: 0cm; mso-border-left-alt: solid windowtext .5pt; mso-border-right-alt: solid black .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" rowspan="6" width="188" colspan="3" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 15pt; mso-yfti-irow: 2"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="64" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 15.75pt; mso-yfti-irow: 3"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="64" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 30.75pt; mso-yfti-irow: 4"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 30.75pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #d9d9d9; HEIGHT: 30.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm" width="64"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Azzera<br /> scelti</span><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"><o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 30.75pt; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 15pt; mso-yfti-irow: 5"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="64" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 15pt; mso-yfti-irow: 6"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="64" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 15pt; mso-yfti-irow: 7"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 68pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="91" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">CIRCOLARE<o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="44" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="57" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="64" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 77pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="103" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 8pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="11" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 56pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; PADDING-TOP: 0cm" valign="bottom" width="75" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 112.5pt; mso-yfti-irow: 8"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 355pt; PADDING-RIGHT: 3.5pt; HEIGHT: 112.5pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: black 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-border-right-alt: solid black .5pt" valign="bottom" width="473" colspan="9" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.75pt; mso-yfti-irow: 9"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 68pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.75pt; PADDING-TOP: 0cm" valign="bottom" width="91" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.75pt; PADDING-TOP: 0cm" valign="bottom" width="44" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.75pt; PADDING-TOP: 0cm" valign="bottom" width="57" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.75pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.75pt; PADDING-TOP: 0cm" valign="bottom" width="64" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.75pt; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 77pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.75pt; PADDING-TOP: 0cm" valign="bottom" width="103" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 8pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.75pt; PADDING-TOP: 0cm" valign="bottom" width="11" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 56pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.75pt; PADDING-TOP: 0cm" valign="bottom" width="75" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 15.75pt; mso-yfti-irow: 10"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 68pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="91" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="44" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="57" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="64" nowrap="nowrap"> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 77pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="103" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Tutti<o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 8pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="11" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 56pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15.75pt; PADDING-TOP: 0cm" valign="bottom" width="75" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 36.75pt; mso-yfti-irow: 11; mso-yfti-lastrow: yes"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 68pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #d9d9d9; HEIGHT: 36.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm" width="91"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Carica<br /> nomi e ind.</span><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"><o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 36.75pt; PADDING-TOP: 0cm" valign="bottom" width="44" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 36.75pt; PADDING-TOP: 0cm" valign="bottom" width="57" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 10pt; PADDING-RIGHT: 3.5pt; HEIGHT: 36.75pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 36.75pt; PADDING-TOP: 0cm" valign="bottom" width="64" nowrap="nowrap"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 12pt; PADDING-RIGHT: 3.5pt; HEIGHT: 36.75pt; PADDING-TOP: 0cm" valign="bottom" width="16" nowrap="nowrap"> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 77pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #d9d9d9; HEIGHT: 36.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm" width="103"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Prepara<br /> circolare</span><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"><o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 8pt; PADDING-RIGHT: 3.5pt; HEIGHT: 36.75pt; PADDING-TOP: 0cm" valign="bottom" width="11" nowrap="nowrap"> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 56pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #d9d9d9; HEIGHT: 36.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm" width="75"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Spedisci</span><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"><o:p /></span></p> </td> </tr> </tbody> </table> <p class="MsoNormal"><o:p> </o:p></p> <p class="MsoNormal">In due parole, i controlli essenziali in alto sono una <strong style="mso-bidi-font-weight: normal">ListBox1</strong> e una <strong style="mso-bidi-font-weight: normal">ListBox2 </strong>il cui destino è indicato dalle label “Nominativi completi” e “Nominativi scelti”, fra le quali sono interposti i button etichettati “===>” e “Azzera scelti”, al centro c’è una grossa <strong style="mso-bidi-font-weight: normal">TextBox1 </strong>per ospitare la circolare, infine in basso si hanno tre pulsanti dallo scopo chiaramente indicato da ciascun <em style="mso-bidi-font-style: normal">Content</em> più una casella <strong style="mso-bidi-font-weight: normal">CheckBox1</strong>, che discrimina se la circolare va inviata a tutto il … stavo per dire cucuzzaro, no!, all’intero indirizzario oppure ai soli soggetti scelti.<o:p /></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #daeef3; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 51"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; LINE-HEIGHT: normal; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; MARGIN-BOTTOM: 0pt; BACKGROUND: #daeef3; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 51; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt; mso-layout-grid-align: none" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>. Si ricorda che una proprietà come <em style="mso-bidi-font-style: normal">Content="Carica &#10;Nomi e indirizzi" </em>grazie a una costante XML <strong style="mso-bidi-font-weight: normal">&#valore; </strong>inserisce un a-capo (linefeed o CR, con 13 anziché 10) o altro carattere speciale.<o:p /></p> </div> <p class="MsoNormal"><o:p> </o:p></p> <p class="MsoNormal">Ognuno può interpretare a suo gusto l’XAML sopra mostrato, magari migliorandolo anche esteticamente.<o:p /></p> <h2>Altre codifiche VB<o:p /></h2> <p class="MsoNormal">Si riveda la Sub dell’evento Click del pulsante etichettato “Carica nomi e ind.”, quindi passiamo alle altre routine.<o:p /></p> <p class="MsoNormal">La prima è abbinata al pulsante etichettato con la rozza freccia ===> (migliorabile!).<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Private</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: blue">Sub</span> Button3_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.<span style="COLOR: #2b91af">Object</span>, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.<span style="COLOR: #2b91af">RoutedEventArgs</span>) <span style="COLOR: blue">Handles</span> Button3.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: green; FONT-SIZE: 9pt">' Trasferimento indirizzi scelti</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> i = ListBox1.SelectedIndex<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> i = -1 <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span>MessaggioTemporaneo(<span style="COLOR: #a31515">"Devi selezionare un record!"</span>, 2000)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' MessageBox.Show("Devi selezionare un record!", "Attenzione!", MessageBoxButton.OK, MessageBoxImage.Error) ' SOLUZIONE CLASSICA</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Exit Sub</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> NomeScelto <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span> = ListBox1.Items(i)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> ListBox2.Items.Count = 0 <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>ListBox2.Items.Add(NomeScelto)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>IndirEmailScelti(0) = IndirEmail(i)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Exit Sub</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> <span style="COLOR: blue">Each</span> Elem <span style="COLOR: blue">In</span> ListBox2.Items<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">If</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> Elem = NomeScelto <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span>MessaggioTemporaneo(NomeScelto & <span style="COLOR: #a31515">" è già presente"</span>, 2000)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' MessageBox.Show(NomeScelto & " esiste già!")</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Exit Sub</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> k = IndirEmailScelti.Length<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt">ListBox2.Items.Add(NomeScelto)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">ReDim</span> <span style="COLOR: blue">Preserve</span> IndirEmailScelti(k)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">IndirEmailScelti(k) = IndirEmail(i)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' MsgBox(ListBox2.Items(k) & vbLf & IndirEmailScelti(k))</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt"><o:p> </o:p></span></p> <p class="MsoNormal">Saltando per ora le prime righe che lanciano un chiaro avviso temporaneo, qualora nessun item della prima casella a discesa fosse selezionata (<em style="mso-bidi-font-style: normal">Listbox1.SelectedIndex = -1</em>, cosa peraltro molto improbabile, se si riflette) viene dapprima messo in <em style="mso-bidi-font-style: normal">NomeScelto </em>l’item <em style="mso-bidi-font-style: normal">i </em>della ListBox1. Qui va precisato che nelle Dichiarazioni è stata posta una<strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal"> Dim IndirEmailScelti(0) </em></strong>che la rende non vuota, per cui la prima volta che si ha <em style="mso-bidi-font-style: normal">IndirEmailScelti(0) </em>non si hanno proteste né errori. Dopo questa pignola, ma indispensabile, segnalazione il commento del resto è affidato a chi legge che si dovrebbe convincersi che viene garantito l’aggiornamento parallelo della ListBox2, a furia di <em style="mso-bidi-font-style: normal">Items.Add</em>¸ dei corrispondenti indirizzi email, a furia di complicati <em style="mso-bidi-font-style: normal">Redim Preserve </em><span style="mso-spacerun: yes"> </span>che probabilmente si possono rendere più “puliti”.<o:p /></p> <p class="MsoNormal">Quest’altra Sub parla da sola:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: Consolas; COLOR: blue; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">Private</span><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: blue">Sub</span> Button4_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.<span style="COLOR: #2b91af">Object</span>, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.<span style="COLOR: #2b91af">RoutedEventArgs</span>) <span style="COLOR: blue">Handles</span> Button4.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: Consolas; COLOR: green; FONT-SIZE: 9.5pt">' Pulisci la lista dei nominativi scelti e la lettera</span><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">ListBox2.Items.Clear()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>TextBox1.Clear()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: Consolas; COLOR: blue; FONT-SIZE: 9.5pt">ReDim</span><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt"> IndirEmailScelti(0)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: Consolas; COLOR: blue; FONT-SIZE: 9.5pt">End</span><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt"> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: Consolas; COLOR: blue; FONT-SIZE: 9.5pt"><o:p> </o:p></span></p> <p class="MsoNormal">Va solo detto che ho preferito questo drastico repulisti in caso di utente nel pallone, anziché più articolate (e noiose) azioni di ripristino<o:p /></p> <p class="MsoNormal">Andiamo poi a vedere come viene preparata la circolare.<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Private</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: blue">Sub</span> Button2_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.<span style="COLOR: #2b91af">Object</span>, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.<span style="COLOR: #2b91af">RoutedEventArgs</span>) <span style="COLOR: blue">Handles</span> Button2.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: green; FONT-SIZE: 9pt">' Preparazione del testo della circolare</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> Nominativi = <span style="COLOR: #a31515">""</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> i = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> CheckBox1.IsChecked <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> <span style="COLOR: blue">Each</span> Elem <span style="COLOR: blue">In</span> ListBox1.Items<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>Nominativi &= Elem & vbCr<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Else</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> <span style="COLOR: blue">Each</span> Elem <span style="COLOR: blue">In</span> ListBox2.Items<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>Nominativi &= Elem & vbCr<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">If</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> Nominativi = <span style="COLOR: #a31515">""</span> <span style="COLOR: blue">Then</span> <span style="COLOR: blue">Exit Sub</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span>TextBox1.Text = <span style="COLOR: #a31515">"Gentili signori"</span> & vbCr & Nominativi & vbCr & <span style="COLOR: #a31515">"Distinti saluti"</span> <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal">Palesemente il testo prevede un’inizio “Gentili signori” seguito dalla serie di<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal">Pasuqlino Maragià<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal">Marianna Buttalapasta<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal">Ernesto Diociguardi<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal">. . .<o:p /></p> <p class="MsoNormal">Con la chiusa “Distinti saluti”. L’importante è rimarcare che questo banale scritto può sempre essere corretto dall’utente, sia nell’applicazione sia in Outlook,come stiamo per vedere.<o:p /></p> <p class="MsoNormal">Eccoci al pulsante che spedisce, anzi che prepara le bozze Outlook della circolare.<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Private</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: blue">Sub</span> Button5_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.<span style="COLOR: #2b91af">Object</span>, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.<span style="COLOR: #2b91af">RoutedEventArgs</span>) <span style="COLOR: blue">Handles</span> Button5.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: green; FONT-SIZE: 9pt">' Spedisci circolari (anzi salvale come bozze)</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> TextBox1.Text = <span style="COLOR: #a31515">""</span> <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Messaggio che compare nella lblMESS, invisibile per default</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span>MessaggioTemporaneo(<span style="COLOR: #a31515">"Lettera vuota! Attenzione"</span>, 2000)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Exit Sub</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Avviso = <span style="COLOR: #a31515">"Microsoft Outlook è attivato?"</span> & vbLf & <span style="COLOR: #a31515">"(Altrimenti il codice NON fa nulla"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> <span style="COLOR: #2b91af">MessageBox</span>.Show(Avviso, <span style="COLOR: #a31515">"Controlla!"</span>, <span style="COLOR: #2b91af">MessageBoxButton</span>.YesNo) = <span style="COLOR: #2b91af">MessageBoxResult</span>.No <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: #2b91af">MessageBox</span>.Show(<span style="COLOR: #a31515">"Provvedi!"</span>, <span style="COLOR: #a31515">"!!!"</span>, <span style="COLOR: #2b91af">MessageBoxButton</span>.OK, <span style="COLOR: #2b91af">MessageBoxImage</span>.Exclamation)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Exit Sub</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Outlk <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> Outlook.<span style="COLOR: #2b91af">Application</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: green; FONT-SIZE: 9pt">' Outlk.Session.Logon() ' ===> errori misteriosi!</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"> MioMess <span style="COLOR: blue">As</span> Outlook.<span style="COLOR: #2b91af">MailItem</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess = Outlk.CreateItem(Outlook.<span style="COLOR: #2b91af">OlItemType</span>.olMailItem)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Indirizzi = <span style="COLOR: #a31515">""</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> i = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> CheckBox1.IsChecked <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> <span style="COLOR: blue">Each</span> Elem <span style="COLOR: blue">In</span> ListBox1.Items<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>Indirizzi &= IndirEmail(i) & <span style="COLOR: #a31515">";"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Else</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> <span style="COLOR: blue">Each</span> Elem <span style="COLOR: blue">In</span> ListBox2.Items<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>Indirizzi &= IndirEmailScelti(i) & <span style="COLOR: #a31515">";"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> MioMess<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Subject = <span style="COLOR: #a31515">"Varie"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.To = Indirizzi<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Body = TextBox1.Text<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Save()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Outlk.Session.Logoff()</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess = <span style="COLOR: blue">Nothing</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>Outlk = <span style="COLOR: blue">Nothing</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>TextBox1.Clear()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt"><o:p> </o:p></span></p> <p class="MsoNormal">A questo punto me la sbrigo alla grande, limitandomi in primo luogo a invitare alla rilettura dei precedenti articoli in materia, per l’uso della tecnologia Automation per Outlook.<o:p /></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #daeef3; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 51"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #daeef3; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 51; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>. Che personalmente ritengo inevitabile, salvo segrete librerie .NET a me del tutto ignote…<o:p /></p> </div> <h2>Ultima chicca,<span style="mso-spacerun: yes"> </span>messaggio a tempo<o:p /></h2> <p class="MsoNormal">Taccio poi del tutto sul dialogo con l’utente per ricordargli che – anche qui salvo segreti ignoti a chi scrive, che è incappato in drammi con <em style="mso-bidi-font-style: normal">Logon </em>e <em style="mso-bidi-font-style: normal">Logoff</em>… - MS Outlook dev’essere aperto (sennò nemmeno scaturiscono errori a run-time!). E svelo infine che nella finestra XAML ho collocato pure una label <strong style="mso-bidi-font-weight: normal">lblMESS </strong><span style="mso-spacerun: yes"> </span>di questo tipo:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> Margin</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">="22,0,23,40"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">="lblMESS"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> Visibility</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">="Hidden"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> Foreground</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">="DarkBlue"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> FontSize</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">="14"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">="29"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> VerticalAlignment</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">="Bottom"></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">MESSAGGIO DEFAULT...</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">Label</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><o:p> </o:p></span></p> <p class="MsoNormal">La sua proprietà <em style="mso-bidi-font-style: normal">Visibility=”Hidden”</em> la rende invisibile a run-time, mentre a tempo di progetto si vede chiaramente. Con essa ho sperimentato una routine con argomenti abbastanza sofisticata:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">Private</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: blue">Sub</span> MessaggioTemporaneo(<span style="COLOR: blue">ByVal</span> Msg <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span>, <span style="COLOR: blue">ByVal</span> tempo <span style="COLOR: blue">As</span> <span style="COLOR: blue">Double</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> myThread <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> <span style="COLOR: #2b91af">Thread</span>(<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Sub</span>()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>Dispatcher.Invoke(<span style="COLOR: blue">Sub</span>()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> lblMESS<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Content = Msg<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Visibility = Windows.<span style="COLOR: #2b91af">Visibility</span>.Visible<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: #2b91af">Thread</span>.Sleep(tempo)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>Dispatcher.Invoke(<span style="COLOR: blue">Sub</span>()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>lblMESS.Visibility = Windows.<span style="COLOR: #2b91af">Visibility</span>.Hidden<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Esecuzione di myThread</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">myThread.Start()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt"><o:p> </o:p></span></p> <p class="MsoNormal">Tale routine è invocata dall’istruzione seguente:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">If</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> TextBox1.Text = <span style="COLOR: #a31515">""</span> <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Messaggio che compare nella lblMESS, invisibile per default</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span>MessaggioTemporaneo(<span style="COLOR: #a31515">"Lettera vuota! Attenzione"</span>, 2000)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Exit Sub</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"> <span style="COLOR: blue">If<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt"><o:p> </o:p></span></p> <p class="MsoNormal">Che, qualora la TextBox1 sia vuota segnala l’anomalia facendo comparire il messaggio anziché con la solita MessageBox nella label predetta.<o:p /></p> <p class="MsoNormal">Affido questa ricetta ai più esperti, assicurando gli altri che funziona <u>a patto di non dimenticare la direttiva Imports System.Threading</u>.<o:p /></p><img src="http://blogs.wpfitalia.it/GianniGiaccaglini/aggbug/99.aspx" width="1" height="1" /> Gianni Giaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/03/30/Circolare-Outlook-con-indirizzi-in-archivio-CSV.aspx Fri, 30 Mar 2012 17:11:33 GMT http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/03/30/Circolare-Outlook-con-indirizzi-in-archivio-CSV.aspx#feedback 2 http://blogs.wpfitalia.it/GianniGiaccaglini/comments/commentRss/99.aspx Circolari Outlook con Excel Automation, in due salse http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/03/05/Circolari-Outlook-con-Excel-Automation-in-due-salse.aspx <div style="BORDER-BOTTOM: #4f81bd 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 4pt; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-element: para-border-div; mso-border-bottom-themecolor: accent1"> <p class="MsoTitle"><span style="FONT-SIZE: 20pt; mso-bidi-font-size: 26.0pt">Circolari Outlook con Excel Automation, in due salse</span><o:p /></p> </div> <p class="MsoNormal">Questo articolo conclude i due precedenti, la cui lettura è un prerequisito. Siamo partiti con una soluzione molto artigiana, mirata principalmente a illustrare la spedizione di circolari tramite (OLE) Automation applicato a Microsoft Outlook. In quel caso i nominativi e gl’indirizzi e-mail dei corrispondenti si erano inserire – parte per default, parte manualmente - in due semplici caselle di testo. Successivamente ho rinfrescato la tecnologia Automation applicata a Excel , con vari esempi, che ne hanno, spero, messo in luce la versatilità.<o:p /></p> <p class="MsoNormal">A quel punto, ho messo in atto tentativi di usare il binding da una fonte del tipo <strong style="mso-bidi-font-weight: normal">indirizzi.csv </strong>o <strong style="mso-bidi-font-weight: normal">indirizzi.xls</strong>, ovvero gli uniti tipi di file che Outlook permette di esportare. Tutti infruttuosi. In fondo a questo intervento riporto un input specifico di un esperto MVP, ossia <strong style="mso-bidi-font-weight: normal">Marco Russo </strong>della DevLeap. Onore al merito.<o:p /></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #b6dde8; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #b6dde8; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>. Marco mi ha tra l’altro confermato quel che già sospettavo: il pacco WPF non esiste nessuna opzione nativa per archivi .csv (men che meno per i .xls)...<o:p /></p> </div> <p class="MsoNormal">Tuttavia un po’ per la fretta (tale alternativa richiede studi e tempi non brevi) un po’ per sfruttare le potenzialità di binding “diretto” tramite Excel Automation, ho pensato di arrangiarmi con questa, per me più familiare metodologia.<o:p /></p> <h2>Prima soluzione, con due ListBox<o:p /></h2> <p class="MsoNormal">Il layout grossolano della finestra WPF è identico a quello di edue post or sono, salvo che sulla sinistra stavolta anziché due caselle di testo si hanno due caselle a discesa, <strong style="mso-bidi-font-weight: normal">ListBox1</strong> e <strong style="mso-bidi-font-weight: normal">ListBox</strong>.<o:p /></p> <div align="center"> <table style="WIDTH: 188.25pt; BORDER-COLLAPSE: collapse; MARGIN-LEFT: -16.75pt; mso-padding-alt: 0cm 3.5pt 0cm 3.5pt; mso-yfti-tbllook: 1184" border="0" cellspacing="0" cellpadding="0" width="251" class="MsoNormalTable"> <tbody> <tr style="HEIGHT: 13.4pt; mso-yfti-irow: 0; mso-yfti-firstrow: yes"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 188.25pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #215967; HEIGHT: 13.4pt; BORDER-TOP: #215967 1pt solid; BORDER-RIGHT: #215967 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid #215967 1.0pt; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="251" colspan="3" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="COLOR: white; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>Window1<o:p /></span></strong></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 1"> <td style="BORDER-BOTTOM: black 1pt solid; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid black .5pt; mso-border-left-alt: solid #215967 1.0pt; mso-border-right-alt: solid windowtext .5pt" valign="top" rowspan="7" width="111"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"><o:p> </o:p></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: black 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 95.8pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: #215967 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid black .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-right-alt: solid #215967 1.0pt" valign="top" rowspan="15" width="128"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">GentiliSignori#NOMI#<br /> Distinti saluti<o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 2"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 3"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 4"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 5"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 6"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 3pt; mso-yfti-irow: 7"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 3pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 8"> <td style="BORDER-BOTTOM: medium none; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm" valign="bottom" width="111" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 9"> <td style="BORDER-BOTTOM: black 1pt solid; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: black .5pt; mso-border-left-alt: #215967 1.0pt; mso-border-right-alt: windowtext .5pt; mso-border-top-alt: windowtext .5pt; mso-border-style-alt: solid" valign="top" rowspan="7" width="111"> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 10"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 11"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 12"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 13"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 14"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 15"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 16"> <td style="BORDER-BOTTOM: medium none; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm" valign="bottom" width="111" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 95.8pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: #215967 1pt solid; PADDING-TOP: 0cm" valign="bottom" width="128" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 12.7pt; mso-yfti-irow: 17"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #ccc0da; HEIGHT: 12.7pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm" width="111" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><strong><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Elenco indirizzi<o:p /></span></strong></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.7pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 95.8pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #ccc0da; HEIGHT: 12.7pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: #215967 1pt solid; PADDING-TOP: 0cm" width="128" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><strong><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Spedisci<o:p /></span></strong></p> </td> </tr> <tr style="HEIGHT: 7.75pt; mso-yfti-irow: 18; mso-yfti-lastrow: yes"> <td style="BORDER-BOTTOM: #215967 1pt solid; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; HEIGHT: 7.75pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm" valign="bottom" width="111" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: #215967 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 7.75pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: #215967 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 95.8pt; PADDING-RIGHT: 3.5pt; HEIGHT: 7.75pt; BORDER-TOP: medium none; BORDER-RIGHT: #215967 1pt solid; PADDING-TOP: 0cm" valign="bottom" width="128" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> </tbody> </table> </div> <p class="MsoNormal">Nelle quali il <strong style="mso-bidi-font-weight: normal">Button1 </strong>“Elenco indirizzi” inserirà i nominativi e, rispettivamente, gl’indirizzi e-mail (ma come avete fatto a indovinare?”)<o:p /></p> <h2><span style="mso-ansi-language: EN-US" lang="EN-US">XAML<o:p /></span></h2> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Window</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> x</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">:</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Class</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="Window1"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>xmlns</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml/presentation"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>xmlns</span><span style="COLOR: blue">:</span><span style="COLOR: red">x</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Title</span><span style="COLOR: blue">="Circolari Outlook tramite Excel"</span><span style="COLOR: red"> Height</span><span style="COLOR: blue">="300"</span><span style="COLOR: red"> Width</span><span style="COLOR: blue">="300"><o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid.RowDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="210*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="52*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid.RowDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid.ColumnDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">ColumnDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="108*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">ColumnDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="108*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid.ColumnDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">></span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">ListBox</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="100"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="ListBox1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> VerticalAlignment</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="Top"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">ListBox</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">ListBox</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="ListBox2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Margin</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="0,101,0,9"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">ListBox</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">TextBox</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> TextWrapping</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="Wrap"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>VerticalScrollBarVisibility</span><span style="COLOR: blue">="Visible"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>AcceptsReturn</span><span style="COLOR: blue">="True"</span><span style="COLOR: red"> Name</span><span style="COLOR: blue">="TextBox1"</span><span style="COLOR: red"> Margin</span><span style="COLOR: blue">="0,0,0,9"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span></span></span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-no-proof: yes">Text</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">="Gentili Signori&#13;#NOMINATIVI#&#13;Distinti saluti"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes">TextBox</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-no-proof: yes"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-no-proof: yes"> Margin</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">="17,22,17,9"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-no-proof: yes"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">="Button1"></span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes">Elenco indirizzi</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-no-proof: yes"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-no-proof: yes"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-no-proof: yes"> Margin</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes"> ="17,22,17,9"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-no-proof: yes"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">="Button2"></span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes">Spedisci</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Window</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> </span>Il precedente codice dichiarativo parla da sé, ergo passo senza indugi a quello imperativo.<o:p /></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #b6dde8; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #b6dde8; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><font face="Tahoma"><strong style="mso-bidi-font-weight: normal">Nota</strong>. Rispetto a una versione precedente ho usato il codice <strong style="mso-bidi-font-weight: normal">&#13 </strong>per inserire un carriage return nel Text. La sintassi generale, ricordo, in XML è <strong style="mso-bidi-font-weight: normal">&#<em style="mso-bidi-font-style: normal">valore</em>;</strong>. Analogamente <span style="mso-spacerun: yes"> </span><strong style="mso-bidi-font-weight: normal">&#10 </strong>ci dà un line feed.<o:p /></font></p> </div> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"> </p> <h2><span style="mso-ansi-language: EN-US" lang="EN-US">VB<o:p /></span></h2> <p class="MsoNormal">L’incipit prevede le direttive <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Imports </em></strong>relative ad Outlook ed Excel, le quali, mi scuso se insisto, funzionano solo previa impostazione dei rispettivi riferimenti tramite <strong style="mso-bidi-font-weight: normal">Progetto > Aggiungi riferimento... </strong>ecc. (a proposito, conviene usare le più moderne librerie della scheda <strong style="mso-bidi-font-weight: normal">.NET </strong>anziché <strong style="mso-bidi-font-weight: normal">COM</strong>).<o:p /></p> <p class="MsoNormal">Seguono, a livello Dichiarazioni, l’impostazione in <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">mioExcel </em></strong>della nostra istanza di Excel nonché di due matrici comunitarie <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">NomiCogn() </em></strong>e <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">IndirEmail()</em></strong> e tutto il mondo ne capisce lo scopo, oltretutto anticipato in fondo al precedente articolo generale su Excel Automation.<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">Imports</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"> Microsoft.Office.Interop <span style="COLOR: #00b050">'Va bene anche senza .Outlook...<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">Imports</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"> Microsoft.Office.Interop.Excel <span style="COLOR: #00b050">'Qui .Excel ci vuole</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Class</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Window1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> mioExcel <span style="COLOR: blue">As</span> Microsoft.Office.Interop.Excel.Application<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> NomiCogn() <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span>, IndirEmail() <span style="COLOR: blue">As</span> <span style="COLOR: blue">String<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Private</span> <span style="COLOR: blue">Sub</span> Button1_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.Object, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.RoutedEventArgs) <span style="COLOR: blue">Handles</span> Button1.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>ListBox1.ItemsSource = <span style="COLOR: #a31515">""</span> <span style="COLOR: green">' Funziona come Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>ListBox2.ItemsSource = <span style="COLOR: blue">Nothing</span> <span style="COLOR: green">' Funziona come ""<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none; tab-stops: 219.75pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Crea un’istanza di Excel</span><span style="COLOR: #00b050"><o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel = <span style="COLOR: blue">New</span> Microsoft.Office.Interop.Excel.Application<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none; tab-stops: 219.75pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Carica l’archivio .xls</span><span style="COLOR: #00b050"><o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> mioWorkbook <span style="COLOR: blue">As</span> Workbook = _</span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> mioExcel.Workbooks.Open(<span style="COLOR: #a31515">"C:\IndirizziClientiOutlook.xls"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: green; FONT-SIZE: 10pt; mso-no-proof: yes">' mioExcel.Visible = False ' NON serve, è default<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> ColonnaNomi <span style="COLOR: blue">As</span> Range, ColonnaIndirEmail <span style="COLOR: blue">As</span> Range<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes">ColonnaNomi = mioExcel.Range(<span style="COLOR: #a31515">"Tabella1[Nome]"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>ColonnaIndirEmail = mioExcel.Range(<span style="COLOR: #a31515">"Tabella1[Indirizzopostaelettronica]"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">ReDim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> NomiCogn(ColonnaNomi.Count - 1)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">ReDim</span> IndirEmail(ColonnaIndirEmail.Count - 1)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> i = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Cella <span style="COLOR: blue">As</span> Range<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> <span style="COLOR: blue">Each</span> Cella <span style="COLOR: blue">In</span> ColonnaNomi<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>NomiCogn(i) = Cella.Value & <span style="COLOR: #a31515">" "</span> & Cella.Offset(0, 1).Value<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>ListBox1.ItemsSource = NomiCogn<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>i = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> <span style="COLOR: blue">Each</span> Cella <span style="COLOR: blue">In</span> ColonnaIndirEmail<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>IndirEmail(i) = Cella.Value & <span style="COLOR: #a31515">" "</span> & Cella.Offset(0, 1).Value<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>ListBox2.ItemsSource = IndirEmail<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Quit()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioWorkbook = <span style="COLOR: blue">Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel = <span style="COLOR: blue">Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Private</span> <span style="COLOR: blue">Sub</span> Button2_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.Object, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.RoutedEventArgs) <span style="COLOR: blue">Handles</span> Button2.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"> Nominativi = <span style="COLOR: #a31515">""</span>, Indirizzi = <span style="COLOR: #a31515">""<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> i = 0 <span style="COLOR: blue">To</span> NomiCogn.Length - 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Nominativi = Nominativi & NomiCogn(i) & Chr(10)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Indirizzi = Indirizzi & IndirEmail(i) & <span style="COLOR: #a31515">";"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Outlk <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> Outlook.Application<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> MioMess <span style="COLOR: blue">As</span> Outlook.MailItem<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>TextBox1.Text = TextBox1.Text.Replace(<span style="COLOR: #a31515">"#NOMINATIVI#"</span>, Nominativi) & Chr(13)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess = Outlk.CreateItem(Outlook.OlItemType.olMailItem)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> MioMess<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Subject = <span style="COLOR: #a31515">"Richiesta chiarimenti"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>.BCC = <span style="COLOR: #a31515">"giannigiac@tin.it"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>.To = Indirizzi<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Body = TextBox1.Text<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess.Save() <font color="#339966">' Anziché Send, per ulteriori modifiche in Outlook</font></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess = <span style="COLOR: blue">Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>Outlk = <span style="COLOR: blue">Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> <span style="COLOR: blue">Class<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal">Commenti? Li affido all’esegesi autogestita di chi legge, che sarà opportuno si rilegga il precedente post su Outlook, ove il ruolo del secondo pulsante è del tutto analogo. Ma per quanto riguarda il <strong style="mso-bidi-font-weight: normal">Button1 </strong>sono in debito di qualche precisazione a proposito delle due istruzione che riporto qui sotto per maggior comodità.<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes">ColonnaNomi = mioExcel.Range(<span style="COLOR: #a31515">"Tabella1[Nome]"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes">ColonnaIndirEmail = _<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"> mioExcel.Range(<span style="COLOR: #a31515">"Tabella1[Indirizzopostaelettronica]"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal">Anzitutto va detto che il file <strong style="mso-bidi-font-weight: normal">IndirizziClientiOutlook.xls </strong>è stato ottenuto da un sottoindirizzario (come Outlook consente, v. la sua Guida) e non solo. Già che c’ero ho ne ho tradotto l’intervallo dei record, le righe sottostanti le intestazioni – <strong style="mso-bidi-font-weight: normal">Nome</strong>,<strong style="mso-bidi-font-weight: normal"> Cognome</strong>, <strong style="mso-bidi-font-weight: normal">Indirizzopostaelettronica </strong>nella fattispecie - <strong style="mso-bidi-font-weight: normal"><span style="mso-spacerun: yes"> </span></strong>in una <u>tabella</u>, <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Tabella1</em></strong> per default, cosa che caldeggio vivamente, in quanto consente <u>di aggiungere/togliere righe con automatico adeguamento del predetto nome <em style="mso-bidi-font-style: normal">Tabella1</em></u>. Il bello, inoltre, è che la sintassi <strong style="mso-bidi-font-weight: normal">Tabella1[<campo>] </strong>dà sintetico adito a tutte le celle, dei campi Nome e Indirizzopostaelettronica nel nostro caso.<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal">Quel che segue provvede a creare le due matrici <em style="mso-bidi-font-style: normal">NomiCogn </em>e <em style="mso-bidi-font-style: normal">IndirEmail </em>a loro volta associate alle due ListBox. Lascio a chi legge la comprensione della finezza <em style="mso-bidi-font-style: normal">Cella.Offset(0, 1) </em>che fa sì che in <em style="mso-bidi-font-style: normal">NomiCogn<span style="mso-spacerun: yes"> </span></em>vengano inserite stringhe del tipo “Paolo Rossi”, “Marianna Bianchi” eccetera.<o:p /></p> <h2>Versione senza ListBox<o:p /></h2> <p class="MsoNormal">In seguito mi sono detto che, a ben pensare, nella soluzione precedente, così com’è, il ruolo delle due ListBox è meramente illustrativo, quelle che contano sono le due matrici comunitarie <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">NomiCogn </em></strong>e <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">IndirEmail</em></strong>. Ipotizzando che non si chieda nient’altro che l’invio di circolari a una determinata mailing – Clienti, membri di una community e simili – ovviamente da predisporre con la debita esattezza nell’archivio Excel, ecco una versione che abolisce del tutto le due caselle a discesa.<o:p /></p> <h2><span style="mso-ansi-language: EN-US" lang="EN-US">XAML<o:p /></span></h2> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Window</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> x</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">:</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Class</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="Window1"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>xmlns</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml/presentation"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>xmlns</span><span style="COLOR: blue">:</span><span style="COLOR: red">x</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Title</span><span style="COLOR: blue">="Window1"</span><span style="COLOR: red"> Height</span><span style="COLOR: blue">="300"</span><span style="COLOR: red"> Width</span><span style="COLOR: blue">="300"><o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid.RowDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="241*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="21*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid.RowDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid.ColumnDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">ColumnDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="108*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid.ColumnDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">TextBox</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> TextWrapping</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="Wrap"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>VerticalScrollBarVisibility</span><span style="COLOR: blue">="Visible"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>AcceptsReturn</span><span style="COLOR: blue">="True"</span><span style="COLOR: red"> Name</span><span style="COLOR: blue">="TextBox1"</span><span style="COLOR: red"> Margin</span><span style="COLOR: blue">="0,0,0,11"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span></span></span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-no-proof: yes">Text</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">="Gentili Signori&#13;#NOMINATIVI#&#13;Distinti saluti"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">TextBox</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Margin</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="13,0,0,0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="Button1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> HorizontalAlignment</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="Left"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="109"></span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Elenco indirizzi</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Margin</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> ="0,2,12,0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="Button2"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> HorizontalAlignment</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="Right"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">="117"></span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Spedisci</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Grid</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p class="MsoNormal"><span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"></</span><span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Window</span><span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">><o:p /></span></p> <p class="MsoNormal">Unico commento: come è evidente, oltre ai due pulsanti, la finestra esibisce soltanto un’ampia casella di testo (nella quale, ripeto, l’utente può sempre apportare modifiche prima della spedizione).<o:p /></p> <h2><span style="mso-ansi-language: EN-US" lang="EN-US">VB<o:p /></span></h2> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Imports</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Microsoft.Office.Interop<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Imports</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Microsoft.Office.Interop.Excel<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Class</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> Window1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> mioExcel <span style="COLOR: blue">As</span> Microsoft.Office.Interop.Excel.Application<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> NomiCogn() <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span>, IndirEmail() <span style="COLOR: blue">As</span> <span style="COLOR: blue">String<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Private</span> <span style="COLOR: blue">Sub</span> Button1_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.Object, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.RoutedEventArgs) <span style="COLOR: blue">Handles</span> Button1.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel = <span style="COLOR: blue">New</span> Microsoft.Office.Interop.Excel.Application<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> mioWorkbook <span style="COLOR: blue">As</span> Workbook = _</span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> mioExcel.Workbooks.Open(<span style="COLOR: #a31515">"C:\IndirizziClientiOutlook.xls"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> ColonnaNomi <span style="COLOR: blue">As</span> Range, ColonnaIndirEmail <span style="COLOR: blue">As</span> Range<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes">ColonnaNomi = mioExcel.Range(<span style="COLOR: #a31515">"Tabella1[Nome]"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>ColonnaIndirEmail = mioExcel.Range(<span style="COLOR: #a31515">"Tabella1[Indirizzopostaelettronica]"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">ReDim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> NomiCogn(ColonnaNomi.Count - 1)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">ReDim</span> IndirEmail(ColonnaIndirEmail.Count - 1)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> i = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Cella <span style="COLOR: blue">As</span> Range<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> <span style="COLOR: blue">Each</span> Cella <span style="COLOR: blue">In</span> ColonnaNomi<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>NomiCogn(i) = Cella.Value & <span style="COLOR: #a31515">" "</span> & Cella.Offset(0, 1).Value<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>i = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> <span style="COLOR: blue">Each</span> Cella <span style="COLOR: blue">In</span> ColonnaIndirEmail<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>IndirEmail(i) = Cella.Value & <span style="COLOR: #a31515">" "</span> & Cella.Offset(0, 1).Value<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Quit()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioWorkbook = <span style="COLOR: blue">Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel = <span style="COLOR: blue">Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"> Nominativi = <span style="COLOR: #a31515">""<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> i = 0 <span style="COLOR: blue">To</span> NomiCogn.Length - 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Nominativi = Nominativi & NomiCogn(i) & Chr(10)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">Next<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>TextBox1.Text = TextBox1.Text.Replace(<span style="COLOR: #a31515">"#NOMINATIVI#"</span>, Nominativi) & Chr(13)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Private</span> <span style="COLOR: blue">Sub</span> Button2_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.Object, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.RoutedEventArgs) <span style="COLOR: blue">Handles</span> Button2.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Outlk <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> Outlook.Application<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Indirizzi = <span style="COLOR: #a31515">""<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> i = 1 <span style="COLOR: blue">To</span> IndirEmail.Length - 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>Indirizzi = Indirizzi & IndirEmail(i) & <span style="COLOR: #a31515">";"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> MioMess <span style="COLOR: blue">As</span> Outlook.MailItem<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess = Outlk.CreateItem(Outlook.OlItemType.olMailItem)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> MioMess<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Subject = <span style="COLOR: #a31515">"Richiesta chiarimenti"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>.BCC = <span style="COLOR: #a31515">"giannigiac@tin.it"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>.To = Indirizzi<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>.Body = TextBox1.Text<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess.Save()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess = <span style="COLOR: blue">Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span>Outlk = <span style="COLOR: blue">Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-no-proof: yes" lang="EN-US"> <span style="COLOR: blue">Class</span></span></p> <p class="MsoNormal">Per brevità non voglio privare quanti sono fin qui pervenuti del piacere di constatare le differenze rispetto alla soluzione precedente. Si noti in particolare che ora ho affidato al primo pulsante il compito di riempire la TextBox.<o:p /></p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Conclusioni</strong>. Nei precedenti esempi tutoriali non mi sono minimamente preoccupato di errori che un utente distratto potrebbe compiere, ad esempio invertendo i clic. Quanto alla soluzione precedente potrebbe essere opportunamente ampliata, soprattutto prevedendo opportune selezioni ulteriori prima della spedizione delle circolari. Chi ne ha voglia può farlo – e magari io stesso medesimo, di persona personalmente, un bel dì lo farò.<o:p /></p> <p class="MsoNormal">Quanto alla soluzione con binding “più moderno”, ecco l’indicazione del sullodato Marco Russo:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: #1f497d">credo che il problema sia la mancanza di una classe “nativa” per fare il caricamento di un Csv in una struttura .NET che esponga i servizi di binding necessari.<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: #1f497d">Non ne conosco nello specifico, ma cercando in giro se ne trovano diverse:<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="COLOR: #1f497d"><a href="http://www.codeproject.com/Articles/9258/A-Fast-CSV-Reader">http://www.codeproject.com/Articles/9258/A-Fast-CSV-Reader</a><o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="COLOR: #1f497d"><a href="http://simplecsv.codeplex.com/">http://simplecsv.codeplex.com/</a><o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="COLOR: #1f497d"><a href="http://csv2entity.codeplex.com/">http://csv2entity.codeplex.com/</a></span></strong><span style="COLOR: #1f497d"><o:p /></span></p> <p class="MsoNormal"><o:p> </o:p>Se qualcuno riesce a sfruttare questi preziosi suggerimenti si faccia vivo.<o:p /></p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><a href="mailto:giannigiac@tin.it">giannigiac@tin.it</a><o:p /></strong></p><img src="http://blogs.wpfitalia.it/GianniGiaccaglini/aggbug/98.aspx" width="1" height="1" /> Gianni Giaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/03/05/Circolari-Outlook-con-Excel-Automation-in-due-salse.aspx Mon, 05 Mar 2012 10:44:06 GMT http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/03/05/Circolari-Outlook-con-Excel-Automation-in-due-salse.aspx#feedback 3 http://blogs.wpfitalia.it/GianniGiaccaglini/comments/commentRss/98.aspx Prime prove con Excel Automation http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/02/23/Prime-prove-con-Excel-Automation.aspx <h1 style="BORDER-BOTTOM: #4f81bd 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 4pt; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-element: para-border-div; mso-border-bottom-themecolor: accent1" class="MsoTitle"><font size="6">Prime prove con Excel Automation<o:p /></font></h1> <p class="MsoNormal">Dopo il sottostante articolo dedicato all’utilizzo di (OLE) Automation per gestire messaggi Outlook ho pensato di rivisitare tale tecnologia con Excel. Dico rivisitare perché l’avevo già fatto temporibus illis in ambiente VBA (le macro di Office). Ed ecco qui una serie di test elementari e affetti da rozzezze anche ignobili ma, al di là di queste renzarboresche esternazioni, abbastanza significativi.<o:p /></p> <p class="MsoNormal">Anticipo infatti che, tra l’altro:<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1" class="MsoListParagraphCxSpFirst"><span style="FONT-FAMILY: Symbol; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol"><span style="mso-list: Ignore">·<span style="FONT: 7pt "Times New Roman""> </span></span></span>Si possono creare ex-novo cartelle di lavoro (Workbook) o aprirne di preesistenti sfruttando la potenza del foglio di calcolo nonché – cosa che non ho fatto ma che lascio come non arduo esercizio agl’interessati – lanciare la grafica di Excel magari partendo da dati WPF (o Form);<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1" class="MsoListParagraphCxSpMiddle"><span style="FONT-FAMILY: Symbol; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol"><span style="mso-list: Ignore">·<span style="FONT: 7pt "Times New Roman""> </span></span></span>Si può riutilizzare codice VBA, anche se con qualche adattamento;<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1" class="MsoListParagraphCxSpMiddle"><span style="FONT-FAMILY: Symbol; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol"><span style="mso-list: Ignore">·<span style="FONT: 7pt "Times New Roman""> </span></span></span>Anche i patiti del C#, udite udite!, possono farlo a parte le graffe così care alla gens cancellettofila per il semplice motivo che la sintassi delle proprietà e metodi esposti dalla libreria Excel è identica;<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1" class="MsoListParagraphCxSpLast"><span style="FONT-FAMILY: Symbol; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol"><span style="mso-list: Ignore">·<span style="FONT: 7pt "Times New Roman""> </span></span></span>Per certi versi si emulano i <strong style="mso-bidi-font-weight: normal">VSTO </strong>(Visual Studio Tools per Office) evitando, se non altro, le complicanze di tali pur potenti arnesi (tra il macchinoso deployment) e qualche limite come le funzioni personalizzate che restano affidate… al VBA (nonché, o forse sbaglio?, il supporto parziale a finestre WPF…). <o:p /></p> <p class="MsoNormal">Osservo infine all’ultimo SMAU ho notato una software house produttrice di un noto pacchetto gestionale che supporta fogli Excel. Da quel che ho capito, hanno proprio sfruttato Automation e non VSTO.<o:p /></p> <h2>Le prove pratiche<o:p /></h2> <p class="MsoNormal">Una premessa è doverosa. La proposta che segue, lungi dal costituire un insieme organico, è solo un’accozzaglia di tre semplici esempi tipici e non mi sono minimamente preoccupato di prevenire errori. Pertanto raccomando come Figaro <u>di utilizzare i tre pulsanti uno alla volta per carità e nell’ordine</u>.</p> <p class="MsoNormal">Si crei una griglia Grid di due righe, la prima, più ampia, comprende una grossa <strong style="mso-bidi-font-weight: normal">TextBox1</strong> caratterizzata dalla proprietà <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">AllowDrop=”True” </em></strong>che la rende multiline. Nella seconda riga si hanno tre pulsanti <strong style="mso-bidi-font-weight: normal">Button1</strong>, <strong style="mso-bidi-font-weight: normal">Button2 </strong>e <strong style="mso-bidi-font-weight: normal">Button3</strong>, il cui <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Content</em></strong> è rispettivamente “<strong style="mso-bidi-font-weight: normal">Prima prova</strong>”,“<strong style="mso-bidi-font-weight: normal">Seconda prova</strong>”<strong style="mso-bidi-font-weight: normal"> </strong>e “<strong style="mso-bidi-font-weight: normal">Terza prova</strong>”.<o:p /></p> <p class="MsoNormal">Mi fermo qui, riportando qui di seguito senza superflui commenti la<o:p /></p> <h3><span style="mso-ansi-language: EN-US" lang="EN-US">Struttura XAML<o:p /></span></h3> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">Window</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> x</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">:</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">Class</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="MainWindow"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">xmlns</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml/presentation"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">xmlns</span><span style="COLOR: blue">:</span><span style="COLOR: red">x</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red">Title</span><span style="COLOR: blue">="MainWindow"</span><span style="COLOR: red"> Height</span><span style="COLOR: blue">="350"</span><span style="COLOR: red"> Width</span><span style="COLOR: blue">="525"></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">Grid</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">Grid.RowDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Height</span><span style="COLOR: blue">="250" /></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> /></span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">Grid.RowDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">TextBox</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="129"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> HorizontalAlignment</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="Left"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> Margin</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="12,121,0,0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="TextBox1"</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>VerticalAlignment</span><span style="COLOR: blue">="Top"</span><span style="COLOR: red"> Width</span><span style="COLOR: blue">="487"</span><span style="COLOR: red"> <span style="BACKGROUND: yellow; mso-highlight: yellow">AllowDrop</span></span><span style="BACKGROUND: yellow; COLOR: blue; mso-highlight: yellow">="True"</span><span style="COLOR: blue"> /></span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> Content</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="Prima prova"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> . . . Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="1" </span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">/></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> Content</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="Seconda prova"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> . . . Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="1" /></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> Content</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="Terza prova"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> . . . Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">="1" /></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt">Grid</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt">></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 8pt">Window</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt">></span></p> <p class="MsoNormal">Nella quale le proprietà relative al posizionamento dei pulsanti sono state sostituite da puntini per brevità.</p> <h2>Prima prova su un Workbook una tantum<o:p /></h2> <p class="MsoNormal">Comincio con le righe iniziali del modulo <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">MainWindow.xaml.vb</em></strong>:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: Consolas; COLOR: blue; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">Imports</span><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> Microsoft.Office.Interop.Excel<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US">Class</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"> <span style="COLOR: #2b91af">MainWindow</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Private</span> mioExcel <span style="COLOR: blue">As</span> Microsoft.Office.Interop.Excel.<span style="COLOR: #2b91af">Application</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt">Private</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"> <span style="COLOR: blue">Property</span> Numcelle <span style="COLOR: blue">As</span> <span style="COLOR: blue">Long<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><o:p> </o:p></span></p> <p class="MsoNormal">La direttiva <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Imports</em></strong> funziona, non guasta rammentarlo a distratti & immemori, se e solo se nel progetto si è fissato il riferimento alla libreria Microsoft Excel 14.0 (o 12.0 se il nostro PC ospita l’edizione precedente). Quindi la classe <strong style="mso-bidi-font-weight: normal">MainWindow </strong>esordisce con variabili comunitarie, la più importante essendo <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">mioExcel</em></strong> che ci evita nel seguito di ricorrere alla chilometrica <em style="mso-bidi-font-style: normal">Microsoft.Office.... </em>eccetera eccetera.<o:p /></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #b6dde8; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #b6dde8; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>. Nel seguito comunque non può essere evitata la noia della continua anteposizione di <em style="mso-bidi-font-style: normal">mioExcel, </em>che nel mondo VBA viene sottinteso.<o:p /></p> </div> <p class="MsoNormal">Il codice VB del primo pulsante è riportato qui sotto.<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US">Private</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"> <span style="COLOR: blue">Sub</span> Button1_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> <span style="COLOR: blue">Object</span>, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.<span style="COLOR: #2b91af">RoutedEventArgs</span>) <span style="COLOR: blue">Handles</span> Button1.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Static</span> i <span style="COLOR: blue">As</span> <span style="COLOR: blue">Integer</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> mioExcel <span style="COLOR: blue">Is</span> <span style="COLOR: blue">Nothing</span> <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel = <span style="COLOR: blue">New</span> Microsoft.Office.Interop.Excel.<span style="COLOR: #2b91af">Application</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Visible = <span style="COLOR: blue">True</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Workbooks.Add()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Range(<span style="COLOR: #a31515">"A1:C4"</span>).Select()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span>mioExcel.ActiveCell.Value = <span style="COLOR: #a31515">"Buongiorno a tutti!"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Else</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Dimmi = InputBox(<span style="COLOR: #a31515">"Come ti chiami?"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' MessageBox.Show(Dimmi) ' Servito per debug</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>TextBox1.Text = </span><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">+= Dimmi & vbLf </span><span style="FONT-FAMILY: Consolas; COLOR: green; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US">' =Dimmi (variante)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Range(<span style="COLOR: #a31515">"A1"</span>).Offset(i).Value = Dimmi <span style="COLOR: #00b050">' TextBox1.Text (variante)</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> i < 5 <span style="COLOR: blue">Then</span> <span style="COLOR: blue">Exit Sub</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> <span style="COLOR: #2b91af">MessageBox</span>.Show(<span style="COLOR: #a31515">"Fine lavoro?"</span>, <span style="COLOR: #a31515">""</span>, _<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: #2b91af">MessageBoxButton</span>.YesNo) = <span style="COLOR: #2b91af">MessageBoxResult</span>.Yes <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.DisplayAlerts = <span style="COLOR: blue">False</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.ActiveWorkbook.Close()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Quit() <span style="COLOR: #00b050">' Abbandona Excel<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel = <span style="COLOR: blue">Nothing</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"> <span style="COLOR: blue">Sub</span></span></p> <p class="MsoNormal">Va subito detto che l’istruzione<span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><br /> </span><span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">MioExcel = <span style="COLOR: blue">New</span> Microsoft.Office.Interop.Excel.<span style="COLOR: #2b91af">Application<o:p /></span></span></p> <p class="MsoNormal">crea una nuova istanza di Excel che, a differenza di quanto accade nell’uso normale, è invisibile e priva della cartella default. Il clic sul Button1 si preoccupa di visualizzare Excel e di aggiungervi un Workbook, col metodo <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Add </em></strong>applicato all’insieme <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Workbooks</em></strong> (inizialmente vuoto).<o:p /></p> <p class="MsoNormal">Delle altre istruzioni cito solo<br /> <span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">mioExcel.Range(<span style="COLOR: #a31515">"A1"</span>).Offset(i).Value = Dimmi<o:p /></span></p> <p class="MsoNormal">che sfrutta celle sfalsata mano a mano di un valore <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">i</em></strong> (<em style="mso-bidi-font-style: normal">.Offset(i)</em>) rispetto alla cella iniziale A1 per inserirvi i successivi valori immessi dall’utente con la vetusta InputBox (chiedo venia ai puristi) mentre in parallelo questi sono infilati in linee successive della casella di testo.<o:p /></p> <p class="MsoNormal">Varianti di questo banalissimo esercizio, come il trasferimento di una serie di dati presenti a vario titolo nella Window WPF, sono lasciate al lettore. Mi limito a sottolineare l’importanza delle ultime istruzioni che dovrebbero chiudere ogni sessione Automation, atte a chiudere Excel e a liberare l’impegno della variabile specifica mioExcel. Si noti infine che la proprietà <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">DisplayAlerts = False </em></strong>evita il solito invito a salvare le modifiche prima di chiudere questo file di sciocchezzuole estemporaneo (dal nome default Cartel1) che non andrà su disco.<o:p /></p> <h2>Seconda prova su un Workbook una tantum con formule al volo<o:p /></h2> <p class="MsoNormal">Si tratta di una variante più complessa del caso precedente. Anche qui le azioni si esercitano su un foglio nuovo, vuoto, che la routine non solo riempie di dati prelevati da semplici Vettori – <em style="mso-bidi-font-style: normal">Intest, Codici, Prodotti </em>e <em style="mso-bidi-font-style: normal">Prezzi </em>– ma anche di formule semplici ma inserite programmaticamente.<o:p /></p> <p class="MsoNormal">Inoltre l’istruzione<br /> <span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 9.5pt">mioExcel.Visible = <span style="COLOR: blue">True<o:p /></span></span></p> <p class="MsoNormal">viene lanciata alla fine, in guisa tale che soltanto allora l’utente vede non di nascosto il risultato del lavoro in background (con qualche vantaggio velocifero). <o:p /></p> <p class="MsoNormal">Riporto senza indugi qui di seguito il codice V B del secondo pulsante.<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US">Private</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"> <span style="COLOR: blue">Sub</span> Button2_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.<span style="COLOR: #2b91af">Object</span>, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.<span style="COLOR: #2b91af">RoutedEventArgs</span>) <span style="COLOR: blue">Handles</span> Button2.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"> Intest = {<span style="COLOR: #a31515">"COD"</span>, <span style="COLOR: #a31515">"Prodotto"</span>, <span style="COLOR: #a31515">"Quantità"</span>, <span style="COLOR: #a31515">"Prezzo"</span>, <span style="COLOR: #a31515">"Importo"</span>}<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Codici = {<span style="COLOR: #a31515">"AA"</span>, <span style="COLOR: #a31515">"BB"</span>, <span style="COLOR: #a31515">"CC"</span>, <span style="COLOR: #a31515">"DD"</span>, <span style="COLOR: #a31515">"EE"</span>, <span style="COLOR: #a31515">"FF"</span>}<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Prodotti = {<span style="COLOR: #a31515">"Mele"</span>, <span style="COLOR: #a31515">"Pere"</span>, <span style="COLOR: #a31515">"Susine"</span>, <span style="COLOR: #a31515">"Pesche"</span>, <span style="COLOR: #a31515">"Arance"</span>, <span style="COLOR: #a31515">"Banane"</span>}<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"> Prezzi = {3.5, 5, 4, 4.5, 3.2, 3}<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> mioExcel <span style="COLOR: blue">Is</span> <span style="COLOR: blue">Nothing</span> <span style="COLOR: blue">Then</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel = <span style="COLOR: blue">New</span> Microsoft.Office.Interop.Excel.<span style="COLOR: #2b91af">Application</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' mioExcel.Visible = True => Le operazioni si svolgono nell'ombra!</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US">mioExcel.Workbooks.Add()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> i = 0 <span style="COLOR: blue">To</span> Intest.Length - 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Range(<span style="COLOR: #a31515">"A1"</span>)(1, i + 1).Value = Intest(i)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> i = 0 <span style="COLOR: blue">To</span> Codici.Length - 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> mioExcel.Range(<span style="COLOR: #a31515">"A2"</span>)(i + 1)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt">.Value = Codici(i)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span>.offset(0, 1).Value = Prodotti(i)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US">.Offset(0, 3).Value = Prezzi(i)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">For</span> i = 0 <span style="COLOR: blue">To</span> Codici.Length – 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: #00b050">' Chiedi all’utente ripetutamente i prezzi dei vari frutti<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Quant = <span style="COLOR: blue">CDbl</span>(InputBox(<span style="COLOR: #a31515">"Quantità di "</span> & Prodotti(i) & <span style="COLOR: #a31515">"?"</span>))<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US">mioExcel.Range(<span style="COLOR: #a31515">"C2"</span>)(i + 1).value = Quant<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Numcelle = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> mioExcel.Range(<span style="COLOR: #a31515">"A2"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><strong style="mso-bidi-font-weight: normal"><span style="BACKGROUND: yellow; mso-highlight: yellow">Numcelle = mioExcel.Range(.Cells(1), .End(<span style="COLOR: #2b91af">XlDirection</span>.xlDown)).Count</span><o:p /></strong></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> mioExcel.Range(<span style="COLOR: #a31515">"E2"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"> ZonaFormule = mioExcel.Range(.Cells(1), .Cells(Numcelle))<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="BACKGROUND: yellow; mso-highlight: yellow">ZonaFormule.FormulaR1C1 = <span style="COLOR: #a31515">"=RC[-2]*RC[-1]"</span></span><strong style="mso-bidi-font-weight: normal"><o:p /></strong></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"> <span style="COLOR: blue">With</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Visible = <span style="COLOR: blue">True</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel = <span style="COLOR: blue">Nothing</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.5pt" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-bidi-font-size: 9.5pt"><o:p> </o:p></span></p> <p class="MsoNormal">L’effetto che fa, omettendo le intestazioni di colonna (A, B, C, ecc.) e di riga (1, 2, 3, ecc.) è del tipo seguente:<o:p /></p> <table style="WIDTH: 240pt; BORDER-COLLAPSE: collapse; MARGIN-LEFT: 2.75pt; mso-padding-alt: 0cm 3.5pt 0cm 3.5pt; mso-yfti-tbllook: 1184" border="0" cellspacing="0" cellpadding="0" width="320" class="MsoNormalTable"> <tbody> <tr style="HEIGHT: 15pt; mso-yfti-irow: 0; mso-yfti-firstrow: yes"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">COD<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Prodotto<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Quantità<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Prezzo<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Importo<o:p /></span></p> </td> </tr> <tr style="HEIGHT: 15pt; mso-yfti-irow: 1"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">AA<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Mele<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">3<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">3,5<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">10,5<o:p /></span></p> </td> </tr> <tr style="HEIGHT: 15pt; mso-yfti-irow: 2"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">BB<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Pere<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">5<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">5<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">25<o:p /></span></p> </td> </tr> <tr style="HEIGHT: 15pt; mso-yfti-irow: 3"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">CC<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Susine<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">6<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">4<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">24<o:p /></span></p> </td> </tr> <tr style="HEIGHT: 15pt; mso-yfti-irow: 4"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">DD<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Pesche<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">7<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">4,5<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">31,5<o:p /></span></p> </td> </tr> <tr style="HEIGHT: 15pt; mso-yfti-irow: 5"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">EE<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Arance<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">2<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">3,2<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">6,4<o:p /></span></p> </td> </tr> <tr style="HEIGHT: 15pt; mso-yfti-irow: 6; mso-yfti-lastrow: yes"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">FF<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Banane<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">3<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">3<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 48pt; PADDING-RIGHT: 3.5pt; HEIGHT: 15pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="64" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 9pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-size: 11.0pt; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">9<o:p /></span></p> </td> </tr> </tbody> </table> <p class="MsoNormal"><o:p> </o:p>Qui parlo a chi ha un minimo di familiarità con Excel e, anche per mia innata indolenza, mi limito a dire che le istruzioni più pregiate sono in grassetto e marcate in giallo. La prima individua il numero <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">NumCell</em></strong> di celle contigue da A1 in giù (*) mentre la seconda inserisce al volo, secondo il formato RC, le formule nell’intervallo di destra da E2 in giù, ossia di fatto (e anteponendo con qualche arbitrio i riferimenti all'"=" delleformule):<br /> E2=C2*D2<br /> E3=C3*D3<br /> E4=C4*D4<br /> ……<br style="mso-special-character: line-break" /> <br style="mso-special-character: line-break" /> <o:p /></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #b6dde8; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #b6dde8; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>. I curiosi e spericolati saranno tentati di sperimentare il cut & paste da celle Excel a un contenitore WPF come con una semplice TextBox. Constateranno che anche a mano è possibile, ma <u>solo sulla prima cella dell’intervallo preselezionato</u>. Chi trova soluzioni più potenti si faccia vivo…<o:p /></p> </div> <h2>Terza prova con file preesistente<o:p /></h2> <p class="MsoNormal">Stavolta si agisce su un file Excel presente già sul disco e di tipo un po’ particolare.<o:p /></p> <h3>Codice VB del terzo pulsante<o:p /></h3> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US">Private</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"> <span style="COLOR: blue">Sub</span> Button3_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.<span style="COLOR: #2b91af">Object</span>, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.<span style="COLOR: #2b91af">RoutedEventArgs</span>) <span style="COLOR: blue">Handles</span> Button3.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> mioExcel <span style="COLOR: blue">Is</span> <span style="COLOR: blue">Nothing</span> <span style="COLOR: blue">Then</span> mioExcel = <span style="COLOR: blue">New</span> Microsoft.Office.Interop.Excel.<span style="COLOR: #2b91af">Application</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Workbooks.Open(Filename:=<span style="COLOR: #a31515">"C:\FormuleAlVolo.xlsx"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.0pt">mioExcel.Visible = <span style="COLOR: blue">True</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.0pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' MessageBox.Show("Adesso copio la riga formule in basso")</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.0pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"> Nr <span style="COLOR: blue">As</span> <span style="COLOR: blue">Integer</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="BACKGROUND: yellow; COLOR: blue; mso-highlight: yellow">With</span><span style="BACKGROUND: yellow; mso-highlight: yellow"> mioExcel.Range(<span style="COLOR: #a31515">"A2"</span>)<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; BACKGROUND: yellow; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-highlight: yellow; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Nr = mioExcel.Range(.Cells(1), .End(<span style="COLOR: #2b91af">XlDirection</span>.xlDown)).Count<o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; BACKGROUND: yellow; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-highlight: yellow; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With</span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="BACKGROUND: yellow; COLOR: blue; mso-highlight: yellow">With</span><span style="BACKGROUND: yellow; mso-highlight: yellow"> mioExcel.Range(<span style="COLOR: #a31515">"RigaFormule"</span>)<o:p /></span></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; BACKGROUND: yellow; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-highlight: yellow; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Copy(mioExcel.Range(.Cells(2, 1), .Cells(Nr, 1)))<o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; BACKGROUND: yellow; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-highlight: yellow; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With</span></span></strong><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"><o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel = <span style="COLOR: blue">Nothing</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-bidi-font-size: 9.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> </span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US">Sub<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-ansi-language: EN-US" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal">In questo caso il metodo <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Open</em></strong> dell’insieme <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">WorkBooks</em></strong> apre un file <strong style="mso-bidi-font-weight: normal">FormuleAlVolo.xlsx</strong> e si osservi subito che <u>l’estensione xlsx lo caratterizza come archivio privo di macro</u>. Esso all’apertura si presenta, al netto di intestazioni di righe e colonne, come segue:<o:p /></p> <table style="WIDTH: 289pt; BORDER-COLLAPSE: collapse; MARGIN-LEFT: 2.75pt; mso-padding-alt: 0cm 3.5pt 0cm 3.5pt; mso-yfti-tbllook: 1184" border="0" cellspacing="0" cellpadding="0" width="385" class="MsoNormalTable"> <tbody> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 0; mso-yfti-firstrow: yes"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">COD<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="57" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Prodotto<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 41pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="55" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Quantità<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 32pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="43" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Prezzo<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Sconto<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 39pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="52" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Importo<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Sconto<o:p /></span></strong></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 35pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt" valign="bottom" width="47" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Netto<o:p /></span></strong></p> </td> </tr> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 1"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">AA<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="57" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Mele<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 41pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="55" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>10,00 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 32pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="43" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>3,50 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">5%<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 39pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #c5d9f1; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="52" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><a name="RANGE!F2:H2"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: "Times New Roman"; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>35,00 </span></a><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #c5d9f1; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>1,75 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 35pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #c5d9f1; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="47" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>33,00 <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 2"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">BB<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="57" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Pere<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 41pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="55" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>12,00 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 32pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="43" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>5,00 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">10%<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 39pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="52" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 35pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="47" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 3"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">CC<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="57" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Susine<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 41pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="55" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>5,00 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 32pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="43" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>4,00 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">2%<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 39pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="52" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 35pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="47" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 4"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">DD<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="57" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Pesche<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 41pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="55" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>4,00 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 32pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="43" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>4,50 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">5%<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 39pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="52" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 35pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="47" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 5"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">EE<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="57" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Arance<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 41pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="55" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>3,00 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 32pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="43" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>3,20 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">10%<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 39pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="52" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 35pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="47" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 12.75pt; mso-yfti-irow: 6; mso-yfti-lastrow: yes"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">FF<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 43pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="57" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">Banane<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 41pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="55" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>2,00 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 32pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="43" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>3,00 <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="TEXT-ALIGN: right; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="right"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT">5%<o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 39pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="52" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 33pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="44" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 35pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.75pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-right-alt: solid windowtext .5pt" valign="bottom" width="47" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-bidi-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-ascii-font-family: Calibri; mso-hansi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> </tbody> </table> <p class="MsoNormal"><o:p> </o:p></p> <p class="MsoNormal">Le celle della zona F2:H2 cui è stato dato il nome “<em style="mso-bidi-font-style: normal">RigaFormule</em>” contengono le formule seguenti (con l'anteposizione arbitraria vista sopra):<br /> F2=C2*D2<br /> G2=F2*E2<br /> H2=ARROTONDA(F2-G2;0)<o:p /></p> <p class="MsoNormal">Palesemente esse danno, nell’ordine, l’importo, lo sconto e il netto, con arrotondamento della loro differenza. Le istruzioni sopra evidenziate sono varianti della copia di formule ma di un certo pregio, con particolare riguardo per il metodo <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Copy </em></strong>con argomento <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Destination </em></strong>che esegue l’operazione anche “a distanza”, cioè qualunque sia la cella attiva corrente e senza dover preselezionare l’origine come nelle operazioni manuali.<o:p /></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #b6dde8; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #b6dde8; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="BACKGROUND: #b6dde8; mso-shading-themecolor: accent5; mso-shading-themetint: 102">Nota</span></strong><span style="BACKGROUND: #b6dde8; mso-shading-themecolor: accent5; mso-shading-themetint: 102">. Chi ha pratica di VBA noterà poi che la vecchia sintassi <em style="mso-bidi-font-style: normal"><Origine>.Copy<span style="mso-spacerun: yes"> </span><Destinazione> </em>in ambito .NET</span> diventa <em style="mso-bidi-font-style: normal"><Origine>.Copy(<Destinazione>) </em>con tanto di parentesi (comunque inserite d’ufficio, as usual).<o:p /></p> </div> <p class="MsoNormal">Un’ultima considerazione è sul fatto che, come testé anticipato, il codice .NET agisce tranquillamente pure con archivi che Microsoft ha decretato come insensibili alle macro in contrapposizione ai tipi <strong>.xlm </strong>(distinzione che odio nata dal terrorismo dei virus-macro).<o:p /></p> <p class="MsoNormal">Ovviamente dopo queste routine la classe <strong style="mso-bidi-font-weight: normal">MainWindow</strong> termina con<strong style="mso-bidi-font-weight: normal"><o:p /></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-bidi-font-size: 9.0pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.0pt"> <span style="COLOR: blue">Class</span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 9.0pt"><o:p> </o:p></span></p> <h2><font face="Arial">Ultima prova: un possibile binding artigianale<o:p /></font></h2> <p class="MsoNormal"><font face="Arial"><font size="2">Quest’ultima chicca un po’ avanzata si propone di pescare dati da celle di un foglio Excel il cui layout è noto. Per sperimentarla si crei un quarto pulsante etichettato per eccesso di fantasia “<strong style="mso-bidi-font-weight: normal">Quarta prova</strong>”. Lo specifico evento Click dovrà agire sul file della terza prova trasferendo in due vettori i vari prodotti e i relativi importi netti. Il codice rispecchia in gran parte quello della prova precedente , con evidenziazione delle varianti del caso:<o:p /></font></font></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">Private</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: blue">Sub</span> Button4_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.<span style="COLOR: #2b91af">Object</span>, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.<span style="COLOR: #2b91af">RoutedEventArgs</span>) <span style="COLOR: blue">Handles</span> Button4.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> mioExcel <span style="COLOR: blue">Is</span> <span style="COLOR: blue">Nothing</span> <span style="COLOR: blue">Then</span> mioExcel = <span style="COLOR: blue">New</span> Microsoft.Office.Interop.Excel.<span style="COLOR: #2b91af">Application</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel.Workbooks.Open(Filename:=<span style="COLOR: #a31515">"C:\FormuleAlVolo.xlsx"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span></strong><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; BACKGROUND: yellow; COLOR: green; FONT-SIZE: 8pt; mso-highlight: yellow">' mioExcel.Visible = True ' Eliminato di proposito</span></strong><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt"><o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"> Nr <span style="COLOR: blue">As</span> <span style="COLOR: blue">Integer</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> mioExcel.Range(<span style="COLOR: #a31515">"A2"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>Nr = mioExcel.Range(.Cells(1), .End(<span style="COLOR: #2b91af">XlDirection</span>.xlDown)).Count<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> mioExcel.Range(<span style="COLOR: #a31515">"RigaFormule"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Copy(mioExcel.Range(.Cells(2, 1), .Cells(Nr, 1)))<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt"> <span style="COLOR: blue">With</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Binding artigiano dati che interessano --> due vettori</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> VettFrutti() <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> VettNetti() <span style="COLOR: blue">As</span> <span style="COLOR: blue">Double</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">ReDim</span> VettFrutti(Nr) : <span style="COLOR: blue">ReDim</span> VettNetti(Nr)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; BACKGROUND: yellow; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-highlight: yellow" lang="EN-US">For</span><span style="FONT-FAMILY: "Courier New"; BACKGROUND: yellow; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-highlight: yellow" lang="EN-US"> i = 0 <span style="COLOR: blue">To</span> Nr - 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; BACKGROUND: yellow; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-highlight: yellow" lang="EN-US"><span style="mso-spacerun: yes"> </span>VettFrutti(i) = mioExcel.Range(<span style="COLOR: #a31515">"B2"</span>)(i + 1).value<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; BACKGROUND: yellow; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-highlight: yellow" lang="EN-US"><span style="mso-spacerun: yes"> </span>VettNetti(i) = mioExcel.Range(<span style="COLOR: #a31515">"H2"</span>)(i + 1).value<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; BACKGROUND: yellow; FONT-SIZE: 8pt; mso-ansi-language: EN-US; mso-highlight: yellow" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Next</span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> mioExcel<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.DisplayAlerts = <span style="COLOR: blue">False</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.ActiveWorkbook.Close()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Quit()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>mioExcel = <span style="COLOR: blue">Nothing</span><strong style="mso-bidi-font-weight: normal"><o:p /></strong></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 8pt; mso-ansi-language: EN-US" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal"><font face="Arial"><font size="2">Stavolta si rinuncia alla visibilità del file e, al termine, si chiudono senza complimenti il workbook ed Excel. Quanto a <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">VettFrutti </em></strong>e <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">VettNetti </em></strong>essi conterranno le varie mele, pere, susine ecc. e gl’importi netti relativi di colonna H. Va da sé che tali dati in un’applicazione seria serviranno per ulteriori elaborazioni.<o:p /></font></font></p> <p class="MsoNormal"><font face="Arial"><font size="2">Non aggiungo altro, sicuro che i buoni intenditori troveranno alternative di loro gusto, come il ricorso a liste e simili o l’inserimento dei dati “bindati” così alla buona direttamente in controlli tipo ListBox e quant’altro.</font></font></p> <p class="MsoNormal"><font face="Arial"><font size="2">Piuttosto farei due <strong>considerazioni finali</strong> derivanti dal fatto che <u>questi interventi potrebbero scandalizzare i più esperti e amanti delle moderne tecniche <strong>binding</strong></u> ben supportate da WPF.</font></font></p> <p class="MsoNormal">- Il binding con Excel è una sfida al limite dell'impossibile, trattandosi di fogli multipli e sovente assai poco strutturati (formule, celle sparpagliate, a volte tabelle sì ma collocate su un medesimo foglio di lavoro. In passato ho dato un contributo piuttosto advanced sul sito VB Tips&Tricks ottenendo un <strong>Visore di fogli Excel </strong>anche "sparpagliati" con un Form che li attinge sfruttando il formato Open XML. A parte il fatto che quest'ultimo NON esiste coi tradizionali e tuttora molto comuni archivi <strong>.xls </strong><u>anche questo metodo fallisce in presenza di macro che generano dati e formule "al volo"</u> come nell'esempietto mostrato sopra.</p> <p class="MsoNormal">- Piuttosto sarebbe interessante il <u>know how necessario per il binding da un eventuale foglio Excel strutturato</u>, ovvero formato esclusivamente da una tabella o da un archivio di formato tradizionale come il Comma Separated Values (.csv) o l'analogo che sfrutta delle tabulazioni come separatore di campi. E l'adozione del controllo <strong>DataGrid</strong> sarebbe benvenuta...</p> <p class="MsoNormal" /><hr /> <p class="MsoNormal"><strong>Nota</strong>. Al sottoscritto piacerebbe farlo per la gestione di circolari Outlook (v. post precedente), pertendo da archivi relativi ai <strong>contatti</strong>, che Microsoft Outlook esporta, guardacaso, solo nei formati appena detti...</p> <p class="MsoNormal" /><hr /> <p class="MsoNormal">La letteratura abbonda di esempi, complessi ma comunque ben descritti, ma ahimè tutti relativi a database Access o Sql Server. Sulla carta con archivi più elementari, come il dannato csv, il binding dovrebbe essere più semplice. Chi sa parli, ovvero scriva un tutorial ad hoc per i comuni mortali.</p> <p class="MsoNormal"><span style="FONT-FAMILY: Consolas; FONT-SIZE: 9.5pt"><o:p><a href="mailto:giannigiac@tin.it"><strong><font face="Verdana">giannigiac@tin.it</font></strong></a></o:p></span></p><img src="http://blogs.wpfitalia.it/GianniGiaccaglini/aggbug/97.aspx" width="1" height="1" /> Gianni Giaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/02/23/Prime-prove-con-Excel-Automation.aspx Thu, 23 Feb 2012 17:51:28 GMT http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/02/23/Prime-prove-con-Excel-Automation.aspx#feedback 3 http://blogs.wpfitalia.it/GianniGiaccaglini/comments/commentRss/97.aspx Circolari Outlook con OLE Automation - variante... http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/02/02/Circolari-Outlook-con-OLE-Automation-variante.aspx <h1>Variante della (pen)ultim’ora</h1> <p class="MsoNormal">Mi riferisco al post precedente che ovviamente dovrà essere letto prima di questo.</p> <p class="MsoNormal">Nottetempo mi è venuta in mente un possibile modifica volta, perlomeno, a evitare il pasticcio principale, pur mantenendo l'impianto delle tre caselle di testo relative agli indirizzi email, ai nomi & cognomi e al messaggio da spedire.</p> <p class="MsoNormal">Si tratta di utilizzare come separatore di nomi e indirizzi il cancelletto (#) nelle prime due. Per cui nella prima si avrà “<a href="mailto:pippo@x.it#pluto@y.com#paperino@z.com"><span style="COLOR: windowtext; TEXT-DECORATION: none; text-underline: none">pippo@x.it#pluto@y.com#paperino@z.com</span></a>”. Analogamente nella seconda. Quindi nella Sub dell’evento <em style="mso-bidi-font-style: normal">New</em> si provvede a sostituire questi # con:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>TextBox1.Text = TextBox1.Text.Replace(<span style="COLOR: #a31515">"#"</span>, Chr(13))<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>TextBox2.Text = TextBox2.Text.Replace(<span style="COLOR: #a31515">"#"</span>, Chr(13))</span></p> <p class="MsoNormal">che li sostituisce con degli a-capo (così oltretutto l’utente non li vede). Questo banale artifizio elimina l’inconveniente dei cognomi con trattino, come Rossi-Doria e simili.<o:p /></p> <p class="MsoNormal">Quanto alla terza casella, anziché “#NOMI#” conviene mettere “{NOMI }”. <o:p /></p> <p class="MsoNormal">Se si è capito l’antifona, il coro dei buoni intenditori cui mi rivolgo, all’unisono o quasi, canterà per approvarla la seguente modifica della routine d’evento Click del pulsante <strong style="mso-bidi-font-weight: normal">Spedisci</strong>:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">Private</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> <span style="COLOR: blue">Sub</span> Button2_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.<span style="COLOR: #2b91af">Object</span>, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.<span style="COLOR: #2b91af">RoutedEventArgs</span>) <span style="COLOR: blue">Handles</span> Button2.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>Indirizzi = TextBox1.Text.Replace(Chr(13), <span style="COLOR: #a31515">";"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: green; FONT-SIZE: 9.5pt">' NB - non occorre togliere l'eventuale ultimo ; che Outlook ignora automaticamente</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">' Imposta Outlook e un suo oggetto Mailitem</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"> Outlk <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> Outlook.<span style="COLOR: #2b91af">Application</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> MioMess <span style="COLOR: blue">As</span> Outlook.<span style="COLOR: #2b91af">MailItem</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>Nomi = <span style="COLOR: #a31515">""</span> & vbCrLf & TextBox2.Text & vbCrLf<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Corpo = TextBox3.Text.Replace(<span style="COLOR: #a31515">"{NOMI}"</span>, Nomi)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess = Outlk.CreateItem(Outlook.<span style="COLOR: #2b91af">OlItemType</span>.olMailItem)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> MioMess<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Subject = <span style="COLOR: #a31515">"Richiesta chiarimenti"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.BCC = <span style="COLOR: #a31515">"giannigiac@tin.it"</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.To = Indirizzi<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>.Body = Corpo<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess.Save()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span>MioMess = <span style="COLOR: blue">Nothing</span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt">Outlk = <span style="COLOR: blue">Nothing</span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt"><span style="COLOR: blue" /></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9.5pt">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9.5pt"> <span style="COLOR: blue">Sub</span></span></p> <p class="MsoNormal">S.E.&O.<o:p /></p> <p class="MsoNormal">E che fare del primo pulsante? Con la semplificazione introdotta la missione espressa da <strong style="mso-bidi-font-weight: normal">Elenco indirizzi</strong> converrà che sia cambiata in qualcosa come <strong style="mso-bidi-font-weight: normal">Controllo coerenza </strong>onde verificare, come minimo, che il numero dei nomi e quello degli indirizzi siano identici. Lascio a chi ci tiene questo compitino.<o:p /></p> <p class="MsoNormal"><strong>Gianni Giaccaglini</strong><br /> <em>@giannigiac@tin.it<o:p /></em></p><img src="http://blogs.wpfitalia.it/GianniGiaccaglini/aggbug/96.aspx" width="1" height="1" /> Gianni Giaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/02/02/Circolari-Outlook-con-OLE-Automation-variante.aspx Thu, 02 Feb 2012 10:53:37 GMT http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/02/02/Circolari-Outlook-con-OLE-Automation-variante.aspx#feedback 5 http://blogs.wpfitalia.it/GianniGiaccaglini/comments/commentRss/96.aspx Circolari Outlook con OLE Automation, primi passi http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/01/31/Circolari-Outlook-con-OLE-Automation-primi-passi.aspx <div style="BORDER-BOTTOM: #4f81bd 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 4pt; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-element: para-border-div; mso-border-bottom-themecolor: accent1"> <p class="MsoTitle"><span style="FONT-SIZE: 20pt; mso-bidi-font-size: 26.0pt">Circolari Outlook con OLE Automation, primi passi<o:p /></span></p> </div> <h1 style="TEXT-ALIGN: justify">Preliminari<o:p /></h1> <p class="MsoNormal">Questo esempietto didattico sfrutta il meccanismo <strong style="mso-bidi-font-weight: normal">OLE Automation</strong>, da tempo detto <strong style="mso-bidi-font-weight: normal">Automation</strong> tout court, per consentire l’invio di circolari Outlook a una lista di nominativi e relativi indirizzi email.<o:p /></p> <p class="MsoNormal">Per partire si debbono fissare i riferimenti alla specifica libreria. In soldoni:<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1" class="MsoListParagraphCxSpFirst"><span style="mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin"><span style="mso-list: Ignore">1.<span style="FONT: 7pt "Times New Roman""> </span></span></span>Dal menu <strong style="mso-bidi-font-weight: normal">Progetti </strong>scegliere <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Aggiungi riferimento...</em></strong>;<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1" class="MsoListParagraphCxSpMiddle"><span style="mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin"><span style="mso-list: Ignore">2.<span style="FONT: 7pt "Times New Roman""> </span></span></span>Cliccare sulla pagina <strong style="mso-bidi-font-weight: normal">COM </strong>e dall’elenco scegliere la libreria <em style="mso-bidi-font-style: normal">Microsoft Outlook 14.0 </em>(12.0 se si dispone di Office XP) concludendo con <strong style="mso-bidi-font-weight: normal">OK</strong>;<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1" class="MsoListParagraphCxSpLast"><span style="mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin"><span style="mso-list: Ignore">3.<span style="FONT: 7pt "Times New Roman""> </span></span></span>Nella finestra <strong style="mso-bidi-font-weight: normal">MainWindow </strong>(<strong style="mso-bidi-font-weight: normal">Window1 </strong>in Visual Studio 2008) inserire a livello Dichiarazioni la seguente direttiva:<br /> <span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 10pt; mso-no-proof: yes">Imports</span><span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-no-proof: yes"> Microsoft.Office.Interop</span>.<o:p /></p> <p class="MsoNormal">L’ultima mossa ha il duplice scopo di rendere disponibile la libreria di un membro della famiglia Microsoft Office (altrimenti i riferimenti sopra fissati non sarebbero concretamente operativi) nonché di abbreviare la sintassi delle istruzioni specifiche. Ne anticipo un esempio:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Outlk <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> Outlook.Application<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><o:p> </o:p></span></p> <p class="MsoNormal">Che, in termini completi sarebbe la kilometrica<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Dim</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Outlk <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> Microsoft.Office.Interop</span><span style="FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">.</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Outlook.Application<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><o:p> </o:p></span></p> <p class="MsoNormal"><span style="mso-no-proof: yes">Successivamente si crei una finestra WPF dall’aspetto qui sotto grossolanamente riprodotto. <o:p /></span></p> <div align="center"> <table style="WIDTH: 188.25pt; BORDER-COLLAPSE: collapse; MARGIN-LEFT: -16.75pt; mso-padding-alt: 0cm 3.5pt 0cm 3.5pt; mso-yfti-tbllook: 1184" border="0" cellspacing="0" cellpadding="0" width="251" class="MsoNormalTable"> <tbody> <tr style="HEIGHT: 13.4pt; mso-yfti-irow: 0; mso-yfti-firstrow: yes"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 188.25pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #215967; HEIGHT: 13.4pt; BORDER-TOP: #215967 1pt solid; BORDER-RIGHT: #215967 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt; mso-border-alt: solid #215967 1.0pt" valign="bottom" width="251" colspan="3" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong><span style="COLOR: white; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"><span style="mso-spacerun: yes"> </span>Window1<o:p /></span></strong></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 1"> <td style="BORDER-BOTTOM: black 1pt solid; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid black .5pt; mso-border-left-alt: solid #215967 1.0pt; mso-border-right-alt: solid windowtext .5pt" valign="top" rowspan="7" width="111"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">pippo@x.it pluto@y.com<br /> paperino@z.com<o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: black 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 95.8pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: #215967 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: solid black .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-right-alt: solid #215967 1.0pt" valign="top" rowspan="15" width="128"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">GentiliSignori#NOMI#<br /> Distinti saluti<o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 2"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 3"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 4"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 5"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 6"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 3pt; mso-yfti-irow: 7"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 3pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 8"> <td style="BORDER-BOTTOM: medium none; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm" valign="bottom" width="111" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 9"> <td style="BORDER-BOTTOM: black 1pt solid; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-bottom-alt: black .5pt; mso-border-left-alt: #215967 1.0pt; mso-border-right-alt: windowtext .5pt; mso-border-top-alt: windowtext .5pt; mso-border-style-alt: solid" valign="top" rowspan="7" width="111"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; FONT-SIZE: 10pt; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Pippo Rossi-Pluto Bianchi-Paperino Verdi<o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 10"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 11"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 12"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 13"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 14"> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 15"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-bottom-alt: solid windowtext .5pt" valign="bottom" width="13" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 9.35pt; mso-yfti-irow: 16"> <td style="BORDER-BOTTOM: medium none; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm" valign="bottom" width="111" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 95.8pt; PADDING-RIGHT: 3.5pt; HEIGHT: 9.35pt; BORDER-TOP: medium none; BORDER-RIGHT: #215967 1pt solid; PADDING-TOP: 0cm" valign="bottom" width="128" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> <tr style="HEIGHT: 12.7pt; mso-yfti-irow: 17"> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #ccc0da; HEIGHT: 12.7pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm" width="111" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><strong><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Elenco indirizzi<o:p /></span></strong></p> </td> <td style="PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 12.7pt; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> </td> <td style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 95.8pt; PADDING-RIGHT: 3.5pt; BACKGROUND: #ccc0da; HEIGHT: 12.7pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: #215967 1pt solid; PADDING-TOP: 0cm" width="128" nowrap="nowrap"> <p style="TEXT-ALIGN: center; LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal" align="center"><strong><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT">Spedisci<o:p /></span></strong></p> </td> </tr> <tr style="HEIGHT: 7.75pt; mso-yfti-irow: 18; mso-yfti-lastrow: yes"> <td style="BORDER-BOTTOM: #215967 1pt solid; BORDER-LEFT: #215967 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 82.95pt; PADDING-RIGHT: 3.5pt; HEIGHT: 7.75pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm" valign="bottom" width="111" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: #215967 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 9.5pt; PADDING-RIGHT: 3.5pt; HEIGHT: 7.75pt; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm" valign="bottom" width="13" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> <td style="BORDER-BOTTOM: #215967 1pt solid; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 3.5pt; WIDTH: 95.8pt; PADDING-RIGHT: 3.5pt; HEIGHT: 7.75pt; BORDER-TOP: medium none; BORDER-RIGHT: #215967 1pt solid; PADDING-TOP: 0cm" valign="bottom" width="128" nowrap="nowrap"> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="COLOR: black; mso-ascii-font-family: Calibri; mso-fareast-font-family: 'Times New Roman'; mso-hansi-font-family: Calibri; mso-bidi-font-family: Calibri; mso-fareast-language: IT"> <o:p /></span></p> </td> </tr> </tbody> </table> </div> <p class="MsoNormal">Tale Window racchiude in una <strong style="mso-bidi-font-weight: normal">Grid</strong> tre caselle di testo <em style="mso-bidi-font-style: normal">TextBox1, TextBox2 </em>e <em style="mso-bidi-font-style: normal">TextBox3 </em>più due pulsanti di comando <em style="mso-bidi-font-style: normal">CommandButton1 </em>e <em style="mso-bidi-font-style: normal">CommandButton2 </em>etichettati “Elenco indirizzi” e “Spedisci”, il primo avente lo scopo di monitorare la composizione delle due TextBox di sinistra<em style="mso-bidi-font-style: normal">. </em>Quanto alle tre caselle la prima contiene indirizzi email default, la seconda i corrispettivi nomi e cognomi, la terza il testo base del messaggio da affidare a Microsoft Outlook.<o:p /></p> <h1>Utilizzo<o:p /></h1> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Regola</strong>: gli indirizzi e-mail vanno separati da uno e un solo spazio, mentre i vari nomi e cognomi hanno un trattino (-) come separatore, altrimenti l’intera baracca crolla.<o:p /></p> <p class="MsoNormal">Tralasciando il lavoro (meramente esemplificativo) ottenuto cliccando su <strong style="mso-bidi-font-weight: normal">Elenco indirizzi</strong>,<strong style="mso-bidi-font-weight: normal"> </strong>le operazioni da compiere per lanciare una circolare sono le seguenti:<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l1 level1 lfo2" class="MsoListParagraphCxSpFirst"><span style="mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin"><span style="mso-list: Ignore">1.<span style="FONT: 7pt "Times New Roman""> </span></span></span>Assicurarsi che Microsoft Outlook sia aperto (1);<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l1 level1 lfo2" class="MsoListParagraphCxSpMiddle"><span style="mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin"><span style="mso-list: Ignore">2.<span style="FONT: 7pt "Times New Roman""> </span></span></span>Completare indirizzi e-mail e i nomi e cognomi curando rigorosa corrispondenza fra gli uni e gli altri, quindi il testo del messaggio, rispettivamente nella prima, seconda e terza casella di testo (2);<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l1 level1 lfo2" class="MsoListParagraphCxSpLast"><span style="mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin"><span style="mso-list: Ignore">3.<span style="FONT: 7pt "Times New Roman""> </span></span></span>Cliccare sul pulsante <span style="mso-spacerun: yes"> </span><strong style="mso-bidi-font-weight: normal">Spedisci </strong>e passare ad Outlook, constando la presenza della nostra missiva nella cartella delle bozze <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Draft</em></strong> per eventuali ulteriori modifiche.<o:p /></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #b6dde8; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #b6dde8; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Note</strong>. (1) <span style="mso-spacerun: yes"> </span>Analogo codice macro (VBA) lanciato e.g. da Excel opera pure con Outlook in background, non così in Visual Studio, salvo segreti a me ignoti.<br /> (2) il testo “#NOMI# funge da parametro-segnaposto che il codice sostituisce con un elenco dei destinatari, attinti dalla TextBox2, perciò <u>non va tassativamente toccato!</u> <o:p /></p> </div> <h1>XAML<o:p /></h1> <p class="MsoNormal">Il risultato predetto è frutto del codice XAML qui sotto riportato. <o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Window</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> x</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">:</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Class</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="Window1"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>xmlns</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml/presentation"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>xmlns</span><span style="COLOR: blue">:</span><span style="COLOR: red">x</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: red"><span style="mso-spacerun: yes"> </span>Title</span><span style="COLOR: blue">="Window1"</span><span style="COLOR: red"> Height</span><span style="COLOR: blue">="300"</span><span style="COLOR: red"> Width</span><span style="COLOR: blue">="300"><o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Grid</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Grid.RowDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="210*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">RowDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Height</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="52*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Grid.RowDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">></span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Grid.ColumnDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">ColumnDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="108*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">ColumnDefinition</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Width</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="108*" /><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Grid.ColumnDefinitions</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><TextBox Grid.Column="0" TextWrapping="Wrap" <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>VerticalAlignment="Top" Height="100"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>VerticalScrollBarVisibility="Visible"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Name="TextBox1"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>pippo@x.it pluto@y.com paperino@z.com<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></TextBox><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><TextBox Grid.Column="0" TextWrapping="Wrap" <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>VerticalAlignment="Bottom" Height="100"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>VerticalScrollBarVisibility="Visible"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Name="TextBox2"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Pippo Rossi-Pluto Bianchi-Paperino Verdi<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></TextBox><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><TextBox Grid.Column="1" TextWrapping="Wrap"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>VerticalScrollBarVisibility="Visible"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>AcceptsReturn="True" Name="TextBox3"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Gentili Signori#NOMI#<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Distinti saluti<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></TextBox><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="0"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Margin</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="17,11,17,9"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="Button1"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Elenco indirizzi<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Grid.Row</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Grid.Column</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="1"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span>Margin</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> ="17,11,17,9"</span><span style="FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Name</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="Button2"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Spedisci<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Button</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Grid</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"></</span><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Window</span><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><o:p> </o:p></span></p> <p class="MsoNormal">Dopo quanto descritto in apertura c’è solo da aggiungere che le direttive seguenti accomunano le tre TextBox, ponendo barre di scorrimento laterali e assicurando <span style="mso-no-proof: yes">che il testo sia contenuto nei margini</span>:<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">TextWrapping="Wrap"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">VerticalScrollBarVisibility="Visible"<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #a31515; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><o:p> </o:p></span></p> <p class="MsoNormal">Solo nella terza casella è invece presente <o:p /></p> <p class="MsoNormal"><span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; COLOR: red; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">AcceptsReturn</span><span style="LINE-HEIGHT: 115%; FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">="True"<o:p /></span></p> <p class="MsoNormal">Che permette all’utente di inserire dei carriage return premendo Invio<a name="q"></a>, cosa che invece, come si constata, risulta inibita nelle altre due dove, ripeto e insisto, sono solo ammessi un singolo spazio nella prima e, nell’altra, un trattino. <o:p /></p> <h1>VB<o:p /></h1> <p class="MsoNormal">Il codice Visual Basic è riprodotto interamente qui di seguito, a partire dalla direttiva <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Imports </em></strong>a livello Dichiarazioni necessaria perché proprietà e metodi di un oggetto <strong style="mso-bidi-font-weight: normal">Outlook.Application </strong>si possano richiamare e utilizzare.<o:p /></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Imports</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Microsoft.Office.Interop<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">Class</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> Window1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Indirizzi <span style="COLOR: blue">As</span> <span style="COLOR: blue">String</span>, Nomi <span style="COLOR: blue">As</span> <span style="COLOR: blue">String<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Private</span> <span style="COLOR: blue">Sub</span> Button1_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.Object, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.RoutedEventArgs) <span style="COLOR: blue">Handles</span> Button1.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> TestoIndirizzi = TextBox1.Text<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> TestoIndirizzi(TestoIndirizzi.Length - 1) <> <span style="COLOR: #a31515">" "</span> <span style="COLOR: blue">Then<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>TestoIndirizzi &= <span style="COLOR: #a31515">" "<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: green">'MessageBox.Show(TestoIndirizzi)<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Indirizzo = <span style="COLOR: #a31515">""<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> i = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">While</span> TestoIndirizzi.Length > 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">While</span> TestoIndirizzi(i) <> <span style="COLOR: #a31515">" "<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Indirizzo &= TestoIndirizzi(i)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">While<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>TestoIndirizzi = TestoIndirizzi.Remove(0, Indirizzo.Length + 1)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>MessageBox.Show(Indirizzo & vbLf & TestoIndirizzi, "E-MAIL")<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Indirizzo = <span style="COLOR: #a31515">""<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>i = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">While<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>TestoIndirizzi = TextBox2.Text<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">If</span> TestoIndirizzi(TestoIndirizzi.Length - 1) <> <span style="COLOR: #a31515">"-"</span> <span style="COLOR: blue">Then<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>TestoIndirizzi &= <span style="COLOR: #a31515">"-"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">If<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Indirizzo = <span style="COLOR: #a31515">""<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>i = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">While</span> TestoIndirizzi.Length > 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">While</span> TestoIndirizzi(i) <> <span style="COLOR: #a31515">"-"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Indirizzo &= TestoIndirizzi(i)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>i += 1<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">While<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>TestoIndirizzi = TestoIndirizzi.Remove(0, Indirizzo.Length + 1)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 8pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">MessageBox.Show(Indirizzo & vbLf & TestoIndirizzi, <span style="COLOR: #a31515">"Nomi e cognomi"</span>)</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-no-proof: yes"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Indirizzo = <span style="COLOR: #a31515">""<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>i = 0<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">While<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Private</span> <span style="COLOR: blue">Sub</span> Button2_Click(<span style="COLOR: blue">ByVal</span> sender <span style="COLOR: blue">As</span> System.Object, <span style="COLOR: blue">ByVal</span> e <span style="COLOR: blue">As</span> System.Windows.RoutedEventArgs) <span style="COLOR: blue">Handles</span> Button2.Click<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Indirizzi = TextBox1.Text.Replace(<span style="COLOR: #a31515">" "</span>, <span style="COLOR: #a31515">";"</span>)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #00b050; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>' Imposta Outlook e un suo oggetto Mailitem<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Outlk <span style="COLOR: blue">As</span> <span style="COLOR: blue">New</span> Outlook.Application<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> MioMess <span style="COLOR: blue">As</span> Outlook.MailItem<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Nomi = <span style="COLOR: #a31515">""</span> & vbCrLf & TextBox2.Text.Replace(<span style="COLOR: #a31515">"-"</span>, vbCrLf) & vbCrLf<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">Dim</span> Corpo = TextBox3.Text.Replace(<span style="COLOR: #a31515">"#NOMI#"</span>, Nomi)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>MioMess = Outlk.CreateItem(Outlook.OlItemType.olMailItem)<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">With</span> MioMess<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>.Subject = <span style="COLOR: #a31515">"Richiesta chiarimenti"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>.BCC = <span style="COLOR: #a31515">"giannigiac@tin.it"<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>.To = Indirizzi<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>.Body = Corpo<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>MioMess.Save()<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">With<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>MioMess = <span style="COLOR: blue">Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span>Outlk = <span style="COLOR: blue">Nothing<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><span style="mso-spacerun: yes"> </span><span style="COLOR: blue">End</span> <span style="COLOR: blue">Sub<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes">End</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"> <span style="COLOR: blue">Class<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: blue; FONT-SIZE: 9pt; mso-bidi-font-size: 10.0pt; mso-no-proof: yes"><o:p> </o:p></span></p> <p class="MsoNormal">Per brevità lascio completamente all’esegesi autogestita il codice relativo al Click sul primo pulsante, avente funzione esplorativa, di controllo e, più che altro, didattica. In un caso reale CommandButton1 e l’intero codice associato si potrebbero eliminare.<o:p /></p> <p class="MsoNormal">Veniamo all’evento Click del secondo pulsante. La prima istruzione pone in <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Indirizzi</em> </strong>il testo <em style="mso-bidi-font-style: normal">Text </em>della TextBox1 sostituendone tutti gli spazi con dei punti e virgola, per cui Indirizzi sarà una stringa del tipo seguente, immaginando un altro email oltre i tre default:<o:p /></p> <p class="MsoNormal">“pippo@x.it;pluto@y.com;paperino@z.com;minnie@boh.org”<o:p /></p> <p class="MsoNormal">Seguono istruzioni per impostare in <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Outlk</em></strong> l’applicazione Outlook e un oggetto messaggistico (di tipo Outlook.MailItem) in <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">MioMess</em></strong>, quindi nella variabile <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Nomi </em></strong><span style="mso-spacerun: yes"> </span>si compie l’operazione analoga a quella vista per <em style="mso-bidi-font-style: normal">Indirizzi </em>ma sostituendo i trattini con dei CR. In questo caso va premesso <strong style="mso-bidi-font-weight: normal">"" & </strong>(per motivi un po’ misteriosi, ma indispensabili...) più un CR da porre dopo <span style="mso-spacerun: yes"> </span>“Gentili signori”, ottenendo così qualcosa del genere indicando solo i CR intermedi:<o:p /></p> <p class="MsoNormal">“Pippo Rossi<br /> <span style="mso-spacerun: yes"> </span>Pluto Bianchi<br /> <span style="mso-spacerun: yes"> </span>Paperino Verdi<br /> <span style="mso-spacerun: yes"> </span>Minnie Brambilla<br /> <span style="mso-spacerun: yes"> </span>. . . " <span style="mso-spacerun: yes"> </span><o:p /></p> <p class="MsoNormal">Tale stringa va poi a rimpiazzare il segnaposto “#NOMI# creando il <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Corpo </em></strong>del messaggio. Il tutto si esprime con la fissazione delle proprietà di <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">MioMess</em></strong> incastonate fra <em style="mso-bidi-font-style: normal">With MioMess </em>ed <em style="mso-bidi-font-style: normal">EndWith </em>e per pigrizia mi affido alla loro eloquenza. Il tutto farà sì che nella cartella Draft di Oulook compaia un messaggio in bozza grossomodo di questo tipo:<o:p /></p> <p style="MARGIN-RIGHT: -0.05pt" class="MsoNormal"><span style="BACKGROUND: gray; mso-highlight: gray">A...</span><span style="mso-spacerun: yes"> </span><span style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt"><span style="mso-spacerun: yes"> </span></span><span style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; LINE-HEIGHT: 115%; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; FONT-SIZE: 10pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-bidi-font-size: 11.0pt; mso-border-alt: solid windowtext .5pt"><a href="mailto:pippo@x.it"><span style="COLOR: windowtext; TEXT-DECORATION: none; text-underline: none">pippo@x.it</span></a>; <a href="mailto:pluto@y.com"><span style="COLOR: windowtext; TEXT-DECORATION: none; text-underline: none">pluto@y.com</span></a>; <a href="mailto:paperino@z.com"><span style="COLOR: windowtext; TEXT-DECORATION: none; text-underline: none">paperino@z.com</span></a>; <a href="mailto:minnie@boh.org"><span style="COLOR: windowtext; TEXT-DECORATION: none; text-underline: none">minnie@boh.org</span></a><span style="mso-spacerun: yes"> </span></span><span style="LINE-HEIGHT: 115%; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><span style="mso-spacerun: yes"> </span></span><span style="mso-spacerun: yes"> </span><o:p /></p> <p style="MARGIN-RIGHT: -0.05pt"><span style="FONT-FAMILY: "Calibri", "sans-serif"; BACKGROUND: gray; mso-highlight: gray">Ccn...</span><span style="FONT-FAMILY: "Calibri", "sans-serif""> <span style="mso-spacerun: yes"> </span></span><span style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; FONT-SIZE: 10pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-bidi-font-size: 12.0pt; mso-border-alt: solid windowtext .5pt"><a href="mailto:giannigiac@tin.it"><span style="COLOR: windowtext; TEXT-DECORATION: none; text-underline: none">giannigiac@tin.it</span></a></span><span style="FONT-FAMILY: "Calibri", "sans-serif""><o:p /></span></p> <p><span style="FONT-FAMILY: "Calibri", "sans-serif"; BACKGROUND: gray; mso-highlight: gray">Oggetto:</span><span style="FONT-FAMILY: "Calibri", "sans-serif""> </span><span style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; FONT-FAMILY: "Calibri", "sans-serif"; FONT-SIZE: 10pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 0cm; mso-bidi-font-size: 12.0pt; mso-border-alt: solid windowtext .5pt">Richiesta chiarimenti.</span><span style="FONT-FAMILY: "Calibri", "sans-serif""><o:p /></span></p> <p><span style="FONT-FAMILY: "Calibri", "sans-serif"; FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt">Gentili Signori,</span><span style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"> <o:p /></span></p> <p><span style="FONT-FAMILY: "Calibri", "sans-serif"; FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt">Pippo Rossi</span><span style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"> <br /> </span><span style="FONT-FAMILY: "Calibri", "sans-serif"; FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt">Pluto Bianchi</span><span style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"> <br /> </span><span style="FONT-FAMILY: "Calibri", "sans-serif"; FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt">Paperino Verdi<br /> Minnie Brambilla<br style="mso-special-character: line-break" /> <br style="mso-special-character: line-break" /> <o:p /></span></p> <p><span style="FONT-FAMILY: "Calibri", "sans-serif"; FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt">Vi prego di provvedere!</span><span style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"> <o:p /></span></p> <p><span style="FONT-FAMILY: "Calibri", "sans-serif"; FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt">Distinti saluti</span><span style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"> <o:p /></span></p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #b6dde8; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #b6dde8; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt; mso-border-alt: solid windowtext .5pt; mso-background-themecolor: accent5; mso-background-themetint: 102" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>. Come si constata Outlook inserisce automaticamente uno spazio dopo i vari punti e virgola.<o:p /></p> </div> <h1>Considerazioni finali<o:p /></h1> <p class="MsoNormal">Questa soluzione è presenta imperfezioni anche spicciole (per esempio con cognomi tipo Rossi-Doria nasce un guaio!) per le quali conto sulla benevolenza di chi legge, che spero vorrà perdonare taluni spunti di discutibile umorismo. Così com’è il modello è afflitto da difficoltà di deployment qualora si ambisse a farne un uso erga omnes.<o:p /></p> <p class="MsoNormal">Il fatto è che avevo una certa fretta di fornire un’introduzione a una tecnica forse un po’ ingiustamente snobbata anche da programmatori pro che potrebbero sfruttarla in modo più razionale.<o:p /></p> <p class="MsoNormal">Successivi sviluppi, ai quali anch’io sto pensando, potrebbero comprendere quantomeno: <o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l2 level1 lfo3" class="MsoListParagraphCxSpFirst"><span style="FONT-FAMILY: Symbol; mso-fareast-font-family: Symbol; mso-bidi-font-family: Symbol"><span style="mso-list: Ignore">·<span style="FONT: 7pt "Times New Roman""> </span></span></span>l’utilizzo della proprietà <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">HTMLBody </em></strong>in luogo della semplice <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Body</em></strong> , nel qual caso il messaggio della nostra terza casella potrebbe essere di tipo HTML, ottenendo font più o meno particolari, immagini inserite (e attenzione! il tag <IMG ...> deve riferirsi a un file posto sul web, altrimenti il destinatario NON la vedrebbe);<o:p /></p> <p style="TEXT-INDENT: -18pt; mso-list: l2 level1 lfo3" class="MsoListParagraphCxSpLast"><span style="FONT-FAMILY: Symbol; mso-fareast-font-family: Symbol; mso-bidi-font-family: Symbol"><span style="mso-list: Ignore">·<span style="FONT: 7pt "Times New Roman""> </span></span></span><span style="mso-spacerun: yes"> </span>soprattutto elenchi di indirizzi e nominativi “seri”, che potrebbero essere attinti, con opportuni binding, da quelli di cui ogni utente dispone nel <u>suo</u> Outlook e che si lasciano esportare in vari formati, tra cui un tal <strong style="mso-bidi-font-weight: normal">SentItemsOutlook.csv </strong>(nel rude sistema comma separated value, ahimè).<o:p /></p> <p class="MsoNormal">Tempo permettendo ne riparleremo.<o:p /></p> <p class="MsoNormal"><span style="LINE-HEIGHT: 115%; BACKGROUND: yellow; FONT-SIZE: 10pt; mso-bidi-font-size: 9.0pt; mso-highlight: yellow">(v. anche un mio post in materia su <strong style="mso-bidi-font-weight: normal"><a href="http://blog.shareoffice.it/giannigiaccaglini">http://blog.shareoffice.it/giannigiaccaglini</a></strong> nel quale si creano circolari richiamando Outlook da un file Excel dotato di macro. Può servire a un raffronto sintattico, notando sintassi identiche o poco difformi fra i mondi Visual Studio e VBA, Visual Basic Application edition).</span><span style="LINE-HEIGHT: 115%; FONT-SIZE: 10pt; mso-bidi-font-size: 9.0pt"> <o:p /></span></p><img src="http://blogs.wpfitalia.it/GianniGiaccaglini/aggbug/95.aspx" width="1" height="1" /> Gianni Giaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/01/31/Circolari-Outlook-con-OLE-Automation-primi-passi.aspx Tue, 31 Jan 2012 15:25:58 GMT http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2012/01/31/Circolari-Outlook-con-OLE-Automation-primi-passi.aspx#feedback 10 http://blogs.wpfitalia.it/GianniGiaccaglini/comments/commentRss/95.aspx Un utile libro introduttivo sul Parallel Programming http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/11/14/Un-utile-libro-introduttivo-sul-Parallel-Programming.aspx <h1>Un utile manuale didattico sul parallel programming</h1> <p style="LINE-HEIGHT: normal; MARGIN: 6pt 0cm 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal"><span style="FONT-SIZE: 12pt; mso-bidi-font-size: 11.0pt; mso-ansi-language: EN-US" lang="EN-US">Parallel Programming with Microsoft</span></em></strong><strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal"><span style="FONT-SIZE: 7.5pt; mso-bidi-font-size: 6.5pt; mso-ansi-language: EN-US" lang="EN-US">® </span></em></strong><strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal"><span style="FONT-SIZE: 12pt; mso-bidi-font-size: 11.0pt; mso-ansi-language: EN-US" lang="EN-US">Visual Studio</span></em></strong><strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal"><span style="FONT-SIZE: 7.5pt; mso-bidi-font-size: 6.5pt; mso-ansi-language: EN-US" lang="EN-US">®</span></em></strong><strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal"><span style="FONT-SIZE: 12pt; mso-bidi-font-size: 11.0pt; mso-ansi-language: EN-US" lang="EN-US">2010 Step by Step<o:p /></span></em></strong></p> <p style="MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="mso-ansi-language: EN-US" lang="EN-US">AUTORE: <em>Donis Marshall<o:p /></em></span></p> <p style="MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="LINE-HEIGHT: 115%; mso-bidi-font-size: 9.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">EDITORE: O’Reilly Media, Inc.<o:p /></span></p> <p style="MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="LINE-HEIGHT: 115%; mso-bidi-font-size: 9.0pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US"><a href="http://shop.oreilly.com/product/0790145300706.do">http://shop.oreilly.com/product/0790145300706.do</a><o:p /></span></p> <p style="MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="LINE-HEIGHT: 115%; mso-bidi-font-size: 9.0pt; mso-bidi-font-family: Segoe">ebook; <strong style="mso-bidi-font-weight: normal">$27,99</strong> – libro cartaceo: <strong style="mso-bidi-font-weight: normal">$34,99</strong> – libro + ebook: <strong style="mso-bidi-font-weight: normal">$38,49</strong><o:p /></span></p> <p style="MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="LINE-HEIGHT: 115%; mso-bidi-font-size: 9.0pt; mso-bidi-font-family: Segoe">(tutti gli esempi, illustrati, sono on line per gli acquirenti) <o:p /></span></p> <p class="MsoNormal"><o:p> </o:p></p> <p class="MsoNormal">Forse non tutti i programmatori anche professionali se ne sono accorti, ma le ultime generazioni di CPU sono<span style="LINE-HEIGHT: 115%; FONT-FAMILY: Segoe; FONT-SIZE: 9pt; mso-bidi-font-family: Segoe"> </span><em style="mso-bidi-font-style: normal"><span style="LINE-HEIGHT: 115%; FONT-FAMILY: Segoe; mso-bidi-font-size: 9.0pt; mso-bidi-font-family: Segoe">multicore</span></em>, vale a dire composti da almeno due o più processori, ciascuno dei quali può lavorare di conserva. In tal modo il multitasking diventa possibile e attraente. In primo luogo per conseguire performance elevate (che superano il più fervido ottimismo della Legge di Moore) ma anche per agire secondo modalità particolari che solo la simultaneità operativa garantisce. A tale scopo occorre cambiare mentalità ovvero passare dallo stile di programmazione sequenziale, di sole istruzioni che si succedono una dopo l’altra, a una nuova modalità che suddivide le operazioni in compiti (task) separati e cooperanti.</p> <p class="MsoNormal">Ben venga dunque questo testo dedicato a un tema sempre più importante, approvato dalla Microsoft. La casa di Redmond con il varo di Visual Studio 2010 ha promosso il parallel programming a tecnologia basilare, supportata dagli specifici namespace <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Task Parallel Library</em></strong><em style="mso-bidi-font-style: normal"> (<strong style="mso-bidi-font-weight: normal">TPL</strong>)</em> e <strong style="mso-bidi-font-weight: normal"><em><span style="LINE-HEIGHT: 115%; FONT-FAMILY: Segoe-Italic; FONT-SIZE: 10pt; mso-bidi-font-family: Segoe-Italic">System.Threading.Tasks</span></em></strong>, che forniscono tutte le codifiche e gli strumenti necessari per la creazione e manutenzione di applicazioni parallelizzate, aiutando a scomporle in task concorrenti e coordinati che girano su “core” ossia processori distinti.</p> <p class="MsoNormal">Il libro fin dal titolo si presenta come un tutorial passo dopo passo, una scelta che lo rende di più agevole lettura e, soprattutto, si propone di guidare il passaggio dal vecchio al nuovo paradigma programmatorio. Il seguente sommario dà un’idea abbastanza chiara dei contenuti e della gradualità espositiva seguita dall’Autore.</p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">Capitolo 1</span></strong><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US"> - <span style="mso-spacerun: yes"> </span><em style="mso-bidi-font-style: normal">Introduction to Parallel Programming</em>, introduces the fundamental concepts of parallel programming.<o:p /></span></p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">Capitolo</span></strong><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US"> <strong style="mso-bidi-font-weight: normal">2</strong> - <em style="mso-bidi-font-style: normal">Task Parallelism</em>, focuses on creating parallel iterations and refactoring sequential loops into parallel tasks.<o:p /></span></p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">Capitolo</span></strong><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US"> <strong style="mso-bidi-font-weight: normal">3 </strong></span><span style="mso-ansi-language: EN-US" lang="EN-US">-</span><em style="mso-bidi-font-style: normal"><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">Data Parallelism</span></em><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">, focuses on creating parallel tasks from separate operations.<o:p /></span></p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">Capitolo</span></strong><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US"> <strong style="mso-bidi-font-weight: normal">4</strong> - <em style="mso-bidi-font-style: normal">PLINQ</em>, is an overview of parallel programming using Language-Integrated Query (LINQ).<o:p /></span></p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">Capitolo</span></strong><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US"> <strong style="mso-bidi-font-weight: normal">5</strong> - <em style="mso-bidi-font-style: normal">Concurrent Collections</em>, explains how to use concurrent collections, such as </span><em><span style="FONT-FAMILY: Segoe-Italic; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">ConcurrentBag </span></em><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">and </span><em><span style="FONT-FAMILY: Segoe-Italic; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">ConcurrentQueue</span></em><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">.<o:p /></span></p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">Capitolo</span></strong><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US"> <strong style="mso-bidi-font-weight: normal">6</strong> - <em style="mso-bidi-font-style: normal">Customization</em>, demonstrates techniques for customizing the TPL.<o:p /></span></p> <p class="MsoNormal"><span style="LINE-HEIGHT: 115%; FONT-FAMILY: ZapfDingbatsStd; FONT-SIZE: 7pt; mso-ansi-language: EN-US; mso-bidi-font-family: ZapfDingbatsStd" lang="EN-US"><span style="mso-spacerun: yes"> </span></span><strong style="mso-bidi-font-weight: normal"><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">Capitolo</span></strong><span style="mso-ansi-language: EN-US; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US"> <strong style="mso-bidi-font-weight: normal">7</strong> - <em style="mso-bidi-font-style: normal">Reports and Debugging</em>, shows how to debug and maintain parallel applications and rounds out the full discussion of parallel programming.<o:p /></span></p> <p class="MsoNormal">I primi due capitoli sono molto importanti e meritano di essere attentamente letti pure dai più esperti. Stiamo alludendo in primo luogo ai molti programmatori che si sono formati “sul campo” e che, sia detto senza offesa, conoscono <span style="mso-spacerun: yes">il </span>multitasking quasi solo per sentito dire. Ma anche a quanti possiedono un background scolastico in materia (almeno nei corsi di Informatica universitari di task, “semafori” e compagnia bella si parla abbastanza a fondo) converrà esaminare questi richiami, che giudichiamo utili, chiari e, insieme, rigorosi. In particolare l’autore ben chiarisce la differenza fra task e thread, questi ultimi già abbastanza noti a chi ha padronanza del Visual Studio, chiarendo che i secondi sono frazioni dei primi. Fra le due creature si fa confusione? Certo e il libro serve egregiamente a evitarla. Importante, al riguardo, la (limpida e rigorosa) trattazione della sincronizzazione di task e thread.</p> <p class="MsoNormal">I successivi capitoli sono ricchi di dettagli e corredati da validi esempi anche pratici. Opportuno ci è parso il passaggio, dopo i concetti introduttivi, al tema della messa in parallelo dei <em style="mso-bidi-font-style: normal">dati</em> per assicurarne la necessaria coerenza negli accessi concorrenti.</p> <p class="MsoNormal">Come già detto anche i titoli degli altri capitoli parlano da soli, in particolare è allettante quello dedicato al <strong style="mso-bidi-font-weight: normal">PLINQ</strong>, una versione del già espressivo linguaggio di query LINQ, estesa alle problematiche del nuovo mondo.</p> <p class="MsoNormal">Due ultime considerazioni. Anzitutto va detto che l’opera, accattivante nel titolo ed efficace nell’esposizione, non è certo per principianti ma si rivolge a gente dotata di buona competenza dell’ambiente .NET (a proposito: tutti gli esempi sono in C#). Inoltre non c’è la pretesa di esaurire la complessa materia. Tuttavia viene fornito l’indispensabile per conoscere e comprendere abbastanza a fondo le basi, permettendo a ciascuno di proseguire l’avventura anche con le proprie gambe.</p> <h2>Uno scampolo tipico preso dal manuale...</h2> <p class="MsoNormal">... per dare un’idea (intuitiva, per carità!) sulla materia e sul trattamento che ne dà il libro. A monte viene descritto il meccanismo composto dei passi seguenti: 1) crea un certo task coi suoi metodi ecc.; 2) lo accoda a un pool di thread; 3) ne gestisce lo scheduling; 4) lo suddivide nei processori disponibili sulla macchina.</p> <p class="MsoNormal">Ed ecco senza commenti lo scampolo testé annunciato:</p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-SIZE: 14pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Semibold" lang="EN-US">The </span><em><span style="FONT-SIZE: 14pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-SemiboldItalic" lang="EN-US">Task </span></em><span style="FONT-SIZE: 14pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Semibold" lang="EN-US">Class<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 6pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">In the .NET Framework, the </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">Task </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">class is a logical abstraction of a task. You can use this class to schedule and ultimately execute a parallel task. Remember, tasks are unlike threads in that you do not start a task directly. By default, the thread pool schedules a task, places it on a queue in the thread pool, and eventually executes the task on an available thread. In this book, </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">starting </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">a task implies queuing the task first and later executing the task on an available thread from the thread pool.<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-SIZE: 12pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Semibold" lang="EN-US">Using the </span><em><span style="FONT-SIZE: 12pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-SemiboldItalic" lang="EN-US">Parallel.Invoke </span></em><span style="FONT-SIZE: 12pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Semibold" lang="EN-US">Method<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 6pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">You can schedule a task in several ways, the simplest of which is by using the </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">Parallel.Invoke </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">method. The following example executes two parallel tasks—one for </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">MethodA </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">and another for </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">MethodB</span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">. This version of </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">Parallel.Invoke </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">accepts an array of </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">Action </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">delegates as the sole parameter. </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">Action </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">delegates have no arguments and return </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">void</span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">.<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-SIZE: 7pt; mso-ansi-language: EN-US; mso-bidi-font-family: LucidaSansTypewriterStd" lang="EN-US"><font size="2">Parallel.Invoke(new Action[] { MethodA, MethodB });<o:p /></font></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-SIZE: 7pt; mso-ansi-language: EN-US; mso-bidi-font-family: LucidaSansTypewriterStd" lang="EN-US"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">The </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">Parallel.Invoke </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">method is convenient for executing multiple tasks in parallel. However, this method has limitations:<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-SIZE: 7pt; mso-ansi-language: EN-US; mso-bidi-font-family: ZapfDingbatsStd; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">■ </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">Parallel.Invoke </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">creates but does not return task objects.<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-SIZE: 7pt; mso-ansi-language: EN-US; mso-bidi-font-family: ZapfDingbatsStd; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">■ </span><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">The </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">Action </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">delegate is limited—it has no parameters and no return value.<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-SIZE: 7pt; mso-ansi-language: EN-US; mso-bidi-font-family: ZapfDingbatsStd; mso-fareast-font-family: ZapfDingbatsStd" lang="EN-US">■ </span><em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">Parallel.Invoke </span></em><span style="FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">is not as flexible as other solutions and always uses an implied<o:p /></span></p> <p class="MsoNormal"><em><span style="LINE-HEIGHT: 115%; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe-Italic" lang="EN-US">Task.WaitAll </span></em><span style="LINE-HEIGHT: 115%; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">method, described in more detail later in this section.<o:p /></span></p> <p class="MsoNormal"><span style="LINE-HEIGHT: 115%; FONT-SIZE: 9.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: Segoe" lang="EN-US">(continua)<o:p /></span></p> <p class="MsoNormal"><span style="mso-ansi-language: EN-US" lang="EN-US">A buon intenditore.<o:p /></span></p><img src="http://blogs.wpfitalia.it/GianniGiaccaglini/aggbug/94.aspx" width="1" height="1" /> Gianni Giaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/11/14/Un-utile-libro-introduttivo-sul-Parallel-Programming.aspx Mon, 14 Nov 2011 14:35:13 GMT http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/11/14/Un-utile-libro-introduttivo-sul-Parallel-Programming.aspx#feedback 21 http://blogs.wpfitalia.it/GianniGiaccaglini/comments/commentRss/94.aspx Visore di archivio XML tramite binding http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/09/14/Visore-di-archivio-XML-tramite-binding.aspx <div style="MARGIN: 24pt 0cm 0pt"><strong><font size="6"><span style="LINE-HEIGHT: 115%; FONT-SIZE: 16pt"><font color="#365f91">Visore di archivio XML tramite binding</font></span></font></strong></div> <div style="MARGIN: 0cm 0cm 10pt">Il progetto qui discusso è tratto, con qualche adattamento, da un buon manuale WPF, già positivamente recensito su questo blog:</div> <div style="LINE-HEIGHT: normal"><strong>WPF in action, </strong>di Arlen Feldman e Maxx Daymon</div> <div style="LINE-HEIGHT: normal">Editore Manning – <a href="http://www.manning.com/feldman2/%20">http://www.manning.com/feldman2/ </a></div> <div style="LINE-HEIGHT: normal"> </div> <div style="MARGIN: 0cm 0cm 10pt">L’applicativo collega un archivio XML a una finestra WPF con tecnica binding, con una soluzione interamente dichiarativa, che sfrutta un servizievole parser dedicato ad archivi XML. Quello utilizzato come cavia è relativo ai cosiddetti <strong>CVE </strong>(Common Vulnerabilities and Exposures) che espone le molteplici cause di vulnerabilità da attacchi maligni monitorate da MITRE, ente federale USA di ricerca in tale campo. Lo si può scaricare da:</div> <div style="MARGIN: 0cm 0cm 10pt"><a href="http://cve.mitre.org/data/downloads/index.html"><span style="LINE-HEIGHT: 115%; FONT-SIZE: 10pt">http://cve.mitre.org/data/downloads/index.html</span></a></div> <div style="MARGIN: 0cm 0cm 10pt">Lo abbiamo salvato in C:\ col nome <strong>ElementiCVE.xml</strong><u> dopo aver eliminato nel tag <strong>cve </strong>tuttii riferimenti a namespace vari</u>. Insomma si dovrà avere un nudo e crudo <strong><cve></strong>. Solo così il parser XML opera correttamente.</div> <div style="MARGIN: 0cm 0cm 10pt"><strong>ElementiCVE.xml </strong>ha una struttura gerarchica col nodo-padre <<strong>cve</strong>>, figli <<strong>item</strong>>, formati da nipoti e pronipoti vari. Per farla breve e potando drasticamente descrizioni <desc> e commenti <comment> esso si presenta così:</div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"><?xml version="1.0"?></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"><cve></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <item type="CAN" name="CVE-1999-0001" seq="1999-0001"></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <status>Candidate</status></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <phase date="20051217">Modified</phase></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <desc>ip_input.c in BSD-derived TCP/IP implementations allows remote attackers ... </desc></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <refs></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <ref source="CERT">CA-98-13-tcp-denial-of-service</ref></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <ref source="BUGTRAQ">19981223 Re: CERT Advisory CA-98.13 - TCP/IP Denial of Service</ref></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <ref source="CONFIRM" url="http://www.openbsd.org/errata23.html#tcpfix">http://www.openbsd.org/errata23.html#tcpfix</ref></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <ref source="OSVDB" url="http://www.osvdb.org/5707">5707</ref></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> </refs></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <votes></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <modify count="1">Frech</modify></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <noop count="2">Northcutt, Wall</noop></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <reviewing count="1">Christey</reviewing></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> </votes></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <comments></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <comment voter="Christey">A Bugtraq posting indicates that the bug has to .. .</font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> </comment></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <comment voter="Christey">The description for BID:190, which links to CVE-1999-0052 ...</font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> </comment></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> </comments></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> </item></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> <item type="CVE" name="CVE-1999-0002" seq="1999-0002"></font></span></div> <div style="LINE-HEIGHT: normal"><font size="2"><span style="FONT-SIZE: 7pt"> </span><span style="FONT-SIZE: 7pt">. . . . </span></font></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"> </item></font></span></div> <div style="LINE-HEIGHT: normal"><font size="2"> </font></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2">. . . . ALTRI ITEM . . . .</font></span></div> <div style="LINE-HEIGHT: normal"><font size="2"> </font></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 7pt"><font size="2"></cve></font></span></div> <div style="LINE-HEIGHT: normal"> </div> <div style="MARGIN: 0cm 0cm 10pt">Il risultato finale è visibile nella figura scaricabile dal link seguente:</div> <div style="MARGIN: 0cm 0cm 10pt"><a href="http://www.giannigiaccaglini.it/download/FigVisoreXML.jpg">http://www.giannigiaccaglini.it/download/FigVisoreXML.jpg</a></div> <div style="MARGIN: 0cm 0cm 10pt"> </div> <div style="MARGIN: 0cm 0cm 10pt">Sulla sinistra una <em>ListBox </em>riporta i diversi item. Selezionandone uno si provoca l’apparizione delle rispettive Descrizione, Riferimenti e Commenti nei riquadri accatastati sulla destra.</div> <div style="MARGIN: 0cm 0cm 10pt"><strong>Sperimentazione del piccolo applicativo.</strong> Sorprendente! L'archivio ElementiCVE.xml è mastodontico (oltre 54 MB) e se si prova a caricarlo con un editor XML o, peggio, col Notepad, ci giriamo i pollici nel navigare in esso. Ma se usiamo il nostro <strong>VisoreXML</strong> la musica cambia radicalmente, si passa da un elemento all'altro quasi istantaneamente, con immediata apparizione dei valori correlati. Insomma si direbbe che il binding compie un'apprezzabile magia.</div> <div style="MARGIN: 10pt 0cm 0pt"><strong><font size="5"><font color="#4f81bd" size="4">Il codice XAML</font></font></strong></div> <div style="MARGIN: 0cm 0cm 10pt">È interamente contenuto nel modulo <strong>MainWindow</strong> (o, nell’edizione 2008, <strong>Window1</strong> o altro nome assegnato da noi). Lo riporto senza indugi per intero, facendo subito notare che nell’ambito delle risorse <Windows.Resources> della Window si ha il basilare nodo <strong><em>XmlDataProvider</em></strong>, che, come il nome e i suoi attributi eloquentemente indicano, funge da fornitore di una fonte dati identificata da <strong><em>Source </em></strong>secondo la chiave <strong><em>x:Key </em></strong>nella fattispecie definita secondo il nodo padre <strong>cve</strong>, mentre l’<strong><em>XPath</em></strong>, <u>secondo una sintassi standard XML</u>, denota il percorso <em>/cve/item </em>dell’elemento (item) da considerare. Circa <em>IsAsynchronous </em>e <em>IsInitialLoadedEnabled </em>rimando alla Guida.</div> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt"> <div style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; MARGIN: 0cm 0cm 10pt; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm"><strong>Nota</strong>. Piuttosto si consideri, anche a futura memoria, la direttiva <em>debug:PresentationTraceSources.TraceLevel="High", </em>che fissa uno speciale tracciatore delle operazioni binding, segnalando anomalie che altrimenti il permissivo linguaggio XAML non rifiuta (onestamente, non l’ho sperimentato, essendo il codice adottato corretto).</div> </div> <div style="LINE-HEIGHT: normal"><span style="COLOR: blue; FONT-SIZE: 8pt" /></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Window</span><span style="COLOR: red; FONT-SIZE: 8pt"> x</span><span style="COLOR: blue; FONT-SIZE: 8pt">:</span><span style="COLOR: red; FONT-SIZE: 8pt">Class</span><span style="COLOR: blue; FONT-SIZE: 8pt">="MainWindow"</span></font></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 8pt"><font size="3"> </font><font size="2"><span style="COLOR: red"> xmlns</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml/presentation"</span></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 8pt"><font size="2"> <span style="COLOR: red"> xmlns</span><span style="COLOR: blue">:</span><span style="COLOR: red">x</span><span style="COLOR: blue">="http://schemas.microsoft.com/winfx/2006/xaml"</span></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 8pt"><font size="2"> <span style="COLOR: red"> xmlns</span><span style="COLOR: blue">:</span><span style="COLOR: red">debug</span><span style="COLOR: blue">="clr-namespace:System.Diagnostics;assembly=WindowsBase"</span></font></span></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: red; FONT-SIZE: 8pt">Title</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Visore XML (Common Vulnerabilities and Exposures)"</span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: red; FONT-SIZE: 8pt">Width</span><span style="COLOR: blue; FONT-SIZE: 8pt">="600"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Height</span><span style="COLOR: blue; FONT-SIZE: 8pt">="400"></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Window.Resources</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">XmlDataProvider</span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: red; FONT-SIZE: 8pt"> x</span><span style="COLOR: blue; FONT-SIZE: 8pt">:</span><span style="COLOR: red; FONT-SIZE: 8pt">Key</span><span style="COLOR: blue; FONT-SIZE: 8pt">="cve"</span></font></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 8pt"><font size="3"> </font><font size="2"><span style="COLOR: red"> Source</span><span style="COLOR: blue">="C:\ElementiCVE.xml"</span></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 8pt"><font size="2"> <span style="COLOR: red"> XPath</span><span style="COLOR: blue">="/cve/item"</span></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 8pt"><font size="2"> <span style="COLOR: red"> IsAsynchronous</span><span style="COLOR: blue">="False"</span></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 8pt"><font size="2"> <span style="COLOR: red"> IsInitialLoadEnabled</span><span style="COLOR: blue">="True"</span></font></span></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 8pt"><font size="2"> <span style="COLOR: red"> debug</span><span style="COLOR: blue">:</span><span style="COLOR: red">PresentationTraceSources.TraceLevel</span><span style="COLOR: blue">="High" /></span></font></span></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Window.Resources</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Grid</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Grid.ColumnDefinitions</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ColumnDefinition</span><span style="COLOR: red; FONT-SIZE: 8pt"> Width</span><span style="COLOR: blue; FONT-SIZE: 8pt">="120" /></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ColumnDefinition</span><span style="COLOR: red; FONT-SIZE: 8pt"> Width</span><span style="COLOR: blue; FONT-SIZE: 8pt">="3" /></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ColumnDefinition</span><span style="COLOR: red; FONT-SIZE: 8pt"> Width</span><span style="COLOR: blue; FONT-SIZE: 8pt">="1*" /></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Grid.ColumnDefinitions</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">DockPanel</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBox</span><span style="COLOR: red; FONT-SIZE: 8pt"> Name</span><span style="COLOR: blue; FONT-SIZE: 8pt">="filter"</span><span style="COLOR: red; FONT-SIZE: 8pt"> DockPanel.Dock</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Top" /></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox</span><span style="COLOR: red; FONT-SIZE: 8pt"> Name</span><span style="COLOR: blue; FONT-SIZE: 8pt">="listBox1" </span><span style="COLOR: red; FONT-SIZE: 8pt">ItemsSource</span><span style="COLOR: blue; FONT-SIZE: 8pt">=</span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: blue; FONT-SIZE: 8pt"> "{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> Source</span><span style="COLOR: blue; FONT-SIZE: 8pt">={</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">StaticResource</span><span style="COLOR: red; FONT-SIZE: 8pt"> cve</span><span style="COLOR: blue; FONT-SIZE: 8pt">}}"</span><span style="COLOR: red; FONT-SIZE: 8pt"> IsSynchronizedWithCurrentItem</span><span style="COLOR: blue; FONT-SIZE: 8pt">="True"></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox.ItemTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">DataTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: red; FONT-SIZE: 8pt"> Text</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="COLOR: blue; FONT-SIZE: 8pt">=</span><span style="FONT-SIZE: 8pt">@<span style="COLOR: blue">name}" /></span></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">DataTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox.ItemTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">DockPanel</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">GridSplitter</span><span style="COLOR: red; FONT-SIZE: 8pt"> Grid.Column</span><span style="COLOR: blue; FONT-SIZE: 8pt">="1"</span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: red; FONT-SIZE: 8pt"> VerticalAlignment</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Stretch"</span><span style="COLOR: red; FONT-SIZE: 8pt"> HorizontalAlignment</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Stretch" /></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">GroupBox</span><span style="COLOR: red; FONT-SIZE: 8pt"> Grid.Column</span><span style="COLOR: blue; FONT-SIZE: 8pt">="2"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Header</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Dettagli CVE"></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">GroupBox.DataContext</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> Source</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">StaticResource</span><span style="COLOR: red; FONT-SIZE: 8pt"> cve</span><span style="COLOR: blue; FONT-SIZE: 8pt">}"/></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">GroupBox.DataContext</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">StackPanel</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">WrapPanel</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Label</span><span style="COLOR: red; FONT-SIZE: 8pt"> Height</span><span style="COLOR: blue; FONT-SIZE: 8pt">="23"></span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Nome:</span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Label</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Label</span><span style="COLOR: red; FONT-SIZE: 8pt"> FontWeight</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Bold"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Height</span><span style="COLOR: blue; FONT-SIZE: 8pt">="23"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Content</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="COLOR: blue; FONT-SIZE: 8pt">=</span><span style="FONT-SIZE: 8pt">@<span style="COLOR: blue">name}"</span><span style="COLOR: red"> MinWidth</span><span style="COLOR: blue">="100" /></span></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Label</span><span style="COLOR: red; FONT-SIZE: 8pt"> Height</span><span style="COLOR: blue; FONT-SIZE: 8pt">="23"></span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Stato:</span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Label</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Label</span><span style="COLOR: red; FONT-SIZE: 8pt"> FontWeight</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Bold"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Height</span><span style="COLOR: blue; FONT-SIZE: 8pt">="23"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Content</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="COLOR: blue; FONT-SIZE: 8pt">=status}"</span><span style="COLOR: red; FONT-SIZE: 8pt"> MinWidth</span><span style="COLOR: blue; FONT-SIZE: 8pt">="80" /></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">WrapPanel</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: red; FONT-SIZE: 8pt"> FontSize</span><span style="COLOR: blue; FONT-SIZE: 8pt">="12"</span><span style="COLOR: red; FONT-SIZE: 8pt"> FontWeight</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Bold"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Background</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Brown"</span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: red; FONT-SIZE: 8pt"> Foreground</span><span style="COLOR: blue; FONT-SIZE: 8pt">="White"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Padding</span><span style="COLOR: blue; FONT-SIZE: 8pt">="10,2,2,2"></span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Descrizione</span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: red; FONT-SIZE: 8pt"> TextWrapping</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Wrap"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Text</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="COLOR: blue; FONT-SIZE: 8pt">=desc}"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Margin</span><span style="COLOR: blue; FONT-SIZE: 8pt">="10,10,10,20" /></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: red; FONT-SIZE: 8pt"> FontSize</span><span style="COLOR: blue; FONT-SIZE: 8pt">="12"</span><span style="COLOR: red; FONT-SIZE: 8pt"> FontWeight</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Bold"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Background</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Brown"</span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: red; FONT-SIZE: 8pt"> Foreground</span><span style="COLOR: blue; FONT-SIZE: 8pt">="White"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Padding</span><span style="COLOR: blue; FONT-SIZE: 8pt">="10,2,2,2"></span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Riferimenti</span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox</span><span style="COLOR: red; FONT-SIZE: 8pt"> ItemsSource</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="COLOR: blue; FONT-SIZE: 8pt">=refs</span><span style="FONT-SIZE: 8pt">/<span style="COLOR: blue">ref}"</span><span style="COLOR: red"> Margin</span><span style="COLOR: blue">="10,10,10,20"</span><span style="COLOR: red"> BorderThickness</span><span style="COLOR: blue">="0"</span></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: red; FONT-SIZE: 8pt"> BorderBrush</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Transparent"></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox.ItemTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">DataTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">WrapPanel</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: red; FONT-SIZE: 8pt"> MinWidth</span><span style="COLOR: blue; FONT-SIZE: 8pt">="50"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Text</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="COLOR: blue; FONT-SIZE: 8pt">=</span><span style="FONT-SIZE: 8pt">@<span style="COLOR: blue">source}" /></span></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">WrapPanel</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">DataTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox.ItemTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: red; FONT-SIZE: 8pt"> FontSize</span><span style="COLOR: blue; FONT-SIZE: 8pt">="12"</span><span style="COLOR: red; FONT-SIZE: 8pt"> FontWeight</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Bold"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Background</span><span style="COLOR: blue; FONT-SIZE: 8pt">="Brown"</span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: red; FONT-SIZE: 8pt"> Foreground</span><span style="COLOR: blue; FONT-SIZE: 8pt">="White"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Padding</span><span style="COLOR: blue; FONT-SIZE: 8pt">="10,2,2,2"></span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Commenti</span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListView</span><span style="COLOR: red; FONT-SIZE: 8pt"> ItemsSource</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="COLOR: blue; FONT-SIZE: 8pt">=comments</span><span style="FONT-SIZE: 8pt">/<span style="COLOR: blue">comment}"</span><span style="COLOR: red"> Margin</span><span style="COLOR: blue">="10,10,10,20"</span></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: red; FONT-SIZE: 8pt"> BorderThickness</span><span style="COLOR: blue; FONT-SIZE: 8pt">="0"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Width</span><span style="COLOR: blue; FONT-SIZE: 8pt">="433"</span><span style="COLOR: red; FONT-SIZE: 8pt"> Height</span><span style="COLOR: blue; FONT-SIZE: 8pt">="100"></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListView.ItemTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">DataTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: red; FONT-SIZE: 8pt"> Text</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> Path</span><span style="COLOR: blue; FONT-SIZE: 8pt">=InnerText}"/></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">DataTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListView.ItemTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListView</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">StackPanel</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">GroupBox</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Grid</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Window</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"> </div> <div style="MARGIN: 0cm 0cm 10pt">Limito all’essenziale la descrizione della struttura XAML, anche perché mi rivolgo a gente che se la cava con tali faccende. Comunque si ha una Grid di tre colonne. Nella prima un DockPanel contiene una TextBox seguita da una ListBox. La seconda è uno stretto divisore GridSplitter. Più articolata è la terza colonna che comprende un GroupBox a sua volta suddiviso in aree dedicate a Descrizione, Riferimenti e Commenti con uno StackPanel dotato di controlli che lascio per pigrizia all’esegesi autogestita del lettore.</div> <div style="MARGIN: 10pt 0cm 0pt"><strong><font size="5"><font color="#4f81bd" size="4">Commenti essenziali ai vari Binding</font></font></strong></div> <div style="MARGIN: 0cm 0cm 10pt">Una distinzione importante è relativa al verbo <strong><em>XPath </em></strong>rispetto a <strong><em>Path</em></strong>. In buona sostanza, il secondo fissa il percorso del Binding WPF, il primo pertiene alla sintassi standard XML, ma viene, diciamo così, assimilato e supportato in WPF. Per massima comodità rivisitiamo l’incipit dell’XmlDataProvider visto in apertura:</div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">XmlDataProvider</span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: red; FONT-SIZE: 8pt"> x</span><span style="COLOR: blue; FONT-SIZE: 8pt">:</span><span style="COLOR: red; FONT-SIZE: 8pt">Key</span><span style="COLOR: blue; FONT-SIZE: 8pt">="cve"</span></font></div> <div style="LINE-HEIGHT: normal"><span style="FONT-SIZE: 8pt"><font size="3"> </font><font size="2"> <span style="COLOR: red"> Source</span><span style="COLOR: blue">="C:\ElementiCVE.xml"</span></font></span></div> <div style="LINE-HEIGHT: normal"><strong><span style="FONT-SIZE: 8pt"><font size="2"> <span style="COLOR: red"> XPath</span><span style="COLOR: blue">="/cve/item"</span></font></span></strong></div> <div style="MARGIN: 0cm 0cm 10pt"><font size="2">. . . eccetera</font></div> <div style="MARGIN: 0cm 0cm 10pt"> Un altro codice tipicamente XML è <strong><em>@name</em></strong>. Vediamo come viene utilizzato dal controllo ListBox:</div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox</span><span style="COLOR: red; FONT-SIZE: 8pt"> Name</span><span style="COLOR: blue; FONT-SIZE: 8pt">="listBox1" </span><span style="COLOR: red; FONT-SIZE: 8pt">ItemsSource</span><span style="COLOR: blue; FONT-SIZE: 8pt">=</span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: blue; FONT-SIZE: 8pt"> "{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> Source</span><span style="COLOR: blue; FONT-SIZE: 8pt">={</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">StaticResource</span><span style="COLOR: red; FONT-SIZE: 8pt"> cve</span><span style="COLOR: blue; FONT-SIZE: 8pt">}}"</span><span style="COLOR: red; FONT-SIZE: 8pt"> IsSynchronizedWithCurrentItem</span><span style="COLOR: blue; FONT-SIZE: 8pt">="True"></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox.ItemTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">DataTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: red; FONT-SIZE: 8pt"> Text</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="COLOR: blue; FONT-SIZE: 8pt">=</span><span style="FONT-SIZE: 8pt">@<span style="COLOR: blue">name}" /></span></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">DataTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: #a31515; FONT-SIZE: 8pt"> </span><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox.ItemTemplate</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"><span style="COLOR: blue; FONT-SIZE: 8pt"></</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">ListBox</span><span style="COLOR: blue; FONT-SIZE: 8pt">></span></font></div> <div style="LINE-HEIGHT: normal"><font size="3"> </font></div> <div style="MARGIN: 0cm 0cm 10pt">A livello ListBox la proprietà <strong><em>ItemSource </em></strong>definisce il binding la cui <em>Source </em>a sua volta punta alla risorsa statica cve, con <em>IsSyncronizedWithCurrentItem=”True” </em>che garantisce appunto la sincronizzazione con tale fonte. Noi vogliamo che nell’elenco di sinistra compaiono i nomi dei vari item, che corrispondono all’attributo <strong><em>name. </em></strong>Come dovrebbe sapere chi mastica XML in tale mondo la chiocciola definisce un attributo, e nel nostro caso è la sintassi <strong><em>XPath=@name</em></strong> che provvede a estrarre il nome dall’item corrente.</div> <div style="MARGIN: 0cm 0cm 10pt">Vediamo due altri esempi analoghi, reperibili all’interno di vari controlli, il secondo riguardante l’attributo <strong>source</strong>:</div> <div style="LINE-HEIGHT: normal"><font size="4"><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: red; FONT-SIZE: 8pt">Text</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="COLOR: blue; FONT-SIZE: 8pt">=@name}" /></span></font></div> <div style="MARGIN: 0cm 0cm 10pt"><font size="4"><span style="LINE-HEIGHT: 115%; COLOR: blue; FONT-SIZE: 8pt"><</span><span style="LINE-HEIGHT: 115%; COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="LINE-HEIGHT: 115%; COLOR: red; FONT-SIZE: 8pt"> MinWidth</span><span style="LINE-HEIGHT: 115%; COLOR: blue; FONT-SIZE: 8pt">="50"</span><span style="LINE-HEIGHT: 115%; COLOR: red; FONT-SIZE: 8pt"> Text</span><span style="LINE-HEIGHT: 115%; COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="LINE-HEIGHT: 115%; COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="LINE-HEIGHT: 115%; COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="LINE-HEIGHT: 115%; COLOR: blue; FONT-SIZE: 8pt">=</span><span style="LINE-HEIGHT: 115%; FONT-SIZE: 8pt">@<span style="COLOR: blue">source}" /></span></span></font></div> <div style="MARGIN: 0cm 0cm 10pt">In quest’altro esempio l’XPath della seconda ListBox punta invece a un nodo, quello dei singoli <em>comment</em>:</div> <div style="MARGIN: 0cm 0cm 10pt"><span style="LINE-HEIGHT: 115%; COLOR: blue; FONT-SIZE: 8pt"><</span><span style="LINE-HEIGHT: 115%; COLOR: #a31515; FONT-SIZE: 8pt">ListView</span><span style="LINE-HEIGHT: 115%; COLOR: red; FONT-SIZE: 8pt"> ItemsSource</span><span style="LINE-HEIGHT: 115%; COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="LINE-HEIGHT: 115%; COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="LINE-HEIGHT: 115%; COLOR: red; FONT-SIZE: 8pt"> XPath</span><span style="LINE-HEIGHT: 115%; COLOR: blue; FONT-SIZE: 8pt">=comments</span><span style="LINE-HEIGHT: 115%; FONT-SIZE: 8pt">/<span style="COLOR: blue">comment}" ...</span></span></div> <div style="MARGIN: 0cm 0cm 10pt">Ma che fine ha fatto l’usuale <strong><em>Path </em></strong>del binding classico? Forse che il parser XmlProvider l’ha reso inutile? Non del tutto, se lo si cerca col lanternino:</div> <div style="LINE-HEIGHT: normal"><span style="COLOR: blue; FONT-SIZE: 8pt"><</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">TextBlock</span><span style="COLOR: red; FONT-SIZE: 8pt"> Text</span><span style="COLOR: blue; FONT-SIZE: 8pt">="{</span><span style="COLOR: #a31515; FONT-SIZE: 8pt">Binding</span><span style="COLOR: red; FONT-SIZE: 8pt"> Path</span><span style="COLOR: blue; FONT-SIZE: 8pt">=InnerText}"/></span></div> <div style="LINE-HEIGHT: normal"> </div> <div style="MARGIN: 0cm 0cm 10pt">In questo caso ci vuole Path anziché XPathin quanto occorre la proprietà <strong><em>InnerText </em></strong>dell’XmlElement <strong><em>TextBlock</em></strong>.</div> <div style="MARGIN: 0cm 0cm 10pt">Ci sarebbero diverse altre sottigliezze da trattare, ma mi fermo qui. Il codice fornito funziona, almeno come ricetta, e mutatis mutandis può essere adattato abbastanza agevolmente ad analoghe necessità. Per saperne di più si vada a leggere il Capitolo 11 dell’opera citata all’inizio.</div><img src="http://blogs.wpfitalia.it/GianniGiaccaglini/aggbug/91.aspx" width="1" height="1" /> Gianni Giaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/09/14/Visore-di-archivio-XML-tramite-binding.aspx Wed, 14 Sep 2011 14:42:16 GMT http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/09/14/Visore-di-archivio-XML-tramite-binding.aspx#feedback 21 http://blogs.wpfitalia.it/GianniGiaccaglini/comments/commentRss/91.aspx Binding ADO tramite classe ad hoc http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/09/08/Binding-ADO-tramite-classe-ad-hoc.aspx <font color="#17365d" size="7"><font color="#17365d" size="7"> <p>Binding ADO tramite classe ad hoc</p> </font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Il binding su dataset ADO, tema ovviamente centrale nel mondo WPF, può essere implementato in vari modi. Il più semplice sfrutta il controllo DataGrid (grossomodo equivalente al DataGridView dei Form). Il caso qui discusso è tratto da <strong><em>WPF in action</em>, </strong>un manuale dell’Editore Manning</p> </font></font><a href="http://www.manning.com/">(<u><font color="#0000ff" size="3" face="Calibri"><font color="#0000ff" size="3" face="Calibri"><font color="#0000ff" size="3" face="Calibri">www.manning.com</font></font></font></u></a><font size="3" face="Calibri"><font size="3" face="Calibri">) che chi scrive ha già raccomandato in questo blog. Il metodo adottato si basa su una classe specifica che definisce un semplice dataset formato da due tabelle, con proprietà che corrispondono ai rispettivi campi unitamente a metodi opportuni per crearle e gestirle, dopo di che istruzioni binding associate a controlli della finestra WPF, tipicamente delle TextBox, provvedono automaticamente ad attingere i valori dei campi desiderati.</font></font><strong><font color="#365f91" size="4" face="Calibri"><font color="#365f91" size="4" face="Calibri"><font color="#365f91" size="4" face="Calibri"> <p>Preparazione del progetto</p> </font></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>La nostra mini applicazione ha lo scopo di gestire un insieme di indicatori (bookmars) relativi a postazioni web di vario genere. La classe in esame, denominata <strong>Biblioteca</strong>, possiede come tabella principale una <strong>Bookmarks </strong>per l’appunto, dotata di campi ovvero colonne (Column nel gergo ADO) <em>Id, Titolo, Uri, Genere </em>e <em>UltimaMod </em>(data dell’ultima modifica)<em>.</em> Una seconda tabella reca invece i campi <em>Nome </em>e <em>Quant </em>(si noterà poi che, di fatto, non tutti i campi, pensati per rendere la classe più aperta, sono<em> </em>utilizzati nella mia soluzione).</p> <p>Dal sito seguente si può scaricare un archivio <strong>Bibliotecario.zip </strong>comprendente l'omonimo eseguibile (<u>fruibile solo su PC ove è installato VisualStudio 2010</u>) più una figura .jpg che mostra il risultato da conseguire:</p> <p><a href="http://www.giannigiaccaglini.it/download/Bibliotecario.zip">http://www.giannigiaccaglini.it/download/Bibliotecario.zip</a></p> <p>Da cui si può notare che il cuore della finestra primaria sta nel riquadro in alto a sinistra. Come vedremo si tratta di una <strong>ListWiew</strong> dotata di colonne intestate (Nome e URL), ciascuna comprendente i campi ricavati tramite binding a proprietà delle classi Biblioteca fin d’ora ben intuibili (relative in particolare alla tabella <strong>Bookmars</strong>). Selezionando e cliccando su un segnalibro si ottiene la comparsa del Genere (Editore, Sito o quant’altro) in alto a destra, mentre l’indirizzo URL viene replicato più sotto. Evidente lo scopo dei pulsanti di comando in basso.</p> <p>La prima operazione da compiere, fin dalla creazione del progetto, è l’assegnazione di un nome. Scegliamo, con qualche enfasi,<strong> Bibliotecario</strong>.</p> <p>Allo scopo di rendere accessibile la classe <strong>Biblioteca,</strong> descritta in dettaglio fra poco unitamente al dataset <strong>Biblio</strong> che ne costituisce la base, occorrono due modifiche di tipo <strong><em>local</em> al file <strong>Application.xml</strong>, che riporto per intero, per massima comodità:</strong></p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="EN"> <p> </p> </span><span lang="IT"> <p></</p> </span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="EN"> <p>Imports</p> <p>Imports System.IO</p> <p>Imports System.ComponentModel</p> </span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="IT"> <p>#Region</p> </span><span lang="EN">Biblio.Tables(</span><font size="3" face="Calibri"><font size="3" face="Calibri"><span lang="IT"> <p>I commenti che sto per esporre hanno natura descrittiva, essendo la conoscenza di ADO un presupposto (ma questa soluzione, volendo, funziona pure come ricetta). Cominciamo con i metodi <strong><em>Load </em>e <strong><em>Save</em> che ben si vedano sopra questo paragrafo. Come anticipato, il primo legge lo schema <strong>BiblioFileName</strong>, definito nell’archivio <strong>bookmarks.library</strong>, mentre Save accetta le modifiche apportate assegnando i dati default e, inoltre, trascrive il predetto schema. Per visualizzarlo è sufficiente aprire bookmarks.library, file automaticamente creato e collocato accanto all’eseguibile finale <strong>Bibliotecario.exe</strong>. Si può visualizzarlo con un editor di testo (Notepad incluso), comunque lo riporto qui sotto per comodità dei pigri:</strong></strong></p> </span><span lang="EN"><xs:element name="Bibliotecario" msdata:IsDataSet="true" msdata:UseCurrentLocale="true"></span><span lang="IT"><Titolo>O’ Reilly</Titolo></span><span lang="EN"></Bookmarks></span><span lang="IT"><Genere>Editore</Genere></span><span lang="EN"></Bookmarks></span><span lang="IT"><Genere>Sito</Genere></span><span lang="EN"></Bookmarks></span><span lang="IT"><Quant>0</Quant></span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="EN"> <p>#Region</p> </span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="IT">End</span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="EN"> <p>Public</p> <p>Bookmarks.Rows.Add(</p> <p>Biblio.AcceptChanges()</p> <p><strong>NotifyPropertyChanged(</strong></p> </span><font size="3" face="Calibri"><font size="3" face="Calibri"><span lang="IT"> <p>L’istruzione conclusive, evidenziata in grassetto, secondo gli Autori del sullodato manuale Manning è quella che assicura il binding tra i campi delle tabelle di Biblio e i componenti di MainWindow.xaml. Francamente però il meccanismo di tale "magia" (proprio così la indicano i nostri autori) non mi è parso troppo chiaro. Così ho osato eliminare non solo l’istruzione <strong><em>NotifyPropertyChanged("Bookmarks") </em>ma l’intero meccanismo di questa interfaccia, vale a dire l’intera Region "INotifyPropertyChanged" e l’istruzione iniziale <strong><em>Implements INotifyPropertyChanged</em>. Risultato: <u>l’applicativo continua a funzionare! </u><strong> <p>Nota</p> <p>A questo punto affido il resto dei metodi e proprietà della classe Biblioteca all’esegesi autogestita di quanti possiedono perlomeno i rudimenti di ADO.</p> </strong>. Ovvero sembra che la soluzione se la cavi con le sole istruzioni ADO. Se qualche esperto è in grado di chiarire questo mistero, si faccia avanti.</strong></strong></p> </span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="EN"> <p><</p> </span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="IT"><</span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="EN"></</span><span lang="IT"> <p></</p> </span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="EN"> <p>Class</p> </span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="IT">Dim</span><span lang="EN">Biblio.Save()</span><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><span lang="IT">MessageBox</span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="EN">End</span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="IT">Dim</span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="EN">End</span><font size="3" face="Calibri"><font size="3" face="Calibri"><span lang="IT"> <p>L’interfaccia <strong><em>INotifyPropertyChanged</em> , come dice il suo nome, interviene con un evento scatenantesi quando una certa proprietà viene aggiornata. Essendo meno nota della più popolare <strong><em>IComparable </em>ne riprendo quasi pari pari l’esempio della Guida:</strong></strong></p> </span><span lang="EN"> <p>' Direttive Imports </p> </span><span lang="IT">... Omissis ...</span><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><span lang="EN"> <p>Public</p> <p> </p> </span><span lang="IT">ValNome = value</span><span lang="EN">NotifyPropertyChanged(</span><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"><span lang="IT">' aggiornata la proprietà passata come argomento (propertyName) </span><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><span lang="EN">Public</span><span lang="IT">La conoscenza delle interfacce è un prerequisito, pertanto spero che bastino ii commenti incorporati, tuttavia insisto nel sottolineare l’assoluta necessità di inserire <em>Implements INotifyPropertyChanged.PropertyChanged </em>anche accanto al metodo NotifyPropertyChanged</span><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><span lang="EN"> <p><</p> </span><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><span lang="IT"><</span><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><span lang="EN"> <p> </p> </span><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><span lang="IT"></</span><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><span lang="EN"> <p>Private</p> <p> </p> </span><font size="1" face="Courier New"><font size="1" face="Courier New"><span lang="IT"> <p> </p> </span><span lang="EN"> <p> </p> </span><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><span lang="IT"> <p>End</p> </span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="EN"> <p>Private</p> </span><span lang="IT"> <p> </p> </span><span lang="EN"> <p> </p> </span><font size="1" face="Consolas"><font size="1" face="Consolas"><span lang="IT"> <p> </p> </span><font size="1" face="Consolas"><font size="1" face="Consolas"><span lang="EN"> <p>W1.Close()</p> <p> </p> </span><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><span lang="IT"> <p>End</p> </span><strong><font size="1" face="Consolas"><font size="1" face="Consolas"><span lang="EN"> <p> </p> </span><font size="3" face="Calibri"><font size="3" face="Calibri"><span lang="IT"> <p>sono state rigettate e accettate solo dopo un primo clic su <strong>F5</strong>, inoltre nel riquadro <em>Progettazione </em>della Mainwindow perdurano in alto messaggi di errore che indicano l'impossibilità di trovare Biblioteca! cui si accompagna l'impossibilità di usare la Casella strumenti per apportare modifiche (cosa che respa possibile nel sottostante riquadro XAML).</p> <p>Ho motivo di temere che a queste difficoltà andranno incontro molti altri soggetti di media competenza. Di qui l'appello ai massimi esperti:</p> <u> <p>per favore chiarite al popolo le possibili cause, indicando con chiari DETTAGLI i passi da compiere per evitarle!</p> </u></span></font></font><font size="2" face="Arial"><font size="2" face="Arial" /></font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">xmlns</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">:</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">local</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="clr-namespace:Bibliotecario"</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Application.Resources</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><strong><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">local</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">:</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Biblioteca</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> x</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">:</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">Key</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Biblio" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Application.Resources</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font></strong></strong></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Nessun rilievo tranne sottolineare l’importanza, in luogo del normale <strong><em>Show</em>, del metodo <strong><em>ShowDialog </em>che "mette in primo piano" la Window1, restituendo alla chiusura i dati immessi dall’utente.</strong></strong></p> </font></font><strong><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"> <p>Problemi possibili...</p> </font></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Anzi probabili, che chi scrive confessa di aver risolto sì (come dimostra il mini applicativo Bibliotecario.exe) ma fortunosamente. Il punto è che le istruzioni</p> </font></font></strong></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Exit Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">If</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p>Biblio.AddBookmark(Txt1, Txt2, Txt3)</p> </font></font></font></font><font color="#008000" size="1" face="Consolas"><font color="#008000" size="1" face="Consolas"><font color="#008000" size="1" face="Consolas">' MessageBox.Show("Tutte le caselle di testo andavano riempite!")</font></font></font></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Aggiungi(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> sender </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Object</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> e </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">RoutedEventArgs</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Dim</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Biblio </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Biblioteca</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> = </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">CType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(FindResource(</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Biblio"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">), </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Biblioteca</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Dim</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> W1 </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">New</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Window1</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p>W1.ShowDialog()</p> <p> </p> <p> </p> <p> </p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Dim</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Txt1 = W1.TextBox1.Text</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Dim</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Txt2 = W1.TextBox2.Text</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Dim</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Txt3 = W1.TextBox3.Text</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">If</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Txt1 = </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">""</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Or</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Txt2 = </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">""</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Or</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> txt3 = </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">""</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Then</font></font></font></font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Sub</font></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Dopo di che la nuova Sub Aggiungi si presenta così:</p> </font></font></font></font><font color="#2b91af" size="1" face="Courier New"><font color="#2b91af" size="1" face="Courier New"><font color="#2b91af" size="1" face="Courier New">MessageBox</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New">.Show(</font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">"Tutte le caselle di testo vanno rienmpite!"</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New">)</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Exit Sub</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">End</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">If</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Me</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New">.Close()</font></font></font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Sub</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> btnOK_Click(</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">ByVal</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> sender </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">As</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> System.</font></font><font color="#2b91af" size="1" face="Courier New"><font color="#2b91af" size="1" face="Courier New"><font color="#2b91af" size="1" face="Courier New">Object</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New">, </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">ByVal</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> e </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">As</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> System.Windows.</font></font><font color="#2b91af" size="1" face="Courier New"><font color="#2b91af" size="1" face="Courier New"><font color="#2b91af" size="1" face="Courier New">RoutedEventArgs</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New">) </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Handles</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> btnOK.Click</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">If</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> TextBox1.Text = </font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">""</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Or</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> TextBox2.Text = </font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">""</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Or</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> TextBox3.Text = </font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">""</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Then</font></font></font></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">Grid</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">Window</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">></font></font></font><font color="#0000ff" size="2" face="Consolas"><font color="#0000ff" size="2" face="Consolas"><font color="#0000ff" size="2" face="Consolas" /></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Essa fornisce tre TextBox affiancate a sinistra da Label contenenti "Nome:", "Indirizzo URL" e "Genere" indicanti a chiare lettere il significato delle caselle di testo, più un pulsante "OK", associato a questa routine cliccante, che obbliga l’utente a completare tutte e tre le caselle::</p> </font></font></font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">RowDefinition</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"> /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">RowDefinition</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"> /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">RowDefinition</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"> /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">RowDefinition</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"> /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"></</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">Grid.RowDefinitions</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">Label</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Content</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Nome:"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Height</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="30"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> HorizontalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Left"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Margin</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="16,29,0,0"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Name</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Label1"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> VerticalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Top"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Width</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="81" /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">TextBox</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Height</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="36"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> HorizontalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Right"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Margin</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="0,28,4,0"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Name</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="TextBox1"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> VerticalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Top"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Width</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="248" /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">Label</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Grid.Row</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="1"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Content</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">= "Indirizzo URL:"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Height</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="30"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> HorizontalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Left"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Margin</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="16,29,0,0"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Name</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Label2"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> VerticalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Top"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Width</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="81" /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">TextBox</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Grid.Row</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="1"</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New">Height</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="36"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> HorizontalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Right"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Margin</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="0,28,4,0"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Name</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="TextBox2"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> VerticalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Top"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Width</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="248" /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">Label</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Grid.Row</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="2"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Content</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Genere:"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Height</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="30"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> HorizontalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Left"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Margin</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="16,29,0,0"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Name</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Label3"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> VerticalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Top"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Width</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="81" /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">TextBox</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Grid.Row</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="2"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Height</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="36"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> HorizontalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Right"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Margin</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="0,28,4,0"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Name</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="TextBox3"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> VerticalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Top"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Width</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="248" /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">Button</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Grid.Row</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="3"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Name</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="btnOK"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Content</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="OK"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Margin</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="111,21,142,12"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> HorizontalAlignment</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Center"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Width</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="132" /></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> <p></</p> </font></font></font></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">Grid.RowDefinitions</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">></font></font></font></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">Window</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> x</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">:</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New">Class</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Window1"</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New">xmlns</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="http://schemas.microsoft.com/winfx/2006/xaml/presentation"</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New">xmlns</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">:</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New">x</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="http://schemas.microsoft.com/winfx/2006/xaml"</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New">Title</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="Immetti dati"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Height</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="300"</font></font></font><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"><font color="#ff0000" size="1" face="Courier New"> Width</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">="407"></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><</font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">Grid</font></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">></font></font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"> <p> </p> </font></font></font></font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Sub</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> NotifyPropertyChanged(</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">ByVal</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> propertyName </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">As</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">String</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New">)_</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Implements</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">INotifyPropertyChanged</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.PropertyChanged </font></font><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New">' Da NON dimenticare!</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> <p> </p> <p>End</p> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">RaiseEvent</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> PropertyChanged(</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Me</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New">, </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">New</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> PropertyChangedEventArgs(propertyName))</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">End</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Sub</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Class</font></font></font><strong><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Nota. </p> </font></font><strong><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"> <p>Un perfezionamento del metodo Aggiungi</p> </font></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Per lo scopo didattico primario ho previsto l’aggiunta di un record fisso (relativo a Wikipedia). Ma alla fine ho escogitato una semplice miglioria, basata sull’utilizzo di una seconda Window1:</p> </font></font></strong></strong></font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> <strong> <p> </p> </strong></font></font></font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Class</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> Persona</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Implements</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New">INotifyPropertyChanged</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Private</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> ValNome </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">As</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">String</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Public</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Property</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> Nome() </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">As</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">String</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Get</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> <p> </p> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Return</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> ValNome</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">End</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Get</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> <p> </p> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Set</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New">(</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">ByVal</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> value </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">As</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">String</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New">)</font></font><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"> <p>' Quando la proprietà cambia attiva la routine NotifyPropertyChanged</p> </font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> <p> </p> </font></font><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New"><font color="#a31515" size="1" face="Courier New">"Nome"</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New">)</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">End</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Set</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">End</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Property</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New">' Dichiara l’evento PropertyChanged </font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> <p> </p> <p> </p> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Public</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Event</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> PropertyChanged </font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">As</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> PropertyChangedEventHandler _</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New">Implements</font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> INotifyPropertyChanged.PropertyChanged</font></font><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New">' NotifyPropertyChanged lancia l’evento PropertyChanged allorché viene </font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> <p> </p> </font></font></font></font><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New" /></font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"> <p>Imports</p> </font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> System.ComponentModel</font></font><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"><font color="#0000ff" size="1" face="Courier New"> <p>Imports</p> <p> </p> <p>　</p> </font></font></font><font size="1" face="Courier New"><font size="1" face="Courier New"> System.Windows.Data</font></font><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"><font color="#008000" size="1" face="Courier New"> <p>' Classe che implementa l’interfaccia INotifyPropertyChanged </p> </font></font></font></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Class</font></font></font><strong><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"> <p>Richiamo su INotifyPropertyChanged</p> </font></font></font></strong></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Biblio </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Biblioteca</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> = </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">CType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(FindResource(</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Biblio"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">), </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Biblioteca</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Wikipedia"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"http://www.wikipedia.it"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Sito"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Try</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p> </p> <p>Biblio.AddBookmark(</p> <p> </p> <p>End</p> <p>　</p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Private</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Aggiungi(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> sender </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Object</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> e </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">RoutedEventArgs</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.Show(</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Si deve prima selezionare un record!"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Biblio </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Biblioteca</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> = </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">CType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(FindResource(</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Biblio"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">), </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Biblioteca</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p> </p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Private</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Cancella(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> sender </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Object</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> e </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">RoutedEventArgs</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Dim</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> row </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">DataRowView</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> = </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">CType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(bookmarks.SelectedItem, </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">DataRowView</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Try</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p>row.Delete()</p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Catch</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> ex </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Exception</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p> </p> </font></font></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">MainWindow</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p>Close()</p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Private</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Chiudi(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> sender </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Object</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> e </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">RoutedEventArgs</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p> </p> <p> </p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Private</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Salva(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> sender </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Object</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> e </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">RoutedEventArgs</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">StackPanel</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Grid</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> DockPanel.Dock</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Bottom"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> DataContext</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="{</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Binding</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> ElementName</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">=bookmarks,</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Path</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">=SelectedItem}"></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Grid.ColumnDefinitions</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">ColumnDefinition</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Width</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="1*" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">ColumnDefinition</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Width</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="1*" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Grid.ColumnDefinitions</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Grid.RowDefinitions</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">RowDefinition</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Height</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="1*" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">RowDefinition</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Height</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="1*" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Grid.RowDefinitions</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">DockPanel</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Grid.Column</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="0"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Grid.Row</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="0"></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Label</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> MinWidth</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="50"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> DockPanel.Dock</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Left"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Content</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Titolo:" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">TextBox</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Text</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="{</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Binding</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Path</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">=Titolo}" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">DockPanel</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">DockPanel</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Grid.Column</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="1"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Grid.Row</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="0"></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Label</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> MinWidth</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="50"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> DockPanel.Dock</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Left"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Content</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Genere:" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">TextBox</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Margin</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="0,0,10,0"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Text</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="{</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Binding</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Path</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">=Genere}" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">DockPanel</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">DockPanel</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Grid.Column</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="0"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Grid.Row</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="1"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Grid.ColumnSpan</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="2"></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Label</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> MinWidth</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="50"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Content</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="URL:"/></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">TextBox</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Margin</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="0,0,10,0"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Text</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="{</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Binding</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Path</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">=Uri}"/></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">DockPanel</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">ListView</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Name</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="bookmarks"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> <p>ItemsSource</p> <p>"{</p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">=</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Binding</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Source</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">={</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">StaticResource</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Biblio</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">},</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Path</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">=Bookmarks}"></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">ListView.View</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">GridView</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">GridViewColumn</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Header</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Nome"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> <p>DisplayMemberBinding</p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="{</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Binding</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Path</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">=Titolo}"/></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">GridViewColumn</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Header</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="URL"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> <p>DisplayMemberBinding</p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="{</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Binding</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Path</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">=Uri}"/></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">GridView</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">ListView.View</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">ListView</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Grid</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">DockPanel</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Window</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>I commenti? Questo intervento si rivolge a gente di medio calibro, che come minimo possiede un’infarinatura sulle tecniche binding, pertanto li affido interamente all’esegesi autogestita, favorita, spero, da un certa eloquenza del codice XAML.</p> </font></font><strong><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"> <p>Codice MainWindow.xaml.VB</p> </font></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>È relativo agli eventi click dei vari pulsanti e a questo punto non resta che riportarlo senza ulteriori commenti, salvo osservare che per estrema brevità il metodo <strong>Aggiungi </strong>prevede l’aggiunta di un sito costante:</p> </font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p>Biblio.AddBookmark(</p> </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Wikipedia"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"http://www.wikipedia.it"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Sito"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Lasciamo a chi fosse interessato la facile modifica ottenuta aggiungendo tre opportune caselle di testo.</p> </font></font></strong></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Button</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> MinWidth</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="60"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Content</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Salva"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Click</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Salva" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Button</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> MinWidth</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="60"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Content</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Cancella"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Margin</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="30,0,0,0"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> <p>Click</p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Cancella" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Button</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> MinWidth</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="60"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Content</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Aggiungi"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Click</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Aggiungi" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Window</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> x</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">:</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">Class</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="MainWindow"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">xmlns</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="http://schemas.microsoft.com/winfx/2006/xaml/presentation"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">xmlns</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">:</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">x</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="http://schemas.microsoft.com/winfx/2006/xaml"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">Title</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="MainWindow"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Height</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="350"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Width</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="525"></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">DockPanel</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> LastChildFill</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="True"></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">StackPanel</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Orientation</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Horizontal"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> DockPanel.Dock</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Bottom"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">FlowDirection</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="RightToLeft"></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Button</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> MinWidth</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="60"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Content</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Chiudi"</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> Click</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Chiudi" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font></font></font><strong><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"> <p>Codice XAML della finestra WPF</p> </font></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Lo riporto interamente qui di seguito.</p> </font></font></strong></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> AddBookmark(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Nome </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> url </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Genere </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">New</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Object</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">() {System.</font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Math</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.Max(System.Threading.</font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Interlocked</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.Increment(bookmarkIdent), bookmarkIdent - 1), Nome, url, Genere, </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">DateTime</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.Now})</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Bookmarks"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"> <p>End</p> </font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Region</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas" /></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Tale metodo agisce quando la proprietà-argomento <strong><em>propertyName </em>subisce modifiche. Nel nostro caso ciò avviene in occasione dell’aggiunta di un bookmarck:</strong></p> </font></font></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"INotifyPropertyChanged"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p>#End</p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Public</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Event</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> PropertyChanged </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">PropertyChangedEventHandler</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> _</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Implements</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">INotifyPropertyChanged</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.PropertyChanged</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Private</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> NotifyPropertyChanged(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> propertyName </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">[String]</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">RaiseEvent</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> PropertyChanged(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Me</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">New</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">PropertyChangedEventArgs</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(propertyName))</font></font></font></font><font size="1" face="Calibri"><font size="1" face="Calibri"> <p><?xml version="1.0" standalone="yes"?></p> <p><Bibliotecario></p> <p><xs:schema id="Bibliotecario" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata"></p> <p> </p> <p><xs:complexType></p> <p><xs:choice minOccurs="0" maxOccurs="unbounded"></p> <p><xs:element name="Bookmarks"></p> <p><xs:complexType></p> <p><xs:sequence></p> <p><xs:element name="Id" type="xs:int" minOccurs="0" /></p> <p><xs:element name="Titolo" type="xs:string" minOccurs="0" /></p> <p><xs:element name="Uri" type="xs:string" minOccurs="0" /></p> <p><xs:element name="Genere" type="xs:string" minOccurs="0" /></p> <p><xs:element name="UltimaMod" type="xs:dateTime" minOccurs="0" /></p> <p></xs:sequence></p> <p></xs:complexType></p> <p></xs:element></p> <p><xs:element name="Ident"></p> <p><xs:complexType></p> <p><xs:sequence></p> <p><xs:element name="Nome" type="xs:string" minOccurs="0" /></p> <p><xs:element name="Quant" type="xs:int" minOccurs="0" /></p> <p></xs:sequence></p> <p></xs:complexType></p> <p></xs:element></p> <p></xs:choice></p> <p></xs:complexType></p> <p></xs:element></p> <p></xs:schema></p> <p><Bookmarks></p> <p><Id>1</Id></p> <p> </p> <p><Uri>http://www.oreilly.com/</Uri></p> <p><Genere>Editore</Genere></p> <p><UltimaMod>2011-09-01T11:16:17.9401388+02:00</UltimaMod></p> <p> </p> <p><Bookmarks></p> <p><Id>2</Id></p> <p><Titolo>Manning</Titolo></p> <p><Uri>http://www.Manning.com/</Uri></p> <p> </p> <p><UltimaMod>2011-09-01T11:16:17.9401388+02:00</UltimaMod></p> <p> </p> <p><Bookmarks></p> <p><Id>3</Id></p> <p><Titolo>WPF Tips &amp; tricks</Titolo></p> <p><Uri>http://www.wpfitalia.it/</Uri></p> <p> </p> <p><UltimaMod>2011-09-01T11:16:17.9401388+02:00</UltimaMod></p> <p> </p> <p><Ident></p> <p><Nome>Bookmarks</Nome></p> <p> </p> <p></Ident></p> <p></Bibliotecario></p> </font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>L’eloquenza dello schema non pensa meriti altri commenti.</p> </font></font><strong><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"> <p>L’interfaccia INotifyPropertyChanged: ma serve davvero?</p> </font></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Proseguiamo nel nostro giro esplorativo, riportando di nuovo la regione relativa all’evento scatenato dall’interfaccia <strong><em>INotityPropertyChanged</em> (non a tutti ben nota, più avanti riporto quel che ne dice la Guida):</strong></p> </font></font></strong></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Operazioni sui dati"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p> </p> <p>AddBookmark(</p> <p>AddBookmark(</p> <p>AddBookmark(</p> <p>Biblio.AcceptChanges()</p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Private</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> CreaBookmarksDefault()</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Ident"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">).Rows.Add(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">New</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Object</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">() {</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Bookmarks"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, bookmarkIdent})</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"O’ Reilly"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"http://www.oreilly.com/"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Editore"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Manning"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"http://www.Manning.com/"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Editore"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"WPF Tips & tricks"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"http://www.wpfitalia.it/"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Sito"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p>Biblio.ReadXml(BiblioFilename, </p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Public</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Load()</font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">XmlReadMode</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.ReadSchema)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p>Biblio.AcceptChanges()</p> <p>Biblio.WriteXml(BiblioFilename, </p> <p> </p> <p>#End</p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Public</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Save()</font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">XmlWriteMode</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.WriteSchema)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Region</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas" /></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"> <p>#Region</p> </font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"INotifyPropertyChanged"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p>#End</p> <p>End</p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Public</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Event</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> PropertyChanged </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">PropertyChangedEventHandler</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> _</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Implements</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">INotifyPropertyChanged</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.PropertyChanged</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Private</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> NotifyPropertyChanged(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> propertyName </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">RaiseEvent</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> PropertyChanged(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Me</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">New</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">PropertyChangedEventArgs</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(propertyName))</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Region</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Class</font></font></font><font size="2" face="Consolas"><font size="2" face="Consolas" /></font></font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">System.Data</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas" /></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"> <p>Public</p> </font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Class</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Biblioteca</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Implements</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">INotifyPropertyChanged</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Public</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Biblio </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">DataSet</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Private</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> bookmarkIdent </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Integer</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> = 0</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Private</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> BiblioFilename </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> = </font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"bookmarks.library"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p>CreaFonteDati()</p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Public</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">New</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">()</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">If</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Not</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">File</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.Exists(BiblioFilename) </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Then</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p>CreaBookmarksDefault()</p> <p>Save()</p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Else</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p>Load()</p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">If</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p>Biblio = </p> <p> </p> <p> </p> <p>.Columns.Add(</p> <p>.Columns.Add(</p> <p>.Columns.Add(</p> <p>.Columns.Add(</p> <p>.Columns.Add(</p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Private</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> CreaFonteDati()</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">New</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">DataSet</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Bibliotecario"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Dim</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Bookmarks </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">New</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">DataTable</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Bookmarks"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">With</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Bookmarks</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Id"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">GetType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(</font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Int32</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">))</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Titolo"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">GetType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">))</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Uri"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">GetType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">))</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Genere"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">GetType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">))</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"UltimaMod"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">GetType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(</font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">DateTime</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">))</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">With</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p> </p> <p>.Columns.Add(</p> <p>.Columns.Add(</p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Dim</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Ident </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">New</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">DataTable</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Ident"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">With</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Ident</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Nome"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">GetType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">))</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Quant"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">GetType</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">(</font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Int32</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">))</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">With</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p>Biblio.Tables.Add(Bookmarks)</p> <p>Biblio.Tables.Add(Ident)</p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Public</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ReadOnly</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Property</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Bookmarks() </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">DataTable</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Get</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Return</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Biblio.Tables(</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Bookmarks"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Get</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Property</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> <p>Bookmarks.Rows.Add(</p> <p>Biblio.AcceptChanges()</p> <p>NotifyPropertyChanged(</p> <p> </p> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Public</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> AddBookmark(</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Nome </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> url </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">, </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">ByVal</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> Genere </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">As</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">String</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">New</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Object</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">() {System.</font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Math</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.Max(System.Threading.</font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">Interlocked</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.Increment(bookmarkIdent), bookmarkIdent - 1), Nome, url, Genere, </font></font><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas"><font color="#2b91af" size="1" face="Consolas">DateTime</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">.Now})</font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">"Bookmarks"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas">)</font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">End</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> </font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">Sub</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas" /></font></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><Application</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> x</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">:</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">Class</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Application"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">xmlns</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="http://schemas.microsoft.com/winfx/2006/xaml/presentation"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">xmlns</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">:</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">x</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="http://schemas.microsoft.com/winfx/2006/xaml"</font></font></font><strong><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">xmlns</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">:</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">local</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="clr-namespace:Bibliotecario"</font></font></font><font size="1" face="Consolas"><font size="1" face="Consolas"> <p> </p> </font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">StartupUri</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="MainWindow.xaml"></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Application.Resources</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><strong><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">local</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">:</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Biblioteca</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"> x</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">:</font></font></font><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas"><font color="#ff0000" size="1" face="Consolas">Key</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">="Biblio" /></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"> <p> </p> </font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"></</font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Application.Resources</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas"><font color="#a31515" size="1" face="Consolas">Application</font></font></font><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas"><font color="#0000ff" size="1" face="Consolas">></font></font></font><font size="2" face="Consolas"><font size="2" face="Consolas" /></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Delle due direttive locali evidenziate in grassetto, la cui sintassi do per nota, la prima aggiunge il namespace dell’intero progetto (<strong>Bibliotecario</strong>) la seconda punta alla classe <strong>Biblioteca</strong> con il dataset <strong>Biblio</strong> che funge da chiave (<em>x:Biblio</em>).</p> </font></font><strong><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"><font color="#365f91" size="4" face="Cambria"> <p>La classe Biblioteca e il suo dataset Bibliotecario</p> </font></font></font><font size="3" face="Calibri"><font size="3" face="Calibri"> <p>Senza troppo indugiare riportiamo subito l’intero codice, commentandone rapidamente le prime righe. Le direttive Imports "arruolano" le librerie per accesso a dati ADO, per l’Input/output e quella per il ComponentModel, indispensabile per gestire l’Interfaccia INotifyPropertyChanged, che viene subito fissata con la specifica istruzione <strong><em>Implements</em>. Seguono le variabili <strong><em>Biblio</em> (di tipo pubblico, dovendo questo dataset essere visibile all’esterno della classe), <strong><em>bookmarkIdent </em>(identificatore del bookmark) e <strong><em>BiblioFileName</em>, una stringa "bookmarks.library", che è il nome dell’archivio di tipo XML che descrive le caratteristiche strutturali dell’intero <strong>Bibliotecario</strong> (e non, si badi bene, della sola Biblioteca). Si osservi poi, in questa disamina iniziale, la routine d’avvio <strong><em>New</em>. Essa si preoccupa anzitutto di creare il dataset Biblio, quindi controlla l’esistenza o meno dell’archivio BiblioFilename provvedendo nel primo caso a creare dei bookmark default (O’Reylly, Manning e WPF Tips, v. figura precedente) e a salvare l’archivio <strong>bookmarks.library</strong> e le modifiche a Biblio (metodo <strong><em>Save</em>, v. più avanti)<strong><em> </em>o altrimenti a caricare (metodo <strong><em>Load</em>, v. più avanti) l’archivio <strong>bookmarks.library</strong>.</strong></strong></strong></strong></strong></strong></strong></strong></p> </font></font></strong></strong></strong></strong><img src="http://blogs.wpfitalia.it/GianniGiaccaglini/aggbug/89.aspx" width="1" height="1" /> Gianni Giaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/09/08/Binding-ADO-tramite-classe-ad-hoc.aspx Thu, 08 Sep 2011 10:10:38 GMT http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/09/08/Binding-ADO-tramite-classe-ad-hoc.aspx#feedback 15 http://blogs.wpfitalia.it/GianniGiaccaglini/comments/commentRss/89.aspx Uno sguardo a Windows Azure: il Table Storage http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/04/14/Uno-sguardo-a-Windows-Azure-il-Table-Storage.aspx <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Windows Azure<br /> Programmare per il Cloud Computing<br /> </strong>di <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Fabio Cozzolino<br /> </em></strong>Ediz. FAG</p> <p class="MsoNormal">Il <strong style="mso-bidi-font-weight: normal">Cloud Computing </strong>targato Microsoft è dietro l’angolo? Sarà facile, oltre che conveniente, creare nuove applicazioni su tale nuvola o riciclarne di preesistenti, possibilmente ri-usando codice che abbiamo sudato a creare e collaudare? A tutte queste domande dà un significativo contributo il manuale suddetto, in termini architetturali e pratici, con abbondanza di esempi validi:</p> <p class="MsoNormal">Approfittando dell’opera, in questo articolo mi propongo di focalizzare un aspetto non secondario di Azure, ovvero la prima delle seguenti due modalità che la piattaforma offre per la gestione di dati “classici”:</p> <ul style="MARGIN-TOP: 0cm" type="square"> <li style="mso-list: l0 level1 lfo4" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Table Storage</strong>, che a sua volta fa parte di un insieme di servizi, gli <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">Azure Storage Services</em></strong> </li> <li style="mso-list: l0 level1 lfo4" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Azure Sql</strong></li> </ul> <p class="MsoNormal">Tale scelta è giustificata in primo luogo dall’intenzione di limitarsi a fornire un’idea iniziale sul nuovo mondo, ma soprattutto per il fatto che Azure Sql è sostanzialmente conforme a Windows Sql Server 2008, mentre Table Storage ha connotati del tutto diversi e più affini all’ambiente Cloud, pertanto uno sguardo ad esso consente di farsene meglio una prima idea.</p> <p class="MsoNormal"> </p> <hr /> <p class="MsoNormal"><strong>MANI AVANTI</strong>: DESUMO QUESTE NOTE DAL TESTO SUCCITATO MA NON AVENDO PROVATO AZURE NON ESCLUDO INESATTEZZE E OPINIONI DISCUTIBILI. OGNI RILIEVO O CRITICA SARA' COMUNQUE BEN ACCETTA:</p> <p class="MsoNormal"> </p> <hr /> <p class="MsoNormal">Come viene ben richiamato nel primo capitolo, <st1:personname w:st="on" productid="la Windows Azure Platform"><st1:personname w:st="on" productid="la Windows Azure">la <strong style="mso-bidi-font-weight: normal"><span style="COLOR: #c00000">Windows Azure</span></strong></st1:personname><strong style="mso-bidi-font-weight: normal"><span style="COLOR: #c00000"> Platform</span></strong></st1:personname><strong style="mso-bidi-font-weight: normal"> </strong>è un cloud pubblico di tipo <strong style="mso-bidi-font-weight: normal">PaaS</strong> (Platform as a Service) che cioè non si limita a offrire un’infrastruttura – su cui peraltro Microsoft ha pesantemente investito con una gran quantità di superserver dislocati nel pianeta – ma un completo sistema operativo” virtualizzato” arricchito di molte funzionalità built-in, per gestire le quali l’utente di Azure (ma sarebbe meglio chiamarlo abbonato, anzi in Inglese si parla di “<em style="mso-bidi-font-style: normal">tenant</em>”, affittuario) non deve minimamente preoccuparsi. Di questi caratteri del paradigma Cloud e di Azure stesso ormai si straparla su tutte le gazzette informatiche e sul web, pertanto qui li do per noti, ricordando solo tre punti rilevanti:</p> <ul style="MARGIN-TOP: 0cm" type="disc"> <li style="mso-list: l1 level1 lfo3" class="MsoNormal">L’SDK fornito agli utenti Azure comprende un completo sistema di debug e sviluppo fruibile in locale, con un’interfaccia simile a quella cui i programmatori .NET sono avvezzi; una bella comodità anche se i risultati testati vanno poi adattati al Cloud a causa di qualche differenza fra ambiente locale, emulato, e ambiente reale su cui pubblicare le nostre applicazioni;</li> <li style="mso-list: l1 level1 lfo3" class="MsoNormal">Nel mondo Azure non si parla più di File System, ma di indirizzi internet, di qui una particolare sintassi (la cui trattazione sistematica non è oggetto di questo intervento, che però comunque ne fornisce spunti, spero, significativi);</li> <li style="mso-list: l1 level1 lfo3" class="MsoNormal">Azure è decisamente aderente alla filosofia <strong style="mso-bidi-font-weight: normal">SOA </strong>(Software As a Service), come già si comprende dagli Storage Services citati sopra. </li> </ul> <h2>Una tipica sessione con Azure Table Storage</h2> <p class="MsoNormal">I servizi <strong style="mso-bidi-font-weight: normal">Azure Storage Services </strong>comprendono a loro volta un modulo <strong style="mso-bidi-font-weight: normal">Table Storage Services </strong>più un secondo dedicato agli oggetti multimediali (<strong style="mso-bidi-font-weight: normal">blob</strong>,<strong style="mso-bidi-font-weight: normal"> </strong>binary large object) e altri due per la gestione delle cosiddette <strong style="mso-bidi-font-weight: normal">queue </strong>(code) e dei <strong style="mso-bidi-font-weight: normal">drive</strong>. In questa anteprima diamo un’occhiata solo ai primi.</p> <p class="MsoNormal">Una tabella gestita coi <strong style="mso-bidi-font-weight: normal">Table Storage Services </strong>è formata da colonne (campi) e righe (record) ma <u>non aderisce alle norme SQL</u> come magari ci si attende, tant’è vero che questo sistema database viene esplicitamente catalogata come <em style="mso-bidi-font-style: normal">NoSQL </em>(più chiaro di così...). Quindi, se per un verso questo dato di fatto ci libera dai “constraints” e dalle sottili regole dei database SQL veraci, per contro ci impone una totale responsabilità sulle modalità di elaborazione. In particolare ciò vale per le operazioni di join fra tabelle correlate, com’è da attendersi, ma rende problematiche anche quelle di ordinamento, come forse non tutti si aspettavano. La definizione stessa delle tabelle Azure ne viene influenzata (per esempio, creandone con molti più campi, con ridondanze più o meno inevitabili... beninteso è un’impressione a caldo).</p> <p class="MsoNormal">La situazione che sto per esaminare, sintetizzando gli esempi del bravo Cozzolino, discende in sostanza da due fattori:</p> <ul> <li> <div style="TEXT-INDENT: -18pt; mso-list: l2 level1 lfo1" class="MsoListParagraphCxSpFirst"><span style="FONT-FAMILY: Symbol; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol"><span style="mso-list: Ignore">·<span style="FONT: 7pt "Times New Roman""> </span></span></span>L’architettura <em style="mso-bidi-font-style: normal">SOA</em>, <em style="mso-bidi-font-style: normal">service oriented </em>che è a fondamento di Azure (in pratica è del tutto simile ai <strong style="mso-bidi-font-weight: normal">WCF Data Services</strong>, ove WCF è Windows Comunication Foudation, comunque i brani riportati si lasciano comprendere o, perlomeno, intuire);</div> </li> <li> <div style="TEXT-INDENT: -18pt; mso-list: l2 level1 lfo1" class="MsoListParagraphCxSpLast"><span style="FONT-FAMILY: Symbol; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol"><span style="mso-list: Ignore">·<span style="FONT: 7pt "Times New Roman""> </span></span></span>La necessità di ottenere la massima scalabilità ed efficienza in un ambiente Cloud, ove i dati possono trovarsi (si perdoni l’espressione pittoresca) “spezzettati”, “sparpagliati” su macchine virtuali (VM) dislocate negli innumerevoli server che Microsoft mette a disposizione per <st1:personname w:st="on" productid="la piattaforma Azure">la piattaforma Azure</st1:personname>; in buona sostanza inoltre ciò significa che una tabella del genere potrebbe, nel tempo, essere spostata e trovarsi suddivisa su VM diversi.</div> </li> </ul> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #daeef3; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>. Questa situazione, di primo acchito un po’ sconcertante, accomuna gran parte se non tutte le piattaforme Cloud, allo scopo di massimizzare l’occupazione. Ma non potrebbero derivarne tempi di risposta eccessivi? Il dubbio esiste, comunque Azure li riduce con tecniche di query simultanee, inoltre permette ai propri abbonati di delimitare le aree geografiche (evitando putacaso che i dati di un italiano finiscano in India...).</p> <p class="MsoNormal">Ma entriamo in medias res con un esempio tipico, relativo a un oggetto <strong style="mso-bidi-font-weight: normal">Prodotto </strong>che si definisce tramite una classe dotata di proprietà che corrispondono ai campi di una omonima tabella, più altri tre campi a sorpresa - <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">PartitionKey</em></strong>, <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">RowKey </em></strong>e <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">TimeStamp </em></strong>- obbligatori e di nome predefinito:</p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">[DataServiceKey ("PartitionKey", "RowKey"]<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">Public Class Prodotto<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">{<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public String <strong style="mso-bidi-font-weight: normal">PartitionKey</strong> { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public String <strong style="mso-bidi-font-weight: normal">RowKey</strong> { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public DateTime <strong style="mso-bidi-font-weight: normal">TimeStamp</strong> { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public String NomeProd { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public Double Prezzo { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public Int Giacenza { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public Int ScortaMin { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">}<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal">La prima riga entro parentesi quadre è una tipica direttiva rivolta ai Table Storage Services che caratterizza la tabella secondo le due chiavi dette, la prima che fissa la partizione, la seconda che serve a individuare univocamente ciascuna riga.</p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #daeef3; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #daeef3; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>.<strong style="mso-bidi-font-weight: normal"> </strong>Per la cronaca, <em style="mso-bidi-font-style: normal">DataServiceKey </em>è contenuto nel namespace <em style="mso-bidi-font-style: normal">System.Data.Services.Common </em>dell’assembly <em style="mso-bidi-font-style: normal">System.Data.Services.Client.dll</em>. Ma è solo una citazione volante, in queste noterelle esplorative.</p> </div> <p class="MsoNormal">Ma cosa sono questi tre nuovi campi? Liquidato subito TimeStamp che corrisponde al dato “storico” che Azure Storage fissa in ciascun elemento, diciamo che:</p> <p style="TEXT-INDENT: -18pt; MARGIN-LEFT: 36pt; mso-list: l3 level1 lfo2" class="MsoNormal"><span style="mso-bidi-font-family: Calibri"><span style="mso-list: Ignore">-<span style="FONT: 7pt "Times New Roman""> </span></span></span><strong style="mso-bidi-font-weight: normal">RowKey</strong> dovrebbe servire a individuare univocamente il record;</p> <p style="TEXT-INDENT: -18pt; MARGIN-LEFT: 36pt; mso-list: l3 level1 lfo2" class="MsoNormal"><span style="mso-bidi-font-family: Calibri"><span style="mso-list: Ignore">-<span style="FONT: 7pt "Times New Roman""> </span></span></span><strong style="mso-bidi-font-weight: normal">PartitionKey</strong>, sulla carta più libero, assegna a ciascun elemento una categoria che Azure Storage utilizza per ripartire nel modo più efficiente le suddivisioni nelle sue VM, secondo il suo speciale algoritmo (totalmente trasparente a noi utilizzatori).</p> <p class="MsoNormal">Per capirci, nel nostro esempietto la RowKey sarebbe un codice prodotto, ovvero quello che nei casi normali della vita viene indicato con CodProd, CodArt e simili. Esempi analoghi: ISBN (per i libri), codice fiscale e via di seguito.</p> <p class="MsoNormal">Quanto alla chiave di partizione, in teoria potremmo persino definirla identica in tutti i record ad esempio con “MioProdotto”, una scelta idiota non solo priva di qualsiasi utilità ma che ostacolerebbe il corretto partizionamento e la scalabilità del sistema di storage in parola. La cosa più saggia è individuare una serie articolata di <u>categorie</u>, prendendo così due piccioni con una fava: far contento Azure e catalogare i nostri prodotti. In parole povere, immaginando articoli di abbigliamento, converrà adottare delle PartitionKey del tipo “Copricapi”, “Camicie”, “Giacche”, “Pantaloni”, “Abiti completi” e quant'altro.</p> <h2>Utilizzo dello storage in perfetto stile web</h2> <p class="MsoNormal">Una volta definita una classe relativa a una tabella dello Azure storage come la si gestisce? La risposta è esattamente quella che i più avveduti avranno ipotizzato, ritenendo che c’entri Internet, altrimenti di che Cloud stiamo parlando? Hanno ragione e infatti viene sfruttata l’interfaccia <strong style="mso-bidi-font-weight: normal">REST</strong> (Representation State Transfer) del protocollo HTTP in particolare mediante i verbi GET, PUT, POST e DELETE (e lo stesso vale per i blob e le queue). In questo bigino do per note le specifiche nozioni, dicendo che il libro di Cozzolino ne esemplifica dapprima l’utilizzo manuale, passando poi ad esempi di codice consentiti da provvidenziali API ad hoc (un’estensione dei WCF Data Service, come già detto). Per brevità riporto solo alcuni dei brani più significativi, con scarni commenti e facendo affidamento su una pur relativa eloquenza del codice, al di là dei suoi intrichi e bizantinismi coi quali occorrerà a suo tempo ammattire.</p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #daeef3; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #daeef3; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">NOTA</strong>. In quel che segue si fa riferimento alle risorse disponibili nel modulo <strong style="mso-bidi-font-weight: normal">Storage Emulator </strong><a name="rev2"></a><span style="mso-spacerun: yes"> </span>del provvidenziale SDK citato in apertura che, ripeto, permette debug e sviluppi in locale.</p> </div> <h2>Accesso allo storage e definizione di un Client</h2> <p class="MsoNormal">Il primo passo è la definizione di credenziali di accesso alla connessione, effettuata con una nuova istanza <strong style="mso-bidi-font-weight: normal">mioAccount </strong>dello <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">StorageCredentialsAccountAndKey</em></strong>, quindi di un nuovo <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">CloudStorageAccount </em></strong>impostandone gli “endpoint” da utilizzare:</p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">StorageCredentialsAccountAndKey AccountAndKey = <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt; mso-layout-grid-align: none" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>New StorageCredentialsAccountAndKey("devstoreaccount1", "</span><span style="FONT-FAMILY: Courier; FONT-SIZE: 9.5pt; mso-bidi-font-family: Courier; mso-ansi-language: EN-US; mso-fareast-language: IT" lang="EN-US">Eby8vdM02xNOcqFlqUwJPLlmEtlCDXJ1OUzFT50uSRZ6IFsuFq2UVErCz4I6tq/K1SZFPTOtr/KBHBeksoGMGw==</span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">")</span><span style="FONT-FAMILY: Courier; FONT-SIZE: 9.5pt; mso-bidi-font-family: Courier; mso-ansi-language: EN-US; mso-fareast-language: IT" lang="EN-US"><o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>CloudStorageAccount mioAccount = New CloudStorageAccount(AccountAndKey,<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>New Uri("http://127.0.0.1:10000/devstoreaccount1")<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>New Uri("http://127.0.0.1:10001/devstoreaccount1")<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>New Uri("http://127.0.0.1:10002/devstoreaccount1");<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal">Ove <em style="mso-bidi-font-style: normal">devstorageaccount1</em> è l’account default. Quanto alla lunga stringa seguente posta a secondo argomento <br /> “<span style="LINE-HEIGHT: 115%; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt; mso-fareast-language: IT">Eby8vdM02xNOcqFlqUwJPLlmEtlCDXJ1OUzFT50uSRZ6IFsuFq2UVErCz4I6tq/K1SZFPTOtr/KBHBeksoGMGw=="<o:p /></span></p> <p class="MsoNormal">si tratta della chiave default che ci passa il convento Storage Emulator, unitamente alle le porte di accesso ai blob, alle queue e alle table, vale a dire 10000, 10001 e 10002, rispettivamente. </p> <p class="MsoNormal">Subito dopo si provvederà alla creazione di una nuova istanza <strong style="mso-bidi-font-weight: normal">mioClient </strong>di un <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">CloudTableClient </em></strong>di cui fornisco un esempio affidato totalmente al carattere quasi auto-esplicativo del codice:</p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">CloudTableClient mioClient = <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>New CloudTableClient(mioAccount.TableEndPoint.ToString, AccountAndKey);<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">String[] Tabelle = mioClient.ListTables();<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoNormal">Ci si accontenti di sapere e... di credere sulla fiducia che la precedente riga di codice sfrutta <st1:personname w:st="on" productid="la proprietà ListTables">la proprietà <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">ListTables</em></strong></st1:personname><strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal"> </em></strong>di <strong style="mso-bidi-font-weight: normal">mioClient</strong> per ottenere un elenco di tutte le tabelle in esso presenti.</p> <h2>Creazione di una tabella</h2> <p class="MsoNormal">Dando sempre per intuitive le operazioni testé descritte, con discutibile audacia salto direttamente a un esempio completo per definire e creare una tabella <strong style="mso-bidi-font-weight: normal">Prodotti </strong>formata da oggetti della classe <strong style="mso-bidi-font-weight: normal">Prodotto </strong>vista sopra. Alla definizione di questa, che va messa in testa alla procedura, seguono le operazioni di accredito e di creazione di un <strong style="mso-bidi-font-weight: normal">mioClient</strong>, stavolta utilizzandone il metodo <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">CreateTableIfNotExist </em></strong>con il non inatteso argomento “Prodotti”. Tale metodo, palesemente, crea la tabella a patto che non ne esista già un’omonima e altri metodi, di chiara semantica, della stessa famiglia comprendono il (normale) <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">CreateTable</em></strong>, nonché <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">DeleteTable</em></strong>, <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">DeleteTableIfExist </em></strong>e l’appena visto <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">ListTables</em></strong>.</p> <p class="MsoNormal">Non è finita: gli ultimi atti del minidramma sono la creazione di un <strong style="mso-bidi-font-weight: normal">Contesto </strong>(di servizio tabellare), di tipo <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">TableServiceContext </em></strong>nel quale possiamo poi aggiungere un Prodotto.</p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">[DataServiceKey ("PartitionKey", "RowKey"]<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">Public Class Prodotto<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">{<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public String <strong style="mso-bidi-font-weight: normal">PartitionKey</strong> { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public String <strong style="mso-bidi-font-weight: normal">RowKey</strong> { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public DateTime <strong style="mso-bidi-font-weight: normal">TimeStamp</strong> { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public String NomeProd { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public Double Prezzo { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public Int Giacenza { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>Public Int ScortaMin { get; set }<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">}<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">StorageCredentialsAccountAndKey AccountAndKey = <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>New StorageCredentialsAccountAndKey("devstoreaccount1", "Eby8.....")<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>CloudStorageAccount mioAccount = New CloudStorageAccount(AccountAndKey,<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>New Uri("http://127.0.0.1:10000/devstoreaccount1")<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>New Uri("http://127.0.0.1:10001/devstoreaccount1")<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><span style="mso-spacerun: yes"> </span>New Uri("http://127.0.0.1:10002/devstoreaccount1");<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #00b050; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">// Creazione della tabella Prodotti<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">CloudTableClient mioClient = <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><span style="mso-spacerun: yes"> </span></span><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">New CloudTableClient(mioAccount.TableEndPoint.ToString, AccountAndKey);<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">mioClient.CreateTableIfNotExist("Prodotti");<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; COLOR: #00b050; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">// Creazione del contesto e aggiunta di un Prodotto<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">TableServiceContext Contesto = mioClient.GetDataServiceContext();<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prodotto Prod = New Prodotto();<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prod.PartitionKey = "Pantaloni";<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prod.RowKey "AXY123"; <span style="COLOR: #00b050">//Ipotetico codice articolo<o:p /></span></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prod.NomeProd ="Jeans vita bassa mod. 2011";<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prod.Prezzo = 250.00;<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prod.Giacenza = 450;<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prod.ScortaMin = 50<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><o:p> </o:p></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Contesto.AddObject("Prodotti", Prod);<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Contesto.SaveChanges();<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><o:p> </o:p></span></p> <p class="MsoNormal">Commenti? Solo sulle ultime istruzioni che iniziano con la creazione del servizio <strong style="mso-bidi-font-weight: normal">Contesto<em style="mso-bidi-font-style: normal"> </em></strong>di tipo <em style="mso-bidi-font-style: normal">TableServiceContext</em>, ottenuto con il metodo <em style="mso-bidi-font-style: normal">GetDataServiceContext </em>del <strong>mioClient</strong>. Le righe di codice che creano un nuovo Prodotto <strong style="mso-bidi-font-weight: normal">Prod </strong>e quindi ne fissano le proprietà sono parlanti, dopo di che non resta che usare i metodi del Contesto <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">AddObject</em></strong>,<strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal"> </em></strong>per aggiungere Prod alla tabella Prodotti, e <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">SaveChanges </em></strong>(da non dimenticare!) per consolidarne i mutamenti.</p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #daeef3; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #daeef3; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>. Qualcuno si sorprenderà per la mancanza di un’assegnazione a <strong><em>TimeStamp</em></strong>. Ma Il motivo è semplice, se si riflette: si tratta di un valore di data e orario che Azure automaticamente attribuisce all’atto della creazione, pertanto non possiamo modificarlo, è read-only.</p> </div> <h2>Qualche semplice query, usando LINQ</h2> <p class="MsoNormal">Come si è visto per usare i servizi di storage di Azure c’è da pagare lo scotto delle impostazioni per il client e il contesto. Se non ho mal compreso, queste vanno ripetute tutte le volte, comunque non sarà difficile metterci una pezza con metodi ad hoc personalizzati a dovere e ri-usabili. Dopo di che il cammino è in discesa, perché le altre operazioni tipiche di query su una o più tabelle Azure si compiono normalmente – a parte le limitazioni derivanti dalla loro natura NoSQL. Gli esempi riportati qui di seguito si basano su <strong style="mso-bidi-font-weight: normal">LINQ</strong> (Language Integrated Query) linguaggio che permette di inserire interrogazioni e modifiche direttamente nel codice C# o VB.</p> <div style="BORDER-BOTTOM: windowtext 1pt solid; BORDER-LEFT: windowtext 1pt solid; PADDING-BOTTOM: 1pt; PADDING-LEFT: 4pt; PADDING-RIGHT: 4pt; BACKGROUND: #daeef3; BORDER-TOP: windowtext 1pt solid; BORDER-RIGHT: windowtext 1pt solid; PADDING-TOP: 1pt; mso-element: para-border-div; mso-border-alt: solid windowtext .5pt"> <p style="BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; PADDING-BOTTOM: 0cm; PADDING-LEFT: 0cm; PADDING-RIGHT: 0cm; BACKGROUND: #daeef3; BORDER-TOP: medium none; BORDER-RIGHT: medium none; PADDING-TOP: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 4.0pt 1.0pt 4.0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Nota</strong>. Sarà il caso di andarselo a studiare. Consiglio in merito <strong style="mso-bidi-font-weight: normal">Programmare con Microsoft LINQ </strong>di <st1:personname w:st="on" productid="Alessandro Del Sole">Alessandro Del Sole</st1:personname> – Ed. FAG.</p> </div> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Esempio di filtraggio </strong>(codice LINQ in neretto):<strong style="mso-bidi-font-weight: normal"><o:p /></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">TableServiceContext Contesto = mioClient.GetDataServiceContext();<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">DataServiceQuery<Prodotto> query = <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><span style="mso-spacerun: yes"> </span>Contesto.CreateQuery<Prodotto>("Prodotti");<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prodotto Prod = <strong style="mso-bidi-font-weight: normal">query.Where(P => P.Giacenza <= P.ScortaMin;<o:p /></strong></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><o:p> </o:p></span></p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Esempio di modifica </strong>(di un prezzo):</p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">TableServiceContext Contesto = mioClient.GetDataServiceContext();<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">DataServiceQuery<Prodotto> query = <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><span style="mso-spacerun: yes"> </span>Contesto.CreateQuery<Prodotto>("Prodotti");<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prodotto Prod = <strong style="mso-bidi-font-weight: normal">query.Where(P => P.NomeProd == "Camicia a fiori").First;<o:p /></strong></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><o:p> </o:p></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prod.Prezzo = 500;<o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Contesto.UpdateObject(Prod);<o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Contesto.SaveChanges;<o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><o:p> </o:p></span></strong></p> <p class="MsoNormal"><strong style="mso-bidi-font-weight: normal">Cancellazione</strong>:</p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">TableServiceContext Contesto = mioClient.GetDataServiceContext();<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">DataServiceQuery<Prodotto> query = <o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><span style="mso-spacerun: yes"> </span>Contesto.CreateQuery<Prodotto>("Prodotti");<o:p /></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt">Prodotto Prod = <strong style="mso-bidi-font-weight: normal">query.Where(P => P.NomeProd == "Camicia a fiori").First;<o:p /></strong></span></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-bidi-font-size: 11.0pt"><o:p> </o:p></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">Contesto.DeleteObject(Prod);<o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US">Contesto.SaveChanges;<o:p /></span></strong></p> <p style="LINE-HEIGHT: normal; MARGIN-BOTTOM: 0pt" class="MsoNormal"><strong style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: "Courier New"; FONT-SIZE: 10pt; mso-ansi-language: EN-US; mso-bidi-font-size: 11.0pt" lang="EN-US"><o:p> </o:p></span></strong></p> <p class="MsoNormal">Nei vari esempi soprastanti la <strong style="mso-bidi-font-weight: normal">query </strong>viene, diciamo così, inizializzata dal metodo <em style="mso-bidi-font-style: normal">CreateQuery </em>di Contesto sull’oggetto Prodotto della tabella Prodotti, dopo di che intervengono le varie istruzioni LINQ, a valle delle quali i metodi del Contesto <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">UpdateObject</em></strong>, <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">DeleteObject</em></strong> seguiti dal già visto <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">SaveChanges</em></strong> compiono i mestieri che i rispettivi nomi a chiare lettere denitano.</p> <p class="MsoNormal">E l’ordinamento? Come già anticipato con questo genere di tabelle è possibile solo sulla chiave <em style="mso-bidi-font-style: normal">PartitionKey </em>(del che, forse errando, personalmente oso dubitare) e una clausola <em style="mso-bidi-font-style: normal">OrderBy </em>viene sistematicamente rigettata a ostinati & illusi.<span style="mso-spacerun: yes"> </span>Ci si può però arrangiare assegnando a una query il metodo <strong style="mso-bidi-font-weight: normal"><em style="mso-bidi-font-style: normal">ToList</em></strong> e applicando <em style="mso-bidi-font-style: normal">OrderBy </em>all’elenco così ottenuto, anche se con qualche limite su cui rimando al testo di Cozzolino.</p> <h2>SQL or NoSQL? Questo il dilemma</h2> <p class="MsoNormal">Analogamente si possono re-inventare operazioni di tipo join o lookup, ma senza fruire dello standard del modello relazionale cui molti erano abituati fin dai tempi del glorioso Clipper.</p> <p class="MsoNormal">Ma non va dimenticato che Cloud pubblico targato Microsoft fornisce anche <strong style="mso-bidi-font-weight: normal">Azure SQL</strong> che, ripeto, equivale a SQL Server 2008 R2 (ma al momento, temo, con qualche limite nelle feature più pregiate). E in questo ambiente tutto procede secondo il modello relazionale. Dunque una manna – fissazione di client e contesti a parte – per chi era già familiare con SQL Server. Ma allora perché ricorrere al meno “rigoroso” cugino NoSQL? La risposta dipende soprattutto dalla dimensione massima di immagazzinamento, molto maggiore con table storage (fino a 100 Terabyte) appetto agli odierni 50 Gbyte massimi che passa il convento SQL Azure. A sua volta table storage non supporta tutti i tipi di dato dell’altro. Un altro aspetto problematico si ha con le query che restituissero più di 1000 unità. Verificate, gente, verificate.</p> <p class="MsoNormal">La questione è particolarmente complessa e va studiata accuratamente, caso per caso. A caldo sembrerebbe che table storage si presti poco al ri-uso, non solo per la conversione di preesistenti tabelle “on premises” ma anche per quanto riguarda le procedure, generalmente ispirate ai concetti relazionali (andranno riscritte in gran parte), mentre si presenta particolarmente idoneo per nuove applicazioni web, di tipo ASP o Silverlight.</p> <h2>Ma quanto mi costi?</h2> <p class="MsoNormal">Encomiabile è infine l’Appendice nella quale Cozzolino si è sforzato di valutare costi di una soluzione Cloud di tipo pubblico PaaS basata su Azure. Di grande interesse e particolarmente convenienti sono le soluzioni di fascia bassa, a partire da quella introduttiva, gratuita, per chi volesse sperimentare il nuovo mondo (si paga solo a consumo quel che si sfora rispetto all’offerta base). </p> <p class="MsoNormal">I conti fatti dal nostro cambiano se si passa a un sistema informativo medio. Egli li valuta in un canone annuo di 6000 euro più spese ulteriori a consumo. Queste, con somma sorpresa di quanti<span style="mso-spacerun: yes"> </span>sentono in giro parlare di costi prevalentemente “on demand” nel mondo Cloud, sono trascurabili se non irrisori. Si veda però la NOTA FINALE. Cozzolino paragona il tutto a una serie di normali server equivalenti, di prezzo pari a circa 8000 euro cui vanno aggiunti i costi delle licenze (incluso SQL Server, presumo, mentre SQL Azure è compreso nel canone Azure) e, naturalmente, quelli energetici e di manutenzione tutti a carico Microsoft. Personalmente mi permetto di obiettare che, a fronte di un canone <u>annuo</u> di Azure, i prezzi di acquisto dell'equivalente "on premises" andrebbero divisi per tre o per cinque, a seconda che si applichi il criterio dell’obsolescenza tecnologica o il più sparagnino ammortamento fiscale. In particolare tale discorso vale per la seconda alternativa, indicata sempre da Cozzolino, ovvero un server virtualizzato di ultima generazione che sostituisce i normali server predetti (con notevoli altri vantaggi di consolidamento ed efficienza) con ulteriori margini di espandibilità, al prezzo di 15000 euro...</p> <p class="MsoNormal">NOTA FINALE - Il "canone" di cui sopra va inteso come dato indicativo MEDIO. In realtà anche Azure offre la possibilità di tarare i servizi base on demand, in particolare variando anche dinamicamente le VM necessarie, tipicamente aumentandole in periodi di punta e riducendole in quelli più tranquilli. Personalmente penso che per un'azienda normale siano difficili operazioni raffinate per cui dovrà fissare una configurazione base che assicuri la normale operatività con un certo margine. La faccenda comunque richiede una riflessione accurata. </p> <p class="MsoNormal">Mi fermo qui, dichiarando doverosamente che Azure è un mondo molto più ricco di quanto questo sguardo introduttivo potrebbe indurre a pensare. Esso infatti offre diversi comodi servizi, come i blob storage (corredabili di metadati e per una più organica classificazione e ricerca, utilissima in cataloghi sul web, la gestione di code) e<span style="mso-spacerun: yes"> </span>tool innovativi (AppFabric o Service Bus, per buttar lì due nomi a caso) che aprono prospettive interessanti. Con le quali prima o poi si dovranno fare i conti.</p> <p class="MsoNormal"><a href="mailto:giannigiac@tin.it">giannigiac@tin.it</a></p><img src="http://blogs.wpfitalia.it/GianniGiaccaglini/aggbug/78.aspx" width="1" height="1" /> Gianni Giaccaglini http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/04/14/Uno-sguardo-a-Windows-Azure-il-Table-Storage.aspx Thu, 14 Apr 2011 08:38:01 GMT http://blogs.wpfitalia.it/GianniGiaccaglini/archive/2011/04/14/Uno-sguardo-a-Windows-Azure-il-Table-Storage.aspx#feedback 40 http://blogs.wpfitalia.it/GianniGiaccaglini/comments/commentRss/78.aspx