http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_Tutorial%2F2D_Graphics%2FImageList
VB.Net Tutorial/2D Graphics/ImageList - История изменений
2026-04-05T23:32:08Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net_Tutorial/2D_Graphics/ImageList&diff=3263&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:30Z
<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_Tutorial/2D_Graphics/ImageList&diff=3264&oldid=prev
Admin: 1 версия
2010-05-26T12:54:44Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Change ImageList Size==<br />
<br />
<br />
<br />
<source lang="vbnet">imports System<br />
imports System.Drawing<br />
imports System.Windows.Forms<br />
public class ImageLists : inherits Form<br />
dim imgList as ImageList = new ImageList()<br />
dim lbl as Label <br />
dim lnk as LinkLabel<br />
dim btn as Button<br />
dim nmbrUpDown as NumericUpDown<br />
public sub New()<br />
Size = new Size(300,300)<br />
dim img as Image<br />
dim i as integer<br />
dim arFiles as string() = {"1.ico","2.ico","3.ico","4.ico"}<br />
for i = 0 to arFiles.Length - 1<br />
img = Image.FromFile(arFiles(i))<br />
imgList.Images.Add(img)<br />
next<br />
imgList.ImageSize = new Size(32, 32)<br />
img = Image.FromFile("5.ico")<br />
imgList.Images(imgList.Images.Count - 1) = img<br />
lbl = new Label()<br />
lbl.Parent = me<br />
lbl.Text = "Label"<br />
lbl.Location = new Point(0,0)<br />
lbl.Size = new Size (200,20)<br />
lbl.BorderStyle = BorderStyle.Fixed3D<br />
lbl.ImageList = imgList<br />
lbl.ImageIndex = 0<br />
lbl.ImageAlign = ContentAlignment.MiddleRight<br />
" Create numeric updown to select the image<br />
nmbrUpDown = new NumericUpDown()<br />
nmbrUpDown.Parent = me<br />
nmbrUpDown.Location = new Point(0, 60)<br />
nmbrUpDown.Value = 0<br />
nmbrUpDown.Minimum = 0<br />
nmbrUpDown.Maximum = imgList.Images.Count - 1<br />
nmbrUpDown.Width = 50<br />
nmbrUpDown.ReadOnly = true<br />
AddHandler nmbrUpDown.ValueChanged,AddressOf nmbrUpDown_ValueChanged<br />
end sub<br />
public shared sub Main() <br />
Application.Run(new ImageLists())<br />
end sub<br />
private sub nmbrUpDown_ValueChanged(ByVal sender as object,ByVal e as EventArgs)<br />
dim n as NumericUpDown = CType(sender, NumericUpDown)<br />
lbl.ImageIndex = CType(n.Value, Integer)<br />
end sub<br />
end class</source><br />
<br />
==Create ImageList in your code==<br />
<br />
<br />
<br />
<source lang="vbnet">imports System<br />
imports System.Drawing<br />
imports System.Windows.Forms<br />
public class ImageLists : inherits Form<br />
dim imgList as ImageList = new ImageList()<br />
dim lbl as Label <br />
dim lnk as LinkLabel<br />
dim btn as Button<br />
dim nmbrUpDown as NumericUpDown<br />
public sub New()<br />
Size = new Size(300,300)<br />
dim img as Image<br />
dim i as integer<br />
dim arFiles as string() = {"1.ico","2.ico","3.ico","4.ico"}<br />
for i = 0 to arFiles.Length - 1<br />
img = Image.FromFile(arFiles(i))<br />
imgList.Images.Add(img)<br />
next<br />
imgList.ImageSize = new Size(32, 32)<br />
img = Image.FromFile("5.ico")<br />
imgList.Images(imgList.Images.Count - 1) = img<br />
lbl = new Label()<br />
lbl.Parent = me<br />
lbl.Text = "Label"<br />
lbl.Location = new Point(0,0)<br />
lbl.Size = new Size (200,20)<br />
lbl.BorderStyle = BorderStyle.Fixed3D<br />
lbl.ImageList = imgList<br />
lbl.ImageIndex = 0<br />
lbl.ImageAlign = ContentAlignment.MiddleRight<br />
" Create numeric updown to select the image<br />
nmbrUpDown = new NumericUpDown()<br />
nmbrUpDown.Parent = me<br />
nmbrUpDown.Location = new Point(0, 60)<br />
nmbrUpDown.Value = 0<br />
nmbrUpDown.Minimum = 0<br />
nmbrUpDown.Maximum = imgList.Images.Count - 1<br />
nmbrUpDown.Width = 50<br />
nmbrUpDown.ReadOnly = true<br />
AddHandler nmbrUpDown.ValueChanged,AddressOf nmbrUpDown_ValueChanged<br />
end sub<br />
public shared sub Main() <br />
Application.Run(new ImageLists())<br />
end sub<br />
private sub nmbrUpDown_ValueChanged(ByVal sender as object,ByVal e as EventArgs)<br />
dim n as NumericUpDown = CType(sender, NumericUpDown)<br />
lbl.ImageIndex = CType(n.Value, Integer)<br />
end sub<br />
end class</source><br />
<br />
==Replace an image in ImageList==<br />
<br />
<br />
<br />
<source lang="vbnet">imports System<br />
imports System.Drawing<br />
imports System.Windows.Forms<br />
public class ImageLists : inherits Form<br />
dim imgList as ImageList = new ImageList()<br />
dim lbl as Label <br />
dim lnk as LinkLabel<br />
dim btn as Button<br />
dim nmbrUpDown as NumericUpDown<br />
public sub New()<br />
Size = new Size(300,300)<br />
dim img as Image<br />
dim i as integer<br />
dim arFiles as string() = {"1.ico","2.ico","3.ico","4.ico"}<br />
for i = 0 to arFiles.Length - 1<br />
img = Image.FromFile(arFiles(i))<br />
imgList.Images.Add(img)<br />
next<br />
imgList.ImageSize = new Size(32, 32)<br />
img = Image.FromFile("5.ico")<br />
imgList.Images(imgList.Images.Count - 1) = img<br />
lbl = new Label()<br />
lbl.Parent = me<br />
lbl.Text = "Label"<br />
lbl.Location = new Point(0,0)<br />
lbl.Size = new Size (200,20)<br />
lbl.BorderStyle = BorderStyle.Fixed3D<br />
lbl.ImageList = imgList<br />
lbl.ImageIndex = 0<br />
lbl.ImageAlign = ContentAlignment.MiddleRight<br />
" Create numeric updown to select the image<br />
nmbrUpDown = new NumericUpDown()<br />
nmbrUpDown.Parent = me<br />
nmbrUpDown.Location = new Point(0, 60)<br />
nmbrUpDown.Value = 0<br />
nmbrUpDown.Minimum = 0<br />
nmbrUpDown.Maximum = imgList.Images.Count - 1<br />
nmbrUpDown.Width = 50<br />
nmbrUpDown.ReadOnly = true<br />
AddHandler nmbrUpDown.ValueChanged,AddressOf nmbrUpDown_ValueChanged<br />
end sub<br />
public shared sub Main() <br />
Application.Run(new ImageLists())<br />
end sub<br />
private sub nmbrUpDown_ValueChanged(ByVal sender as object,ByVal e as EventArgs)<br />
dim n as NumericUpDown = CType(sender, NumericUpDown)<br />
lbl.ImageIndex = CType(n.Value, Integer)<br />
end sub<br />
end class</source></div>
Admin