http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2F2D%2FIcon 2026-04-04T19:59:23Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VB.Net/2D/Icon&diff=78&oldid=prev 2010-05-26T16:40:06Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr style="vertical-align: top;" lang="ru"> <td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td> <td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td> </tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div> </td></tr></table>

http://www.vbex.ru/index.php?title=VB.Net/2D/Icon&diff=79&oldid=prev 2010-05-26T12:41:45Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==Save an Image to Icon format==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt;<br /> Imports System<br /> Imports System.Windows.Forms<br /> Imports System.Collections.Generic<br /> Imports System.ruponentModel<br /> Imports System.Drawing.Imaging<br /> Imports System.Drawing<br /> Public Class MainClass<br /> Shared Sub Main()<br /> Dim bm As New Bitmap(256, 256)<br /> &quot; Draw on it.<br /> Dim gr As Graphics = Graphics.FromImage(bm)<br /> gr.Clear(Color.White)<br /> gr.DrawEllipse(Pens.Red, 0, 0, bm.Width - 1, bm.Height - 1)<br /> gr.DrawLine(Pens.Green, 0, 0, bm.Width - 1, bm.Height - 1)<br /> gr.DrawLine(Pens.Blue, bm.Width - 1, 0, 0, bm.Height - 1)<br /> &quot; Save the result as a JPEG file.<br /> bm.Save(&quot;test.ico&quot;, ImageFormat.Icon)<br /> End Sub <br /> End Class<br /> <br /> <br /> &lt;/source&gt;</div>

Admin