(Rechtschreibfehler urheberrechtlich geschützt)

(Rechtschreibfehler urheberrechtlich geschützt)

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]

(Rechtschreibfehler urheberrechtlich geschützt)

(Rechtschreibfehler urheberrechtlich geschützt)

  Private Sub DataGridView_CellPainting(sender As Object, e As _
    DataGridViewCellPaintingEventArgs) Handles BenutzerDataGridView.CellPainting
    Dim dgv = DirectCast(sender, DataGridView)
    Try
 
      'todo: Hier den Namen der Spalte anpassen!
      If dgv.Columns("DataGridViewTextBoxColumn1").Index = e.ColumnIndex _
        AndAlso e.RowIndex >= 0 Then
 
        'Hintergrund und Gitter zeichnen
        e.PaintBackground(e.CellBounds, True)
 
        'Text zeichnen
        If (e.Value IsNot Nothing) Then
 
          'todo: Hier eventuell Rendermodus anpassen!
          e.Graphics.TextRenderingHint = _
            Drawing.Text.TextRenderingHint.ClearTypeGridFit
 
          Dim vs = CStr(e.Value).Split(":"c) 'Text teilen am Doppelpunkt
          If vs.Length = 2 Then 'Text links und rechts zeichnen
            Using sf As New StringFormat With {.LineAlignment = _
              StringAlignment.Center}
              Using sbr As New SolidBrush(e.CellStyle.ForeColor)
                If (e.State And DataGridViewElementStates.Selected) > 0 Then
                  sbr.Color = e.CellStyle.SelectionForeColor
                End If
                sf.Alignment = StringAlignment.Near 'links
                e.Graphics.DrawString(vs(0).Trim & ":", e.CellStyle.Font, sbr, _
                  e.CellBounds, sf)
                sf.Alignment = StringAlignment.Far 'rechts
                e.Graphics.DrawString(vs(1).Trim, e.CellStyle.Font, sbr, _
                  e.CellBounds, sf)
              End Using
            End Using
          Else 'Normal zeichnen
            e.PaintContent(e.CellBounds)
          End If
        End If
 
        e.Handled = True
      End If
    Catch ex As Exception
    End Try
  End Sub

|Z76Z43-6:    1532,11 € / Stk.|
|P456:          1,56 € / Meter|
|Z76Z43-6:    1532,11 € / Stk.|