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

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

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

тех.задание

Вывод графических файлов на компонент Image из компонента ImageList. Содержание файлов показывается поочередно при нажатии соответствующих кнопок панели инструментов (следующая, предыдущая). Картинка масштабируется по размеру компонента Image, который занимает всю форму и изменяет размеры при изменении размеров формы. Имя файла показывается в строке заголовка формы. если готовы помочь бесплатно, то буду очень рад) если же за оплату, то напишите пожалуйста цену.

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

textual
Листинг программы
Private k As Integer
 
Private Sub Command1_Click()
 
        k = 2
 
        Me.Timer1.Enabled = Not Me.Timer1.Enabled
        
        If Me.Timer1.Enabled Then
           Set Me.Image1.Picture = Me.ImageList1.ListImages(1).Picture
           Me.Command1.Caption = "Ñòîï"
        Else
           Me.Command1.Caption = "ГЏГіГ±ГЄ"
        End If
 
End Sub
 
Sub SlideShow()
 
    Set Me.Image1.Picture = Me.ImageList1.ListImages(k).Picture
    
    k = k + 1
    
    If k > Me.ImageList1.ListImages.Count Then k = 1
 
End Sub
 
Private Sub Timer1_Timer()
 
    SlideShow
 
End Sub

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


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

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

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