PictureBox wird nicht neu gezeichnet

  • VB6

    PictureBox wird nicht neu gezeichnet

    Also... Hallo nochmal.
    Und wieder komme ich mit einem Anfänger-Problem.

    Screenshot der orm
    pokesturm.tc-central.de/images/posts/vb_paradise1.png

    Jede figimg, figmask und bgimg ist auf Visible=False
    und AutoRedrwa=True, picWorld ist auch auf
    True bei AutoRedraw.
    PreviewKey ist bei der Form auch auf True.

    Screenshot zur Laufzeit
    pokesturm.tc-central.de/images/posts/vb_paradise2.png

    Code

    Visual Basic-Quellcode

    1. Option Explicit
    2. Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
    3. Private Const SRCCOPY = &HCC0020
    4. Private Const SRCAND = &H8800C6
    5. Private Const SRCPAINT = &HEE0086
    6. Dim hRes As Long
    8. 'Figure - Position, Blickrichtung, Überschritt aus der Mitte
    9. Dim FigureLeft, FigureTop, FigureShow, FigureOsTop, FigureOsLeft As Integer
    11. 'Speichert die Tiles
    12. Dim Fields(1 To 150, 1 To 150) As Integer
    14. 'Zum Zwischenspeichern für die Schleifen
    15. Dim y As Integer
    16. Dim x As Integer
    17. Dim yT As Integer
    18. Dim xT As Integer
    19. Private Sub Form_Load()
    20. 'Schrittfelder initialisieren [Werden später vom Server abgerufen]
    21. For y = 1 To 150 Step 1
    22. For x = 1 To 150 Step 1
    23. Fields(y, x) = 1
    24. Next
    25. Next
    26. Fields(5, 5) = 2
    28. 'Position der Charaktere inizialisieren [Wird später vom Server abgerufen]
    29. FigureTop = 2
    30. FigureLeft = 8
    31. FigureShow = 10
    32. FigureOsTop = 0
    33. FigureOsLeft = 0
    35. Redraw
    36. End Sub
    37. Private Sub Redraw()
    38. 'Schrittfelder neu setzen
    39. For y = 1 To 9 Step 1
    40. For x = 1 To 15 Step 1
    41. yT = FigureTop - 5 + y
    42. xT = FigureLeft - 8 + x
    43. If yT < 1 Or xT > 150 Then
    44. hRes = BitBlt(picWorld.hDC, (x - 1) * 14, (y - 1) * 15, 14, 15, bgimg(0).hDC, 0, 0, SRCCOPY)
    45. Else
    46. hRes = BitBlt(picWorld.hDC, (x - 1) * 14, (y - 1) * 15, 14, 15, bgimg(Fields(yT, xT)).hDC, 0, 0, SRCCOPY)
    47. End If
    48. Next
    49. Next
    51. 'Figur neu setzen
    52. x = (7 + FigureOsLeft) * 14 - 4
    53. y = (4 + FigureOsTop) * 15 - 3
    54. hRes = BitBlt(picWorld.hDC, x, y, 22, 22, figmask(FigureShow).hDC, 0, 0, SRCPAINT)
    55. hRes = BitBlt(picWorld.hDC, x, y, 22, 22, figimg(FigureShow).hDC, 0, 0, SRCAND)
    56. End Sub
    57. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    58. If KeyCode = vbKeyDown Then
    59. FigureTop = FigureTop + 1
    60. Redraw
    61. End If
    62. End Sub


    Das Problem ist, dass die Variable FigureTop
    bei Druck auf PfeilUnten zwar inkrementiert
    wird, jedoch wird die picWorld nicht neu
    gezeichnet.

    Was mache ich da falsch?

    // edit: Bei jeden Bildern handelt es sich um eine PictureBox.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „weed“ ()

Facebook
Telefonspende