Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Virtual slide - frmslide.frm

frmslide.frm

Caricato da: Albertking82
Scarica il programma completo

  1. Dim i As Integer
  2.  
  3. Private Sub Form_DblClick()
  4. Unload Me
  5. End Sub
  6.  
  7. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  8.  
  9.  If KeyCode = 27 Then
  10.     Unload Me
  11.  End If
  12.  
  13. End Sub
  14.  
  15. Private Sub Form_Load()
  16.  
  17.  i = -1
  18.  Image1.Height = frmslide.Height
  19.  Image1.Width = frmslide.Width
  20.  
  21.   If frmset.tempo(1).Value = True Then
  22.     Timer1.Interval = 1000
  23.   ElseIf frmset.tempo(2).Value = True Then
  24.     Timer1.Interval = 3000
  25.   ElseIf frmset.tempo(3).Value = True Then
  26.     Timer1.Interval = 5000
  27.   End If
  28.  
  29. End Sub
  30.  
  31. Private Sub Form_Resize()
  32.  Image1.Height = frmslide.Height
  33.  Image1.Width = frmslide.Width
  34. End Sub
  35.  
  36. Private Sub Image1_DblClick()
  37. Unload Me
  38. End Sub
  39.  
  40. Private Sub Timer1_Timer()
  41.  
  42. If i < Form1.List1.ListCount - 1 Then
  43.     i = i + 1
  44.  Image1.Picture = LoadPicture(Form1.cartelle.Path & "\" & Form1.List1.List(i))
  45.  Else
  46.   i = -1
  47.  End If
  48.  
  49. End Sub