Massimiliano Peluso http://blogs.ugidotnet.org/MassimilianoPeluso/Default.aspx Microsoft .NET MCADBenvenuto nel mio Blog it-IT Massimiliano Peluso Subtext Version 2.6.0.0 Massimiliano Peluso http://blogs.ugidotnet.org/images/RSS2Image.gif http://blogs.ugidotnet.org/MassimilianoPeluso/Default.aspx 77 60 Label Trasparenti http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/27/3301.aspx <P>Volete creare delle etichette trasparenti e non sapete come fare. Niente di pi&#249; semplice. "Basta ingannare l'occhio..." Invece di usare una label usate una textBox senza bordi e "giocate con TransparencyKey".</P> <P>ES:</P><FONT size=2><FONT size=2> <P>TextBox1.ReadOnly = </FONT><FONT color=#0000ff size=2>True</P></FONT><FONT size=2> <P>TextBox1.TabStop = </FONT><FONT color=#0000ff size=2>False</P></FONT><FONT size=2> <P>TextBox1.BorderStyle = BorderStyle.None</P> <P>TextBox1.BackColor = Color.Red</P> <P>TransparencyKey = Color.Red</P></FONT></FONT> <P>Su un form aggiungete un controllo TextBox denominato "TextBox1" e impostiamo il colore di sfondo a RED. Ora impostiamo la propriet&#224; "TransparencyKey " del form a RED , cos&#236; il rosso non verr&#224; "disegnato". Otterremmo un'etichetta trasparente. Per perfezionare il tutto impostiamo il bordo dell textbox a "none" , tabStop=false e ReadOnly=true. Sembrer&#224; una label trasparente, ottenuta con pochissimo sforzo</P> <P><FONT face=Verdana size=2>NB: Sotto consiglio di Andrea Boschin, rettifico che la soluzione proposta in questo articolo non &#232; tra le pi&#249; performanti, esistono sicuramente soluzioni migliori. Ogni altro commento &#232; ben accetto&nbsp;:-)</FONT></P> <P>&nbsp;</P><img src="http://blogs.ugidotnet.org/MassimilianoPeluso/aggbug/3301.aspx" width="1" height="1" /> Massimiliano Peluso http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/27/3301.aspx Mon, 27 Sep 2004 17:49:00 GMT http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/27/3301.aspx#feedback 16 http://blogs.ugidotnet.org/MassimilianoPeluso/comments/commentRss/3301.aspx http://blogs.ugidotnet.org/MassimilianoPeluso/services/trackbacks/3301.aspx Creare dinamicamente un Form http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/20/2945.aspx <P><FONT face=Verdana size=2>Oggi, tra i post letti sul forum Microsoft, chiedevano se &#232; possibile creare un form conoscendo il nome in formato stringa: ebbene si !!! Corre in nostro aiuto la Reflection.</FONT></P> <P><FONT face=Verdana size=2>Supponiamo di avere nel nostro progetto tante form e di volerne visualizzare una avendo il nome in formato stringa . Questa potrebbe essere una soluzione:</FONT></P> <P><FONT face=Verdana size=2>' il nome deve avere la sintassi " nomeassembly.nomeform" &lt;-- Attenzione &#232; case-sensitive</FONT></P><FONT color=#0000ff> <P><FONT size=2><FONT color=#0000ff>Dim</FONT> <FONT color=#000000>nomeForm</FONT> <FONT color=#0000ff>As</FONT> <FONT color=#0000ff>String</FONT> <FONT color=#000000>= "TestForm.frmtest"</FONT></FONT></P> <P><FONT size=2><FONT color=#0000ff>Dim</FONT> <FONT color=#000000>dinamicForm</FONT> <FONT color=#0000ff>As</FONT> Type</FONT></P> <P><FONT size=2><FONT color=#000000>dinamicForm</FONT> = Type.GetType<FONT color=#000000>(nomeForm)</FONT></FONT></P> <P><FONT size=2><FONT color=#0000ff>Dim</FONT> <FONT color=#000000>o</FONT> <FONT color=#0000ff>As</FONT> <FONT color=#0000ff>Object</FONT> = Activator.CreateInstance(<FONT color=#000000>dinamicForm</FONT>)</FONT></P> <P><FONT size=2><FONT color=#0000ff>Dim</FONT> <FONT color=#000000>f</FONT> <FONT color=#0000ff>As</FONT> Form <FONT color=#000000>=</FONT> <FONT color=#0000ff>DirectCast</FONT>(o, Form)</FONT></P> <P><FONT size=2>f.Show()</FONT></P> <P><FONT size=2><FONT face=Verdana color=#000000>In questo esempio verrebbe visualizzata la form "frmtest"</FONT> </FONT></P></FONT><img src="http://blogs.ugidotnet.org/MassimilianoPeluso/aggbug/2945.aspx" width="1" height="1" /> Massimiliano Peluso http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/20/2945.aspx Mon, 20 Sep 2004 12:13:00 GMT http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/20/2945.aspx#feedback 290 http://blogs.ugidotnet.org/MassimilianoPeluso/comments/commentRss/2945.aspx http://blogs.ugidotnet.org/MassimilianoPeluso/services/trackbacks/2945.aspx Percentuale di utilizzo CPU http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/03/1993.aspx <P>Procedura che stampa a video la percentuale di CPU utilizzata. Ovviamente deve essere adattata ai nostri scopi. Viene fornita in versione "per console". La procedura cicla 10000 volte per darvi il tempo di aprire programmi e vedere come vengono incrementate le percentuali</P><FONT size=2> <P></FONT><FONT color=#0000ff size=2>Sub</FONT><FONT size=2> cpucount()</P> <P></FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> pcpu </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>New</FONT><FONT size=2> PerformanceCounter("Processore", "% Tempo Processore", "_Total")</P> <P></FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> I </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Integer</P></FONT><FONT size=2> <P></FONT><FONT color=#0000ff size=2>Do</P></FONT><FONT size=2> <P></FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> v1 </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> CounterSample = pcpu.NextSample</P> <P>System.Threading.Thread.CurrentThread.Sleep(100)</P> <P></FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> v2 </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> CounterSample = pcpu.NextSample</P> <P>I += 1</P> <P>Console.WriteLine(CounterSample.Calculate(v1, v2).ToString)</P> <P></FONT><FONT color=#0000ff size=2>Loop</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Until</FONT><FONT size=2> I &gt; 10000</P> <P>Console.WriteLine("fine")</P> <P>Console.ReadLine()</P> <P></FONT><FONT color=#0000ff size=2>End</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Sub</FONT></P> <P><FONT color=#0000ff size=2></FONT>&nbsp;</P> <P><FONT color=#0000ff size=2></FONT>&nbsp;</P> <P><FONT color=#0000ff size=2>&nbsp;</P></FONT><img src="http://blogs.ugidotnet.org/MassimilianoPeluso/aggbug/1993.aspx" width="1" height="1" /> Massimiliano Peluso http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/03/1993.aspx Fri, 03 Sep 2004 12:58:00 GMT http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/03/1993.aspx#feedback 16 http://blogs.ugidotnet.org/MassimilianoPeluso/comments/commentRss/1993.aspx http://blogs.ugidotnet.org/MassimilianoPeluso/services/trackbacks/1993.aspx Come faccio a sapere se un numero รจ decimale http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/03/1992.aspx <FONT color=#0000ff size=2> <P>Function</FONT><FONT size=2> isDecimal(</FONT><FONT color=#0000ff size=2>ByVal</FONT><FONT size=2> num </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Double</FONT><FONT size=2>) </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Boolean</FONT></P> <P><FONT color=#0000ff size=2>Try</P></FONT><FONT size=2> <P></FONT><FONT color=#0000ff size=2>&nbsp;&nbsp;&nbsp; If</FONT><FONT size=2> num / (Fix(num)) = 1 </FONT><FONT color=#0000ff size=2>Or</FONT><FONT size=2> num = 0 </FONT><FONT color=#0000ff size=2>Then</FONT></P> <P><FONT color=#0000ff size=2>&nbsp; Return</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>False</P></FONT><FONT size=2> <P></FONT><FONT color=#0000ff size=2>&nbsp;&nbsp;&nbsp; Else</P></FONT><FONT size=2> <P></FONT><FONT color=#0000ff size=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>True</P></FONT><FONT size=2> <P></FONT><FONT color=#0000ff size=2>&nbsp;&nbsp;&nbsp; End</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>If</P></FONT><FONT size=2> <P></FONT><FONT color=#0000ff size=2>Catch</FONT><FONT size=2> ex </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> DivideByZeroException</P> <P></FONT><FONT color=#0000ff size=2>End</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Try</FONT></P> <P><FONT color=#0000ff size=2>End</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Function</FONT></P> <P><FONT color=#0000ff size=2><FONT color=#000000>Sicuramente non &#232; la soluzione migliore ma FUNZIONA!!!! (come diceva il buon vecchio DOC in "ritorno al futuro")</FONT></P></FONT><img src="http://blogs.ugidotnet.org/MassimilianoPeluso/aggbug/1992.aspx" width="1" height="1" /> Massimiliano Peluso http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/03/1992.aspx Fri, 03 Sep 2004 12:50:00 GMT http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/03/1992.aspx#feedback 15 http://blogs.ugidotnet.org/MassimilianoPeluso/comments/commentRss/1992.aspx http://blogs.ugidotnet.org/MassimilianoPeluso/services/trackbacks/1992.aspx Visual Basic.NET http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/03/1990.aspx <P>Il giorno 24/09/2004 dovr&#242; affrontare il mio primo esame MCP . <STRONG>Speriamo che la forza sia con me</STRONG>, dato che sto studiando da 3 mesi ... non &#232; facile trovare il tempo tra lavoro e palestra. Mi rivolgo a tutte le persone che dicono di <EM>non avere tempo</EM>. Semplice: basta avere un po di volont&#224; e spirito di sacrificio.</P><img src="http://blogs.ugidotnet.org/MassimilianoPeluso/aggbug/1990.aspx" width="1" height="1" /> Massimiliano Peluso http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/03/1990.aspx Fri, 03 Sep 2004 12:41:00 GMT http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/09/03/1990.aspx#feedback 24 http://blogs.ugidotnet.org/MassimilianoPeluso/comments/commentRss/1990.aspx http://blogs.ugidotnet.org/MassimilianoPeluso/services/trackbacks/1990.aspx Benvenuti http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/08/30/1719.aspx <STRONG><FONT color=#a52a2a>Benvenuti nel mio Blog Personale.</FONT></STRONG><img src="http://blogs.ugidotnet.org/MassimilianoPeluso/aggbug/1719.aspx" width="1" height="1" /> Massimiliano Peluso http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/08/30/1719.aspx Mon, 30 Aug 2004 13:08:00 GMT http://blogs.ugidotnet.org/MassimilianoPeluso/archive/2004/08/30/1719.aspx#feedback 18 http://blogs.ugidotnet.org/MassimilianoPeluso/comments/commentRss/1719.aspx http://blogs.ugidotnet.org/MassimilianoPeluso/services/trackbacks/1719.aspx