Несколько картинок в PictureBox - VB
Формулировка задачи:
Здравствуйте.
Можно ли разместить две и больше картинок одинакового размера в PictureBox програмным способом?
Дело в том, что у меня програмка генерирует 3 числа от 1 до 5, эти числа складываются в одно и получается имя файла (рисунка) & ".jpg" и так несколько раз. Мне надо что бы в PictureBox загружались картинки одна за одной так чтоб получилась полоса из картинок. Это реально или нет?
Большое спасибо.
Решение задачи: «Несколько картинок в PictureBox»
textual
Листинг программы
Dim iw%, ih%, tp% Dim pw%, ph% Dim c%, r%, k%, dl% Private Sub Command1_Click() c = 0: r = 0: k = 0: tp = Image1(0).Top: dl = 0 Do While (r + 1) * ih < ph Do While (c + 1) * iw + dl < pw c = c + 1 k = k + 1 Load Image1(k) Image1(k).Left = (c - 1) * iw + dl Image1(k).Top = tp Image1(k).Visible = True Loop r = r + 1 dl = IIf(r Mod 2 = 0, 0, iw / 2) c = 0 tp = tp + ih Loop End Sub Private Sub Form_Load() iw = Image1(0).Width: ih = Image1(0).Height tp = Image1(0).Top Image1(0).Picture = Form1.Icon Image1(0).Left = -iw pw = Picture1.Width: ph = Picture1.Height End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д