by Rajendra Shakya (2 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 2nd May 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
It works like a screen saver of pictures files in jpeg format and bmp format. Just place picture file numbering like 1.jpg,2.jpg in folder
API Declarations
Dim m As Double
Dim o As Double
Dim z As Double
Dim zz As Double
Dim zzz As Double
VBcoders
Private Sub Command6_Click()
Timer2.Enabled = False
Timer1.Enabled = True
If Text1.Visible = False Or Text2.Visible = False Then
Text2.Visible = True
Text1.Visible = True
z = Val(Text1.Text)
zz = Val(Text2.Text)
zzz = Val(Text1.Text)
Else
Text2.Visible = False
Text1.Visible = False
End If
End Sub
Private Sub Command7_Click()
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
On Error Resume Next
Randomize Timer
z = Int(Rnd * 300) + 1
Label1.Caption = CStr(z)
ProgressBar1.Visible = True
Image1.Visible = True
Image2.Visible = False
For m = 1 To 100
For o = 1 To 1000
ProgressBar1.Value = ProgressBar1.Min + m
Next
Next
ProgressBar1.Visible = False
Image1.Picture = LoadPicture("c:\my documents\new folder\" + CStr(z) + ".bmp")
Image1.Picture = LoadPicture("c:\my documents\new folder\" + CStr(z) + ".jpg")
m = 1
For m = 1 To 100
For o = 1 To 1000
ProgressBar1.Value = ProgressBar1.Min + m
Next
Next
ProgressBar1.Visible = False
m = 1
For m = 1 To 100
For o = 1 To 1000
ProgressBar1.Value = ProgressBar1.Min + m
Next
Next
'Image1.Visible = False
Image2.Visible = True
Image2.Picture = LoadPicture("c:\my documents\new folder\" + CStr(z) + ".bmp")
Image2.Picture = LoadPicture("c:\my documents\new folder\" + CStr(z) + ".jpg")
End Sub
Private Sub form_load()
MediaPlayer1.Visible = False
Timer2.Enabled = False
z = 1
zz = 300
Text1.Visible = False
Text2.Visible = False
End Sub
Private Sub Command1_Click()
n = n + 1
If n > 6 Then
Timer1.Interval = Timer1.Interval
n = 0
Command1.Enabled = False
Command2.Enabled = True
Else
Timer1.Interval = Timer1.Interval + Timer1.Interval
End If
End Sub
Private Sub Command2_Click()
n = n + 1
If n > 6 Then
Timer1.Interval = Timer1.Interval
n = 0
Command2.Enabled = False
Command1.Enabled = True
Else
' Timer1.Interval = Timer1.Interval + Timer1.Interval
Timer1.Interval = Timer1.Interval - Timer1.Interval + 600
End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Image1.Height = 4500
Image1.Width = 6000
Image1.Left = 3000
End Sub
Private Sub Command5_Click()
Image1.Left = -120
Image1.Height = 8655
Image1.Width = 12015
End Sub
'Private Sub form_load()
'End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Randomize Timer
'z = Int(Rnd * 300) + 1
z = z + 1
If z > zz Then
z = zzz
End If
Label1.Caption = CStr(z)
ProgressBar1.Visible = True
Image1.Visible = True
Image2.Visible = False
For m = 1 To 100
For o = 1 To 1000
ProgressBar1.Value = ProgressBar1.Min + m
Next
Next
ProgressBar1.Visible = False
Image1.Picture = LoadPicture("c:\my documents\new folder\" + CStr(z) + ".bmp")
Image1.Picture = LoadPicture("c:\my documents\new folder\" + CStr(z) + ".jpg")
m = 1
For m = 1 To 100
For o = 1 To 1000
ProgressBar1.Value = ProgressBar1.Min + m
Next
Next
ProgressBar1.Visible = False
m = 1
For m = 1 To 100
For o = 1 To 1000
ProgressBar1.Value = ProgressBar1.Min + m
Next
Next
'Image1.Visible = False
Image2.Visible = True
Image2.Picture = LoadPicture("c:\my documents\new folder\" + CStr(z) + ".bmp")
Image2.Picture = LoadPicture("c:\my documents\new folder\" + CStr(z) + ".jpg")
End Sub
No comments have been posted about It works like a screen saver of pictures files in jpeg format and bmp format. Just place picture fi. Why not be the first to post a comment about It works like a screen saver of pictures files in jpeg format and bmp format. Just place picture fi.