möchte in der DGV ein Bild zuweisen?
so fülle ich die DGV, in Spalte 4 soll die prio als Bild dargestellt werden 1 = grün | 2 = gelb| 3 = rot
bild aus der recource
Thread verschoben
so fülle ich die DGV, in Spalte 4 soll die prio als Bild dargestellt werden 1 = grün | 2 = gelb| 3 = rot
bild aus der recource
Visual Basic-Quellcode
- Public Class frmMain
- '//
- Inherits Form
- Private dtToDo As DataTable
- Private dvToDo As DataView
- '//
- Public Sub New()
- InitializeComponent()
- Try
- ' DataGridView
- dgvAufgaben.AutoGenerateColumns = False
- dgvAufgaben.ShowCellErrors = False
- dgvAufgaben.ShowRowErrors = False
- dgvAufgaben.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
- dgvAufgaben.SelectionMode = DataGridViewSelectionMode.FullRowSelect
- dgvAufgaben.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
- dgvAufgaben.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
- ' DataTable
- dtToDo = New DataTable("ToDoList")
- ' Set DataTable columns
- dtToDo.Columns.Add("Nr", GetType([Int32])) '0 ID
- dtToDo.Columns.Add("Eintrag", GetType([DateTime])) '1 ToDoEintrag (Datum)
- dtToDo.Columns.Add("Aufgabe", GetType([String])) '2 Aufgabenbeschreibung
- dtToDo.Columns.Add("Art", GetType([String])) '3 Aufgabentyp
- dtToDo.Columns.Add("Priorität", GetType([Image])) '4 Wichtigkeit /3=Rot|2=Gelb|1=Grün
- dtToDo.Columns.Add("Dauer", GetType([Int32])) '5 Dauer in Minuten
- dtToDo.Columns.Add("Restzeit", GetType([Int32])) '6 Tagesrestzeit
- ' Bindings
- dgvAufgaben.Columns(0).DataPropertyName = "Nr"
- dgvAufgaben.Columns(1).DataPropertyName = "Eintrag"
- dgvAufgaben.Columns(2).DataPropertyName = "Aufgabe"
- dgvAufgaben.Columns(3).DataPropertyName = "Art"
- dgvAufgaben.Columns(4).DataPropertyName = "Prio" ' Image zuweisen 3=Rot|2=Gelb|1=Grün
- dgvAufgaben.Columns(5).DataPropertyName = "Dauer"
- dgvAufgaben.Columns(6).DataPropertyName = "Restzeit"
- 'Spaltenbreiten
- dgvAufgaben.Columns(0).Width = 50
- dgvAufgaben.Columns(1).Width = 40
- dgvAufgaben.Columns(2).Width = 150
- dgvAufgaben.Columns(3).Width = 40
- dgvAufgaben.Columns(4).Width = 50
- dgvAufgaben.Columns(5).Width = 50
- dgvAufgaben.Columns(6).Width = 50
- ' Verbindung zur Datenbank herstellen
- Dim verbindung As OleDb.OleDbConnection = _
- New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\_Meine Anwendungen\Todoliste\MyTODOLIST.mdb")
- ' SQL String generieren
- Dim strsql = "SELECT ToDoTab.ToDoID AS Nr, " & _
- "ToDoTab.ToDoEintrag AS Eintrag," & _
- "ToDoTab.ToDoAufgabe AS Aufgabe," & _
- "ToDoTab.ToDoArt AS Art," & _
- "ToDoTab.ToDoPrio AS Prio, " & _
- "ToDoTab.ToDoDauer AS Dauer," & _
- "ToDoTab.ToDoRestzeit AS Restzeit " & _
- "FROM ToDoTab;"
- Dim ausfuehren As New OleDb.OleDbCommand(strsql, verbindung)
- Dim ds As New DataSet
- Dim da As New OleDb.OleDbDataAdapter(ausfuehren)
- da.Fill(dtToDo)
- ' DataView from DataTable
- dvToDo = New DataView(dtToDo)
- ' Bind DataView to DataGridView
- dgvAufgaben.DataSource = dvToDo
- Catch ex As Exception
- MsgBox("Fehler: " & vbCrLf & _
- ex.Message)
- End Try
- End Sub
- End Class
Thread verschoben
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „FlashTek“ ()