This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form1.vb
66 lines (60 loc) · 1.77 KB
/
Form1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Namespace ImageSlider
Public Partial Class Form1
Inherits Form
Private currentImageIndex As Integer = 0
Private images As Image()
Public Sub New()
Me.images = CreateImages()
InitializeComponent()
End Sub
Private Function CreateImages() As Image()
Return New Image(){ CreateImage(Color.Red), CreateImage(Color.Green), CreateImage(Color.Blue) }
End Function
Private Function CreateImage(ByVal color As Color) As Image
Dim bitmap As Bitmap = New Bitmap(100, 100)
Dim i As Integer = 0
Do While i < bitmap.Width
Dim j As Integer = 0
Do While j < bitmap.Height
bitmap.SetPixel(i, j, color)
j += 1
Loop
i += 1
Loop
Return bitmap
End Function
Private Sub imageSlider1_CanGetNextPrevImage(ByVal sender As Object, ByVal e As DevExpress.XtraEditors.Controls.CanGetNextPrevImageEventArgs) Handles imageSlider1.CanGetNextPrevImage
If e.IsNext Then
e.CanGetImage = (currentImageIndex < images.Length - 1)
Else
e.CanGetImage = (currentImageIndex > 0)
End If
End Sub
Private Sub imageSlider1_GetImage(ByVal sender As Object, ByVal e As DevExpress.XtraEditors.Controls.GetImageEventArgs) Handles imageSlider1.GetImage
If e.IsStartUp Then
e.Image = images(0)
Return
End If
If e.IsNext Then
e.Image = images(currentImageIndex + 1)
If e.CurrentImageUpdated Then
currentImageIndex += 1
End If
ElseIf e.IsPrev Then
e.Image = images(currentImageIndex - 1)
If e.CurrentImageUpdated Then
currentImageIndex -= 1
End If
End If
End Sub
End Class
End Namespace