Несколько картинок в PictureBox - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте. Можно ли разместить две и больше картинок одинакового размера в PictureBox програмным способом? Дело в том, что у меня програмка генерирует 3 числа от 1 до 5, эти числа складываются в одно и получается имя файла (рисунка) & ".jpg" и так несколько раз. Мне надо что бы в PictureBox загружались картинки одна за одной так чтоб получилась полоса из картинок. Это реально или нет? Большое спасибо.

Решение задачи: «Несколько картинок в PictureBox»

textual
Листинг программы
  1. Dim iw%, ih%, tp%
  2. Dim pw%, ph%
  3. Dim c%, r%, k%, dl%
  4. Private Sub Command1_Click()
  5. c = 0: r = 0: k = 0:  tp = Image1(0).Top: dl = 0
  6. Do While (r + 1) * ih < ph
  7. Do While (c + 1) * iw + dl < pw
  8. c = c + 1
  9. k = k + 1
  10. Load Image1(k)
  11. Image1(k).Left = (c - 1) * iw + dl
  12. Image1(k).Top = tp
  13. Image1(k).Visible = True
  14. Loop
  15. r = r + 1
  16. dl = IIf(r Mod 2 = 0, 0, iw / 2)
  17. c = 0
  18. tp = tp + ih
  19. Loop
  20.  
  21. End Sub
  22.  
  23. Private Sub Form_Load()
  24. iw = Image1(0).Width: ih = Image1(0).Height
  25. tp = Image1(0).Top
  26. Image1(0).Picture = Form1.Icon
  27.  Image1(0).Left = -iw
  28. pw = Picture1.Width: ph = Picture1.Height
  29. End Sub

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


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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут