Background Image für ein DataGridView

mhc2004 · 25. August 2009, 17:22

Hallo,

ich bin erst seit heute im Forum angemeldet, möchte Hallo sagen und auch gleich eine Frage stellen zu einem Problem wo ich nicht weiter komme.

Ich möchte in meinem DataGridView ein Background Image einbinden und habe dazu folgenden Code im Netz gefunden.

Leider weiss ich nicht so recht damit anzufangen.Mein DataGridView heisst DataGridView1, also Standardname.Muss ich die Klasse die ich erstelle auch umbenennen oder etwas anderes tuen, was ich auch mache ich bekomme nicht das gewünschte Image in den Hintergrund des DataGridViews.

Die Seite zum Thema: codeproject.com/KB/grid/Datagridview_BackImage.aspx

Und hier der Code den ich in eine neue Klasse eingefügt habe:

VB.NET-Quellcode

Public Class usrDataGridViewInherits Windows.Forms.DataGridView
Private m_Image As Drawing.ImagePublic Sub New()
Me.m_Image = Drawing.Image.FromFile("D:\Blue.jpg")
End SubProtected Overrides Sub PaintBackground(ByVal graphics As System.Drawing.Graphics, _
ByVal clipBounds As System.Drawing.Rectangle, _ByVal gridBounds As System.Drawing.Rectangle)
MyBase.PaintBackground(graphics, clipBounds, gridBounds)graphics.DrawImage(Me.m_Image, gridBounds)
End Sub
'<description("set /> _Public Property BackImage() As Drawing.Image
GetReturn Me.m_Image
End GetSet(ByVal value As Drawing.Image)
Me.m_Image = value
End SetEnd Property
End Class

Kann mir dabei jemand behilflich sein.
Danke...

Grüße
Maik

INOPIAE · 26. August 2009, 06:31

Du musst natürlich Dein bestehendes DataGridView durch Deine neue Klasse ersetzen.

mhc2004 · 26. August 2009, 08:00

Wie mach ich das?

Kannst du mir das erklären, ich steh echt irgendwie auf dem Schlauch.

.Phil · 26. August 2009, 08:53

Ungefähr so:

VB.NET-Quellcode

Dim myNewDataGridView as new usrDataGridView

Vorher musst du allerdings noch deine neue Klasse instanzieren und die entsprechende DLL einbinden, aber ich denke das hast du natürlich schon getan

Grüße
Phil

mhc2004 · 26. August 2009, 09:04

hmm....eine dll gab es nicht dazu, denke ich.

Zumindest kann ich auf der Seite nichts finden.

Und wie instanziere ich eine neue Klasse....ach du Kacke das wird ja immer komplizierter.

.Phil · 26. August 2009, 09:11

Oha, mein Gehirn läuft aktuell nur mit halber Kraft. Sorry ich habe Mist erzählt :). Wenn du keine DLL aus deiner abgeleiteten Klasse gemacht hast vergiss den Teil einfach. UNd die Instanzierung sollte mit

VB.NET-Quellcode

Dim myNewDataGrid as new usrDataGridView

bereits erledigt sein. Damit erzeugst du allerdings nur eine neue Instanz des DGV, du musst es dir dann noch per Code in deiner Form anzeigen lassen, was wahrscheinlich mit

VB.NET-Quellcode

myNewDataGrid.Position.X = 123
myNewDataGrid.Position.Y = 321
myNewDataGrid.Visible = True

gehen sollte. Da wendest du dich aber am besten vertrauensvoll an Intellisense und blätterst die verfügbaren Eigenschaften durch.

Grüße
.Phil

mhc2004 · 26. August 2009, 09:37

Also

VB.NET-Quellcode

myNewDataGrid.Position.X = 123
myNewDataGrid.Position.Y = 321
myNewDataGrid.Visible = True

geht net, weil in der Klasse des net drin steht.

Was ich in der Form machen kann ist

VB.NET-Quellcode

myNewDataGrid.BackImage...

in der Form habe ich jetzt stehen:

VB.NET-Quellcode

Dim myNewDataGrid As New usrDataGridView
myNewDataGrid.BackImage = Drawing.Image.FromFile("D:\Blue.jpg")

Nur leider geht es damit auch nicht. :evil:

Irgendwie muss es ja aus der Form aufgerufen werden...

INOPIAE · 26. August 2009, 10:26

Was Du machst:

VB.NET-Quellcode

Public Class Formular
private myNewDataGrid As New usrDataGridView
Private Sub form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
me.controls.add(myNewDataGrid)
with myNewDataGrid
.left=xx
.top=yy
...
end with
End Sub
......
End Class

Das Backimage sethst Du ja in Deiner usrDataGridView-Klasse ein.

mhc2004 · 26. August 2009, 11:12

Super Klasse, so hat es funktioniert.

Vielen Dank ich werd es in einigen Projekten bestimmt wieder anwenden können.

Leider hat es nicht so funktioniert wie ich es wollte.

Ich möchte nämlich ein DataGrid mit Daten füllen, dieses dann ausdrucken aber auf dem gedruckten Blatt soll ein Bild sein.Ähnlich wie ein Firmenkopf und darunter die Tabelle. Drucken kann ich das DataGridView mit folgendem Code:

VB.NET-Quellcode

Option Strict On
''' <summary>
''' Author: Klaus D. Raudszus / VB 2005, Visual Studio Prof./ November 2006
''' </summary>
''' <remarks></remarks>Public Class DGVPrint
Protected m_Pages As Int32Protected m_intTotalWidth As Int32
Protected m_intPageHeight As Int32Protected m_intRowsToPrint As Int32
Protected m_arColsWidth() As Int32Protected m_arHeaderText() As System.String
Protected m_ftHeaderFont As Drawing.FontProtected m_DataGridView As Windows.Forms.DataGridViewProtected WithEvents m_PrintDoc As Drawing.Printing.PrintDocument
Public Sub New()Me.m_Pages = 0
Me.m_intTotalWidth = 0Me.m_intPageHeight = 0
Me.m_intRowsToPrint = 0Me.m_ftHeaderFont = New Drawing.Font("Arial", 9.75!)
End SubPublic Sub New(ByVal dgv As Windows.Forms.DataGridView)
Me.New()Me.m_DataGridView = dgv
ReDim Me.m_arColsWidth(Me.m_DataGridView.ColumnCount - 1)ReDim Me.m_arHeaderText(Me.m_DataGridView.ColumnCount - 1)
End Sub
''' <summary>
''' Ermittelt die Orientierung der Seite und erstellt Druckvorschau
''' </summary>
''' <remarks></remarks>Public Overridable Sub Print()
Me.m_PrintDoc = New Drawing.Printing.PrintDocumentAddHandler m_PrintDoc.EndPrint, AddressOf Me.EndPrint
Dim intCols As Int32 = Me.m_DataGridView.ColumnCount - 1For i As Int32 = 0 To intCols
Me.m_arColsWidth(i) = Me.GetColumnsSize(i)Me.m_arHeaderText(i) = Me.GetHeaderText(i)
Me.m_intTotalWidth = Me.m_intTotalWidth + Me.m_arColsWidth(i)
Next
If Me.m_intTotalWidth > Me.m_PrintDoc.DefaultPageSettings.PaperSize.Width Then
Me.m_PrintDoc.DefaultPageSettings.Landscape = TrueMe.m_PrintDoc.DefaultPageSettings.Margins.Top = 35
Me.m_intPageHeight = Me.m_PrintDoc.DefaultPageSettings.PaperSize.Width
ElseMe.m_intPageHeight = Me.m_PrintDoc.DefaultPageSettings.PaperSize.Height
End IfDim ppd As Windows.Forms.PrintPreviewDialog = New Windows.Forms.PrintPreviewDialog()ppd.Document = Me.m_PrintDoc
ppd.ShowDialog()
End SubProtected Overridable Sub m_PrintDoc_PrintPage(ByVal sender As System.Object, _
ByVal e As Drawing.Printing.PrintPageEventArgs) Handles m_PrintDoc.PrintPageMe.PrintHeader(e.Graphics)
Me.PrintRows(e)
'Seitenzahl unten links druckenDim str As String = "Seite " & Me.m_Pages.ToString
e.Graphics.DrawString(str, _Me.m_DataGridView.Font, Drawing.Brushes.Blue, _
Me.m_PrintDoc.DefaultPageSettings.Margins.Left, Me.m_intPageHeight - 75)
End Sub
''' <summary>
''' Methode druckt die Spaltenberschriften des DGV als Kopfzeile
''' </summary>
''' <param name="g"></param>
''' <remarks></remarks>Protected Overridable Sub PrintHeader(ByVal g As Drawing.Graphics)
Dim x As Int32 = Me.m_PrintDoc.DefaultPageSettings.Margins.LeftDim y As Int32 = Me.m_PrintDoc.DefaultPageSettings.Margins.Top
For i As Int32 = 0 To Me.m_arHeaderText.Length - 1g.DrawString(Me.m_arHeaderText(i), Me.m_ftHeaderFont, Drawing.Brushes.Blue, x, y)
x += Me.m_arColsWidth(i)
Next
End Sub
''' <summary>
''' Methode druckt die Reihen und fordert bei Bedarf neue Seite an
''' </summary>
''' <param name="e"></param>
''' <remarks></remarks>Protected Overridable Sub PrintRows(ByVal e As Drawing.Printing.PrintPageEventArgs)
Dim intCols As Int32 = Me.m_DataGridView.ColumnCount - 1Dim intRows As Int32 = Me.m_DataGridView.RowCount - 2
Dim x As Int32 = Me.m_PrintDoc.DefaultPageSettings.Margins.LeftDim y As Int32 = Me.m_PrintDoc.DefaultPageSettings.Margins.Top + 50
Me.m_Pages += 1For i As Int32 = Me.m_intRowsToPrint To intRows
For ii As Int32 = 0 To intColsDim str As System.String = Me.m_DataGridView.Rows(i).Cells(ii).Value.ToString
e.Graphics.DrawString(str, Me.m_DataGridView.Font, Drawing.Brushes.Black, x, y)x += Me.m_arColsWidth(ii)
Nextx = Me.m_PrintDoc.DefaultPageSettings.Margins.Left
y += 30If y > (Me.m_intPageHeight - _
Me.m_PrintDoc.DefaultPageSettings.Margins.Bottom) Then
e.HasMorePages = TrueMe.m_intRowsToPrint = i + 1
Return
Else
e.HasMorePages = FalseMe.m_intRowsToPrint = 0
End If
Next
End Sub
''' <summary>
''' Funktion zum Ermitteln der einzelnen Spaltenberschrift
''' </summary>
''' <param name="col">
''' šbergabe der Spaltennummer
''' </param>
''' <returns>
''' Gibt die Spaltenberschrift zurck
''' </returns>
''' <remarks></remarks>Protected Overridable Function GetHeaderText(ByVal col As Int32) As System.String
Return Me.m_DataGridView.Columns(col).HeaderText
End Function
''' <summary>
''' Funktion zum Ermitteln der einzelnen Spaltenbreite
''' </summary>
''' <param name="col">
''' šbergabe der Spaltennummer
''' </param>
''' <returns>
''' Gibt die Spaltebreite der ausgew„hlten Spalte zurck
''' </returns>
''' <remarks></remarks>Protected Overridable Function GetColumnsSize(ByVal col As Int32) As Int32
Dim sglWidth As System.Single = 0Dim intRows As Int32 = Me.m_DataGridView.RowCount - 2
Using g As Drawing.Graphics = Drawing.Graphics.FromHwnd(Me.m_DataGridView.Handle)Dim newSizeF As Drawing.SizeF = g.MeasureString(Me.GetHeaderText(col), Me.m_ftHeaderFont)
sglWidth = newSizeF.Width + 15For i As Int32 = 0 To intRows
newSizeF = g.MeasureString( _Me.m_DataGridView.Rows(i).Cells(col).Value.ToString, _
Me.m_DataGridView.Font)If newSizeF.Width > sglWidth Then sglWidth = newSizeF.Width + 15
Next
End UsingReturn Convert.ToInt32(sglWidth)
End FunctionProtected Overridable Sub EndPrint(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintEventArgs)
Me.m_Pages = 0
End Sub
End Class

