| |
VB.NET - Ein- und Umsteigergefülltes Rectangle zeichnen unter Bilder Spalte | | | Autor: Erichbru | Datum: 18.04.23 16:15 |
|
Dim imgeLocation As Point = New Point(50, 190)
Try
For i As Integer = 0 To HBDatenbankDS.tblStrom.Rows.Count - 1
Dim row As DataRow = HBDatenbankDS.tblStrom.Rows(i)
Dim Ablese_Zeit As String = row("Ablesedatum").ToString
Dim bildpfad As String = row("Pfad").ToString
If IsBildPfad(bildpfad) = True Then
Dim img As Image = Resize_Image(New Bitmap(Image.FromFile( _
bildpfad)))
Dim rect = New Rectangle(50, 190, img.Height + 2, 22)
e.Graphics.DrawImage(img, imgeLocation)
'Calculate the location of the next image.
imgeLocation.Y += img.Height + 5
Else
End If
Next i
Catch ex As Exception
End Try so drucke ich meine Bilder aus Bildpfad einer Datarow. Das funktioniert soweit
nun soll noch Text unter dem Bild wie bekomme ich da an der unteren Bildposition eine gefülltes Rectangle hin? | |
Re: gefülltes Rectangle zeichnen unter Bilder Spalte | | | Autor: Manfred X | Datum: 19.04.23 12:49 |
| Hallo!
Text unter Bild anfügen:
- Neue Bitmap erstellen mit größerer Hohe als das Originalbild
- Graphics-Objekt für die neue Bitmap; per Clear-Methode eine geeignete Hintergrundfarbe einrichten
- Bild oben in Originalgröße in die vergroßerte Bitmap zeichnen (Draw)
- per Drawstring-Methode den Text unten in die Bitmap eintragen
Die erforderliche Zusatzhöhe für den Text kann man durch die Measurestring-Methode ermitteln. | |
Re: gefülltes Rectangle zeichnen unter Bilder Spalte | | | Autor: Erichbru | Datum: 19.04.23 13:49 |
| Hallo Manfred X,
Danke für deine Antwort habe es so gemacht:
wenn du eine schönere Lösung hast dann bitte zeig sie mir
bei mir fehlt noch der Seitenwechsel wenns nicht auf die Seite passt.
'--------------------------------------------------------------
Dim imgeLocation As Point = New Point(50, 180)
'--------------------------------------------------------------
Try
For i As Integer = 0 To HBDatenbankDS.tblStrom.Rows.Count - 1
Dim row As DataRow = HBDatenbankDS.tblStrom.Rows(i)
Dim bildpfad As String = row("Pfad").ToString
Dim Ablesedate As Date = row("Ablesedatum").ToString
Dim TitelBild As String
TitelBild = Format(Ablesedate, "ddd-dd.MM.yyyy HH:mm")
If IsBildPfad(bildpfad) = True Then
Dim img As Image = Resize_Image(New Bitmap(Image.FromFile( _
bildpfad)))
e.Graphics.DrawImage(img, imgeLocation)
'Calculate the location of the next image.
imgeLocation.Y += img.Height + 10
Dim rect = New Rectangle(50, imgeLocation.Y, 120, 22)
e.Graphics.FillRectangle(New SolidBrush(HeadColor), rect)
e.Graphics.DrawString(TitelBild, f8, Brushes.White, rect, _
sf)
Else
End If
Next i
Catch ex As Exception
End Try sieht dann so aus ->
| |
Re: gefülltes Rectangle zeichnen unter Bilder Spalte | | | Autor: Erichbru | Datum: 22.05.23 19:54 |
| Hallo ManfredX,
habe es nun doch hinbekommen. So gefällt es mir und passt. Der Code ist zu lang um ihn hier reinzustellen.
das Endergbnis mit Testdaten und "Test Belegen" man sieht auch das die Testausrichtung passt
bin halt noch mal Schritt für Schritt an das Thema rangegangen. Und siehe da Hura
Beitrag wurde zuletzt am 22.05.23 um 19:57:52 editiert. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|