Несколько картинок в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.273 из 5