Вывести графические файлы на компонент Image из компонента ImageList - VB

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

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

ребят подскажите как Вывести графические файлы на компонент Image из компонента ImageList. Смена файлов полосой прокрутки, не могу код написать,

Решение задачи: «Вывести графические файлы на компонент Image из компонента ImageList»

textual
Листинг программы
Function Open_Click()
    CommonDialog1.InitDir = "C:\Documents and Settings\ÀäìèГ*ГЁГ±ГІГ°Г*òîð\Ìîè äîêóìåГ*ГІГ»"
    CommonDialog1.Filter = "ÈçîáðГ*æåГ*ГЁГҐ (*.jpg*)|*.jpg*|"
    CommonDialog1.ShowOpen
    On Error Resume Next
    List1.AddItem CommonDialog1.FileName
    List1.ListIndex = List1.ListCount - 1
    Image1.Picture = LoadPicture(List1.Text)
    End Function
Function Back_Click()
Dim iIndex As Integer
    For iIndex = List1.ListCount - 1 To 0
    Select Case True
                ListToText = List1.List(iIndex)
                Image1.Picture = LoadPicture(List1.Text)
    End Select
                   iIndex = iIndex - 1
End Function
Function Next_Click()
Dim iIndex As Integer
    For iIndex = 0 To List1.ListCount - 1
    Select Case True
                ListToText = List1.List(iIndex)
                Image1.Picture = LoadPicture(List1.Text)
    End Select
                Next iIndex
End Function
End Sub

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


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

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

9   голосов , оценка 3.889 из 5
Похожие ответы