Несколько картинок в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д