vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Zellen einer DGV mit Auswahllisten versehen 
Autor: effeff
Datum: 12.10.20 21:22

Du willst meiner Meinung nach nur Werte aus einer ComboBox in Deine DataTable übernehmen. Dazu würde sich eine zweite Form anbieten, die nur eine ComboBox mit Inhalt und einen Button hat. Du würdest im DataGridView den MouseButton abfragen, und wenn dieses der rechte ist und die gewünschte Spalte ausgewählt ist, die Form2 anzeigen lassen. Nach dem Beenden der Form2 würde der Inhalt dann in die DataGridView-Zelle unter der Maus eingetragen werden:

Public Class Form1
 
    Dim dtWochenplan As DataTable
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        dtDatenInitialisieren()
        DataGridView1Initialisieren()
 
    End Sub
 
    Private Sub dtDatenInitialisieren()
 
        dtWochenplan = New DataTable
        dtWochenplan.TableName = "Wochenplan"
 
        Dim keys(1) As DataColumn
        Dim column As New DataColumn
        column.DataType = System.Type.GetType("System.Int32")
        With column
            .ColumnName = "ID"
            .AutoIncrement = True
            .AutoIncrementStep = 1
        End With
        dtWochenplan.Columns.Add(column)
        keys(0) = column
        dtWochenplan.PrimaryKey = keys
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "Name"
        dtWochenplan.Columns.Add(column)
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "Tag"
        dtWochenplan.Columns.Add(column)
 
    End Sub
 
    Private Sub DataGridView1Initialisieren()
        With DataGridView1
            .DataSource = dtWochenplan
            .ReadOnly = False
            .AllowUserToAddRows = True
            .AllowUserToDeleteRows = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            .ScrollBars = ScrollBars.Both
            .RowsDefaultCellStyle.BackColor = Color.White
            .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
        End With
    End Sub
 
    Private Sub DataGridView1_CellMouseDown(sender As Object, e As _
      DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDown
        c = e.ColumnIndex
        r = e.RowIndex
    End Sub
 
    Dim r As Integer = 0
    Dim c As Integer = 0
 
    Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) _
      Handles DataGridView1.MouseClick
 
        If e.Button = MouseButtons.Left Or c <> 1 Then
            Exit Sub
        End If
 
        DataGridView1.CurrentCell = DataGridView1(c, r)
        DataGridView1.BeginEdit(True)
 
        Dim MouseLeft As Integer = MousePosition.X
        Dim MouseTop As Integer = MousePosition.Y
 
        Dim f2 As New Form2
        f2.StartPosition = FormStartPosition.Manual
        f2.Left = MouseLeft
        f2.Top = MouseTop
 
        f2.ShowDialog()
 
        Dim Rueckgabe As String = f2.Nachname
 
        DataGridView1.CurrentCell.Value = Rueckgabe
 
        DataGridView1.EndEdit(True)
 
    End Sub
 
 
End Class
Public Class Form2
 
    Public Nachname As String
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With ComboBox1
            .Items.Add("Müller")
            .Items.Add("Schmidt")
            .Items.Add("Meier")
        End With
    End Sub
 
    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles _
      btnOK.Click
        Nachname = ComboBox1.Text
        Me.Close()
    End Sub
End Class

EALA FREYA FRESENA

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zellen einer DGV mit Auswahllisten versehen60woha12.10.20 16:43
Re: Zellen einer DGV mit Auswahllisten versehen21effeff12.10.20 18:14
Re: Zellen einer DGV mit Auswahllisten versehen17woha12.10.20 18:27
Re: Zellen einer DGV mit Auswahllisten versehen17effeff12.10.20 20:18
Re: Zellen einer DGV mit Auswahllisten versehen18effeff12.10.20 21:22
Re: Zellen einer DGV mit Auswahllisten versehen17woha13.10.20 08:32

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2020 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