Könnte man in diesen Code Verweise einbauen das ein Bild mit in die Druckvorschau eingefügt wird?
Mein Bild welches auf die Druckvorschau mit drauf soll hat nur einen Banner am oberen Bildrand der Rest wäre also weiß, also es wäre ein Firmenbriefkopf.
Geht das in diesem Code???

mhc2004 · 26. August 2009, 12:07

...hab es selber herausgefunden....

mhc2004 · 26. August 2009, 13:11

Jetzt bleibe ich doch wieder hängen.

Wie ich ein Bild aus einer Datei in der Klasse bennen kann so das es auch gedruckt wird hab ich geschafft, aber wie kann ich es anstellen wenn ich den Inhalt einer Textbox auch mit drucken möchte.

Das drucken des DataGridViews sieht ja so aus:

VB.NET-Quellcode

Protected Overridable Sub PrintRows(ByVal e As Drawing.Printing.PrintPageEventArgs)Dim intCols As Int32 = Me.m_DataGridView.ColumnCount - 1
Dim intRows As Int32 = Me.m_DataGridView.RowCount - 2Dim x As Int32 = Me.m_PrintDoc.DefaultPageSettings.Margins.Left
Dim y As Int32 = Me.m_PrintDoc.DefaultPageSettings.Margins.Top + 300Me.m_Pages += 1
For i As Int32 = Me.m_intRowsToPrint To intRowsFor ii As Int32 = 0 To intCols
Dim str As System.String = Me.m_DataGridView.Rows(i).Cells(ii).Value.ToStringe.Graphics.DrawString(str, Me.m_DataGridView.Font, Drawing.Brushes.Black, x, y)
x += Me.m_arColsWidth(ii)
Nextx = Me.m_PrintDoc.DefaultPageSettings.Margins.Left
y += 30If y > (Me.m_intPageHeight - _
Me.m_PrintDoc.DefaultPageSettings.Margins.Bottom) Then
e.HasMorePages = TrueMe.m_intRowsToPrint = i + 1
Return
Else
e.HasMorePages = FalseMe.m_intRowsToPrint = 0
End If
NextEnd Sub

Was muss ich machen das ich den Text aus einer Textbox mit drucken kann???

Background Image für ein DataGridView

Background Image für ein DataGridView

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben