| Вопрос: Одинаковые значения для обьектов | Добавлено: 02.05.11 14:10 |
Автор вопроса:  Павел
|
|
Приветствую.
Приветствую. Необходимо оптимизировать следующий код: inv1.Image = System.Drawing.Image.FromFile("data/Graphic/Items/" + inv1.Tag + ".jpg")
inv2.Image = System.Drawing.Image.FromFile("data/Graphic/Items/" + inv2.Tag + ".jpg") inv3.Image = System.Drawing.Image.FromFile("data/Graphic/Items/" + inv3.Tag + ".jpg") inv4.Image = System.Drawing.Image.FromFile("data/Graphic/Items/" + inv4.Tag + ".jpg") inv5.Image = System.Drawing.Image.FromFile("data/Graphic/Items/" + inv5.Tag + ".jpg") ну и так еще на пару десятков строк... Это buttons, которые находятся на panel. В Tag хранится кодовое слово, по которой из папки Items в директории программы подбирается нужный image для этой кнопки. Буду очень признателен, ежели кто поможет. Пробовал решать через массив, но система ругается. делал так Dim i as integer Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim inv(0 To 40) As Button end sub Private Sub checkimageINV() For i = 1 To 40 inv(i).Image = System.Drawing.Image.FromFile("data/Graphic/Items/"+inv(i)+".jpg") Next i end sub Может не так пишу чего. Кнопки на форме уже есть, создавать их в коде не нужно. С уважением, Павел. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #1 | Добавлено: 02.05.11 15:40 |
| Dim imgs As New List(Of PictureBox) | ||
Страница: 1 |