Dim i As Integer
Public num As Integer
Dim path As String
Const ngif = 58
Public Sub gif(n As Integer)
If n > ngif Or n < 1 Then
MsgBox "Gif non presente", vbInformation, "Ricerca errata"
Else
If n Mod 2 = 0 Then
imggif.Picture = LoadPicture(path & n & ".JPG")
Lblgif.Caption = "JPEG numero " & n
Else
imggif.Picture = LoadPicture(path & n & ".gif")
Lblgif.Caption = "Gif numero " & n
End If
End If
End Sub
Private Sub Cmdfirst_Click()
num = 1
If num Mod 2 = 0 Then
imggif.Picture = LoadPicture(path & num & ".jpg")
Lblgif.Caption = "JPEG numero " & num
Else
imggif.Picture = LoadPicture(path & num & ".gif")
Lblgif.Caption = "Gif numero " & num
End If
End Sub
Private Sub Cmdlast_Click()
num = ngif
If num Mod 2 = 0 Then
imggif.Picture = LoadPicture(path & num & ".jpg")
Lblgif.Caption = "JPEG numero " & num
Else
imggif.Picture = LoadPicture(path & num & ".gif")
Lblgif.Caption = "Gif numero " & num
End If
End Sub
Private Sub Cmdless_Click()
If Opt1.Value = True Then
If num - 1 >= 1 Then
num = num - 1
End If
End If
If Opt5.Value = True Then
If num - 5 >= 1 Then
num = num - 5
End If
End If
If Opt10.Value = True Then
If num - 10 >= 1 Then
num = num - 10
End If
End If
If num Mod 2 = 0 Then
imggif.Picture = LoadPicture(path & num & ".jpg")
Lblgif.Caption = "JPEG numero " & num
Else
imggif.Picture = LoadPicture(path & num & ".gif")
Lblgif.Caption = "Gif numero " & num
End If
End Sub
Private Sub Cmdplus_Click()
If Opt1.Value = True Then
If num + 1 <= ngif Then
num = num + 1
End If
End If
If Opt5.Value = True Then
If num + 5 <= ngif Then
num = num + 5
End If
End If
If Opt10.Value = True Then
If num + 10 <= ngif Then
num = num + 10
End If
End If
If num Mod 2 = 0 Then
imggif.Picture = LoadPicture(path & num & ".jpg")
Lblgif.Caption = "JPEG numero " & num
Else
imggif.Picture = LoadPicture(path & num & ".gif")
Lblgif.Caption = "Gif numero " & num
End If
End Sub
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Label2.Caption = ngif & " immagini presenti nell'archivio"
num = 1
path = App.path & "\"
imggif.Picture = LoadPicture(path & num & ".gif")
Lblgif.Caption = "Gif numero " & num
End Sub