Slidshow,Bilder Laufen nicht gleichmäßig durch

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Hadinius.

    Slidshow,Bilder Laufen nicht gleichmäßig durch

    Hallo
    In meinen Programm befinden sich zwei Formen.1 Form=CATCH_Alarm,2 Form=CATCH_Bilder.
    In CATCH_Alarm laufen die Bilder aus einem Ordner von Links nach Rechts in einer PitureBox durch.Ich kann den Abstand(400),Höhe(300) und Breite(412) selbst bestimmen.
    In CATCH_Bilder wird das Bild das gerade in CATCH_Alarm durch läuft,auf die Grösse 640x480 gestrecht und angezeigt.
    Wenn ich aber in CATCH_Alarm den Abstand oder Breite Ändere,laufen die Bilder in CATCH_Bilder schneller oder langsammer durch.
    Ich habe versucht mit CATCH_Bilder.PaintPicture LoadPicture(File1.path & "\" & File1.List(Z2)), 0, 0, Breite, Hoehe das Aktuelle Bild zu Übergeben,damit alles gleich läuft,
    weil bei einem Alarm das Bild von CATCH_Bilder gespeichert wird und es das gleiche Bild sein muss was gerade in CATCH_Alarm durch läuft.Ich bekomme aber immer die Fehler Meldung Ungültiges Bild in CATCH_Bilder
    .PaintPicture .Picture, 0, 0, .ScaleWidth, .ScaleHeight.     und
    .PaintPicture Image1.Picture, 0, 0, .ScaleWidth, .ScaleHeight
    Kann mir vieleicht jemand Helfen ,wo ich den Fehler mache. ?(
    Eigentlich möchte ich auch in CATCH_Bilder den durchlauf des Bildes weg nehmen ,weil eigentlich nur das Bild Angezeigt werden muss was in CATCH_Alarm gerade geladen wird.

    Ich hoffe das mir jemand Helfen kann und das was ich geschrieben habe ,auch zu verstehen ist ;(
    Hadinius


    Brainfuck-Quellcode

    1. CATCH_Alarm=
    2. Public Sub Timer1_Timer()
    3. Me.lblStopuhr.Caption = Format$(Now - mdatStartzeit, "hh:mm:ss")
    5. If Text2.Text = "" Then
    6. Text2.Text = 2
    7. End If
    8. Dim i&
    9. 'Dim TeilBreite&, TeilHoehe&
    11. Breite = CInt(Text4.Text) ' Bildbreite
    12. Hoehe = CInt(Text5.Text) ' Bildhöhe
    13. Abstand = CInt(Text6.Text) 'Abstand zwischen den Bildern
    14. Speed = CInt(Text2.Text) 'Geschwindigkeit
    15. CATCH_Bilder.Text2.Text = Speed
    16. With Picture1
    17. For i = 0 To Speed - 1
    18. Z1 = Z1 - 1
    19. If Z1 = 0 Then
    20. Z1 = Breite + Abstand
    21. On Error GoTo 0
    23. .PaintPicture LoadPicture(File1.path & "\" & File1.List(Z2)), 0, 0, Breite, Hoehe
    24. [b]CATCH_Bilder.Picture2.Picture = LoadPicture(File1.path & "\" & File1.List(Z2))[/b]
    25. '------------------------------------------------------------------------------------------------------------------------------------
    27. Z2 = (Z2 + 1) Mod File1.ListCount
    29. End If
    30. Call BitBlt(.hdc, 1, 0, .ScaleWidth + 1, Hoehe + 400, .hdc, 0, 0, vbSrcCopy)
    31. Picture1.Line (0, -10)-(0, Hoehe), .BackColor
    32. Next i
    34. End With
    36. If Z2 > 0 Then
    37. Text7.Text = Z2 + 1
    38. End If
    39. Text1.Text = Z2
    40. Text8.Text = File1.path
    41. Text9.Text = File1.List(Z2)
    42. If Text1.Text = 0 Then
    43. Timer1.Enabled = False
    44. Z2 = 0
    45. Text3.Text = Text1.Text
    46. '------------------------------------------------------------------
    47. Z1 = 1
    48. '------------------------------------------------------------------
    49. End If
    50. End Sub
    53. CATCH_Bilder=
    54. Public Sub Timer1_Timer()
    55. Me.lblStopuhr.Caption = Format$(Now - mdatStartzeit, "hh:mm:ss")
    57. If Text2.Text = "" Then
    58. 'Text2.Text = 2
    59. End If
    60. Dim i&
    61. Dim TeilBreite&, TeilHoehe&
    63. Breite = CInt(Text4.Text) ' Bildbreite
    64. Hoehe = CInt(Text5.Text) ' Bildhöhe
    65. Abstand = CInt(Text6.Text) 'Abstand zwischen den Bildern
    66. Speed = CInt(Text2.Text) 'Geschwindigkeit
    68. With Picture1
    69. 'Speed = 15
    70. For i = 0 To Speed - 1
    71. Z1 = Z1 - 1
    72. If Z1 = 0 Then
    73. Z1 = Breite + Abstand
    74. On Error GoTo 0
    76. '--------------Picture2.Picture = LoadPicture(File1.path & "\" & File1.List(Z2))
    78. '------------------Bild-Strechen--------------------------------------------
    79. With Picture2
    80. .AutoRedraw = True
    81. .Cls
    82. [b].PaintPicture .Picture, 0, 0, .ScaleWidth, .ScaleHeight[/b]
    83. .AutoRedraw = False
    84. End With
    87. Me.ScaleMode = vbPixels
    88. With Picture2
    89. .BorderStyle = vbBSNone
    90. .ScaleMode = vbPixels
    91. .Width = 640 ' Breite Pixel
    92. .Height = 480 ' Höhe Pixel
    93. .AutoRedraw = True
    94. '.Cls
    95. [b].PaintPicture Image1.Picture, 0, 0, .ScaleWidth, .ScaleHeight[/b]
    96. End With
    98. '-------------------------------------------------------------------------
    99. Z2 = (Z2 + 1) Mod File1.ListCount
    101. End If
    102. Call BitBlt(.hdc, 1, 0, .ScaleWidth + 1, Hoehe, .hdc, 0, 0, vbSrcCopy)
    103. Picture1.Line (0, -10)-(0, Hoehe), .BackColor
    104. Next i
    106. End With
    108. If Z2 > 0 Then
    109. Text7.Text = Z2 + 1
    110. End If
    112. Text1.Text = Z2
    113. 'Text8.Text = File1.path
    114. 'Text9.Text = File1.List(Z2)
    115. If Text1.Text = 0 Then
    116. Timer1.Enabled = False
    117. Z2 = 0
    118. Text3.Text = Text1.Text
    119. '------------------------------------------------------------------
    120. Z1 = 1
    121. '------------------------------------------------------------------
    122. End If
    124. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Hadinius“ ()

Facebook