• Home
 · 
• Graphics
 · 
• It works like a screen saver of pictures files in jpeg format and bmp format. Just place picture fi

It works like a screen saver of pictures files in jpeg format and bmp format. Just place picture fi

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



Rate It works like a screen saver of pictures files in jpeg format and bmp format. Just place picture fi

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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