Ich habe eine Ausgabe, bei der Bilder auf ein Form gezeichnet werden. Wenn die Anzahl der Bilder zu groß wird, werden Scrollbalken angezeigt. Die Reihenfolge ist aber anders, ich rufe in der Form-Load-Sub die Berechnung und die Erzeugung für die Ausgabe auf. Dann werden in der Form-Load-Sub die Scrollbalken angepasst.

Jetzt habe ich folgendes Problem, wenn das Formular geladen ist, kann über eine andere Sub die Anordnung der Bildchen ändern. Das Problem ist, das nach dem Ändern die Scrollbalken nicht mehr angezeigt werden.

Hat jemand eine Idee wie ich das Problem in den Griff bekomme?


Das mit den Scrollbalken habe ich aus einem Tipp:

Grüße Primax

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147

Option Explicit   Private Const c_HGHTWDTH As Integer = 255   Private m_blnFrmLoading As Boolean   Private m_sngPicBoxWidth As Single Private m_sngPicBoxHeight As Single   Private Sub Form_Load()   m_blnFrmLoading = True     With Me     .Width = 5000     .Height = 4000   End With     With picBoxControls     .BorderStyle = 0     .Move 0, 0       m_sngPicBoxWidth = .Width     m_sngPicBoxHeight = .Height   End With     With picGrip     .Height = c_HGHTWDTH     .Width = c_HGHTWDTH     .BorderStyle = 0     .ZOrder 0   End With     With HScroll1     .Left = 0     .Height = c_HGHTWDTH     .TabStop = False     .ZOrder 0   End With     With VScroll1     .Top = 0     .Width = c_HGHTWDTH     .TabStop = False     .ZOrder 0   End With     m_blnFrmLoading = False End Sub   Private Sub Form_Resize()   If m_blnFrmLoading Or Me.WindowState = vbMinimized Then Exit Sub   GetScrollBars End Sub   Private Sub GetScrollBars()   Dim sngHeight As Single   Dim sngWidth As Single   Dim boolHScroll As Boolean   Dim boolVScroll As Boolean     On Error Resume Next     sngWidth = Me.ScaleWidth   sngHeight = Me.ScaleHeight     boolHScroll = CBool(sngWidth < m_sngPicBoxWidth)   If boolHScroll Then     sngHeight = sngHeight - c_HGHTWDTH   End If     boolVScroll = CBool(sngHeight < m_sngPicBoxHeight)   If boolVScroll Then     sngWidth = sngWidth - c_HGHTWDTH       If Not boolHScroll Then       boolHScroll = CBool(sngWidth < m_sngPicBoxWidth)       If boolHScroll Then         sngHeight = sngHeight - c_HGHTWDTH       End If     End If   End If     If boolHScroll Then     With HScroll1       .Top = sngHeight       .Width = sngWidth         .Min = 0       .Max = m_sngPicBoxWidth - sngWidth       .LargeChange = picBoxControls.Width * 0.1       .SmallChange = .LargeChange / 4         .Visible = True     End With     Else     With HScroll1       .Value = 0       .Visible = False     End With   End If     If boolVScroll Then     With VScroll1       .Left = sngWidth       .Height = sngHeight         .Min = 0       .Max = m_sngPicBoxHeight - sngHeight       .LargeChange = picBoxControls.Height * 0.1       .SmallChange = .LargeChange / 4         .Visible = True     End With     Else     With VScroll1       .Value = 0       .Visible = False     End With   End If     If HScroll1.Visible And VScroll1.Visible Then     With picGrip       .Move VScroll1.Left, HScroll1.Top       .Visible = True     End With   Else     picGrip.Visible = False   End If End Sub   Private Sub HScroll1_Change()   picBoxControls.Left = -HScroll1.Value End Sub   Private Sub HScroll1_Scroll()   HScroll1_Change End Sub   Private Sub VScroll1_Change()   picBoxControls.Top = -VScroll1.Value End Sub   Private Sub VScroll1_Scroll()   VScroll1_Change End Sub

Habe Deine unzureichende Betreff-Zeile geändert und Code-Tags eingefügt!
Nächstes Mal bitte selber daran denken!