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