Hallo Community,
ich bastle gerade an einem Tool für interne News zum anzeigen. Hierzu lade ich eine Form mehrmals in ein Panel (untereinander), je nach Anzahl der News.
Sind mehr Forms eingeblendet als das Panel hoch ist wird aber keine Scrollbar angezeigt. AutoScroll ist true.
kann mir jemand einen tipp geben?
Danke
ich bastle gerade an einem Tool für interne News zum anzeigen. Hierzu lade ich eine Form mehrmals in ein Panel (untereinander), je nach Anzahl der News.
Sind mehr Forms eingeblendet als das Panel hoch ist wird aber keine Scrollbar angezeigt. AutoScroll ist true.
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- dt = myDataSet.Tables("NEWS")
- For Each DR In dt.Rows
- Dim newFrm As New Form2
- SetParent(newFrm.Handle, Panel1.Handle)
- newFrm.Location = New Point(0, Panel1.AutoScrollPosition.Y + locNewsY)
- newFrm.Show()
- If DR("GELESENVON").Contains("agraf") Then
- newFrm.LAB_UEBERSCHRIFT.Font = New Font("Microsoft Sans Serif", 10, FontStyle.Regular)
- newFrm.PB_NEW.Visible = False
- Else
- newFrm.LAB_UEBERSCHRIFT.Font = New Font("Microsoft Sans Serif", 12, FontStyle.Bold)
- newFrm.PB_NEW.Visible = True
- End If
- newFrm.LAB_UEBERSCHRIFT.Text = DR("BEZEICHNUNG").ToString
- newFrm.LAB_TEXT.Text = DR("BESCHREIBUNG").ToString
- newFrm.LAB_DATUM.Text = DR("DATUM").ToString
- anzNews += 1
- locNewsY += 49
- Next
- Panel1.Height = locNewsY
- End Sub
kann mir jemand einen tipp geben?
Danke
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „EaranMaleasi“ ()