Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

AlKiS — Thu, 09 Feb 2012 03:25:59 GMT

ουαααου!

Αυτό έχει πολλά καινούργια (για μένα) πράγματα μέσα.

Χαίρομαι :)

όπως πάντα, θα το μελετήσω μέχρι να καταλάβω τα πάντα και θα απαντήσω όταν είμαι θετικός ότι κατάλαβα. ή αν έχω απορίες... :Ρ

Thank you!

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

Libra Storm — Thu, 09 Feb 2012 02:43:48 GMT

Δες και αυτόν τον τρόπο αν θες.

Public Class Form1
    Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
        Dim dt As New DataTable
        Dim r As DataRow

        dt.Columns.Add("ID", GetType(Integer))
        dt.Columns.Add("DESCRIPTION", GetType(String))

        For i As Integer = 1 To 10
            r = dt.NewRow

            r.Item("ID") = i
            r.Item("DESCRIPTION") = "Desc" & i
            dt.Rows.Add(r)
        Next

        Me.DataGridView1.DataSource = dt
    End Sub

    Private Sub DataGridView1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp
        If TypeOf e Is MouseEventArgs Then
            Dim meArgs As MouseEventArgs = DirectCast(e, MouseEventArgs)

            If meArgs.Button = Windows.Forms.MouseButtons.Right Then
                Dim htInfo As DataGridView.HitTestInfo = Me.DataGridView1.HitTest(meArgs.X, meArgs.Y)

                If htInfo.Type = DataGridViewHitTestType.ColumnHeader Then
                    Dim ctm As New ContextMenuStrip
                    Dim tst As New ToolStripTextBox

                    AddHandler tst.KeyDown, Sub(s As Object, ev As KeyEventArgs)
                                                If ev.KeyCode = Keys.Enter Then
                                                    Me.DataGridView1.Columns(htInfo.ColumnIndex).HeaderText =
                                                        DirectCast(s, ToolStripTextBox).Text

                                                    ctm.Close()
                                                    ctm.Dispose()
                                                End If
                                            End Sub

                    tst.Text = Me.DataGridView1.Columns(htInfo.ColumnIndex).HeaderText
                    ctm.Items.Add(tst)

                    ctm.Show(Me.DataGridView1.PointToScreen(New Point(e.X, e.Y)).X,
                             Me.DataGridView1.PointToScreen(New Point(e.X, e.Y)).Y)

                End If
            End If
        End If

    End Sub
End Class

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

AlKiS — Thu, 09 Feb 2012 01:51:46 GMT

    Private Sub dgvData_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvData.ColumnHeaderMouseClick
        If e.Button = MouseButtons.Right Then
            CurrentColumnIndex = e.ColumnIndex
            cmsColumnRen.Show(Cursor.Position)
            txtColumnRen.Focus()
        End If
    End Sub

    Private Sub txtColumnRen_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtColumnRen.KeyUp
        If e.KeyCode = Keys.Enter Then
            If txtColumnRen.Text <> "" AndAlso CurrentColumnIndex >= 0 Then
                dgvData.Columns(CurrentColumnIndex).HeaderText = txtColumnRen.Text
                dgvData.Columns(CurrentColumnIndex).Name = txtColumnRen.Text
                CurrentColumnIndex = -1
                txtColumnRen.Text = ""
                cmsColumnRen.Close()
                dgvData.ContextMenuStrip = Nothing
            End If
        End If
    End Sub

Δουλεύει!!

Ευχαριστώ πολύ :)

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

nikos123 — Thu, 09 Feb 2012 01:29:47 GMT

Σβήσε το

dgvData.ContextMenuStrip = cmsColumnRen

διότι θα σου εμφανίζει το context όταν κάνεις δεξί κλικ οπουδήποτε μέσα στο dgv.

Στο ColumnHeaderMouseClick βάλε:

cmsColumn.Show(Cursor.Position);

και σβήσε τον κώδικα για Location

To txtColumn είναι στο contextMenu? Το Lost_Focus δε νομίζω να χρειάζεται.

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

AlKiS — Thu, 09 Feb 2012 00:46:20 GMT

Οκ, όλα δουλεύουν ρολόι.

Αυτό που θέλω γίνετε, αλλά το menu εμφανίζεται πρώτα έξω απο το παράθυρο του προγράμματος (για την ακρίβεια, εμφανίζεται στην αρχή της οθόνης μου, τέρμα πάνω αριστερά)

και αν το πατήσω και δεύτερη φορά, τότε εμφανίζεται κάτω απο το column name.

Δεν μπορώ να το βάλω απο το GUI το dgv να έχει σαν ContextMenuStrip το cmsColumnRen γιατί τότε δεν δουλεύει τίποτα..

μόνο αν το κάνω μέσα στο πρόγραμμα, και μετά όταν κλείνει το βγάζω, δουλεύει. Αλλιώς δεν λειτουργεί καθόλου ο κώδικας.

Δεν βγάζει νόημα όλο αυτό όμως... γιατί να παίρνει το position με την δεύτερη και όχι με την πρώτη ??

(Κάτω είναι ο κώδικας)

    Private Sub dgvData_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvData.ColumnHeaderMouseClick
        If e.Button = MouseButtons.Right Then
            CurrentColumnIndex = e.ColumnIndex
            dgvData.ContextMenuStrip = cmsColumnRen
            cmsColumnRen.Show()
            cmsColumnRen.Location = New Point(e.Location.X, e.Location.Y)
        End If
    End Sub

    Private Sub txtColumnRen_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtColumnRen.KeyUp
        If e.KeyCode = Keys.Enter Then
            If txtColumnRen.Text <> "" AndAlso CurrentColumnIndex >= 0 Then
                dgvData.Columns(CurrentColumnIndex).HeaderText = txtColumnRen.Text
                CurrentColumnIndex = -1
                txtColumnRen.Text = ""
                cmsColumnRen.Close()
                dgvData.ContextMenuStrip = Nothing
            End If
        End If
    End Sub

    Private Sub txtColumnRen_LostFocus(sender As Object, e As System.EventArgs) Handles txtColumnRen.LostFocus
        txtColumnRen.Text = ""
        cmsColumnRen.Close()
        dgvData.ContextMenuStrip = Nothing
    End Sub

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

nikos123 — Thu, 09 Feb 2012 00:19:20 GMT

Πρόσθεσε ένα member:

int currentColumnIndex = -1;

Μέσα στο dgv_ColumnHeaderMouseClick γράψε :

currentColumnIndex = e.ColumnIndex;

Αυτό είναι το index που θες.

Μην ξεχνάς να το κάνεις -1 μετά την μετονομασία.

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

AlKiS — Thu, 09 Feb 2012 00:08:18 GMT

Δουλεύει, ναι !!! :)

Το τελευταίο θέμα μου τώρα είναι το εξής:

Νόμιζα ότι όταν κάποιος θα έκανε κλίκ πάνω στο όνομα του column, θα απεπιλέγονταν όλα τα άλλα, και θα επιλέγονταν μόνο αυτό. Με αυτή τη λογική έκανα την εξής σειρά:

1	dgvData.SelectedColumns(dgvData.SelectedColumns.Count - 1).HeaderText = txtColumnRen.Text

Ωστόσο, δεν γίνεται έτσι..

Όταν κάποιος κάνει δεξί κλικ στο όνομα του column, όλα μένουν ως είχαν. Άρα αν δεν είχε επιλέξει τίποτα, θα έχουμε πρόβλημα..

και αν είχε επιλέξει κάτι άλλο.. τότε αντί να μετονομαστεί η στήλη που έγινε δεξί κλικ, θα μετονομαστεί η τελευταία επιλεγμένη στήλη..

Ουσιαστικά η ερώτησή μου είναι: Πως μπορώ να κάνει retrieve το index του column που έγινε δεξί κλικ έτσι ώστε να γράψω

        If e.KeyCode = Keys.Enter Then
            If txtColumnRen.Text <> "" Then
                dgvData.SelectedColumns(RenamingColumnIndex).HeaderText = txtColumnRen.Text
                txtColumnRen.Text = ""
            End If
        End If

αντί για

1	dgvData.SelectedColumns(dgvData.SelectedColumns.Count - 1).HeaderText = txtColumnRen.Text

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

nikos123 — Wed, 08 Feb 2012 23:49:19 GMT

Για δεξί κλικ του DGV γράψε αυτό

if(e.Button == MouseButtons.Right)

Στο textbox κοίτα το KeyUp event και έλεγξε το Enter.

if(e.KeyCode == Keys.Enter)

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

AlKiS — Wed, 08 Feb 2012 23:36:18 GMT

Ευχαριστώ!

Είμαι πολύ κοντά τώρα, εμφανίζεται ένα μενού με χώρο για να γράψω το όνομα... απλώς δεν ξέρω πως να αναγνωρίζω αν το κουμπί που πατήθηκε είναι το enter ή όχι..

Και το χρειάζομαι αυτό, γιατί βλέπεις θέλω να αλλάζει το όνομα μόνο άμα πατήσει έντερ ο άλλος.

    Private Sub dgvData_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvData.ColumnHeaderMouseClick
        If e.Equals(MouseButtons.Right) Then
            cmsColumnRen.Show()
        End If
    End Sub

    Private Sub txtColumnRen_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtColumnRen.KeyPress
        MsgBox(e.KeyChar)
        If sender.ToString = (Keys.Enter.ToString) Then
            If txtColumnRen.Text <> "" Then
                dgvData.SelectedColumns(dgvData.SelectedColumns.Count - 1).HeaderText = txtColumnRen.Text
                txtColumnRen.Text = ""
            End If
        End If
    End Sub

    Private Sub txtColumnRen_LostFocus(sender As Object, e As System.EventArgs) Handles txtColumnRen.LostFocus
        txtColumnRen.Text = ""
    End Sub

Το έψαξα, δοκίμασα και στο "Sender" και στο "e"

τα GetType, ToString, KeyChar και διάφορα.. αλλά κανένα δεν μου δίνει τη δυνατότητα να ελέγξω αν είναι το έντερ που πατήθηκε.. όλα βλακείες μου γυρνάνε πίσω..

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

nikos123 — Wed, 08 Feb 2012 22:35:07 GMT

Πρέπει στο ColumnHeaderMouseClick event ( εφόσον είναι δεξί ) του DGV να εμφανίζεις ένα ContextMenu με επιλογή "Rename". Το click του "Rename" να δίνει τη δυνατότητα στο χρήστη να γραφεί σε κάποιο textBox το νέο όνομα... και να γράψεις τον παραπάνω κώδικα.

Είναι κάπως ανορθόδοξος τρόπος... αλλά δεν είναι συνηθισμένο να αλλάζει ο χρήστης τα ονόματα στις στήλες.

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

AlKiS — Wed, 08 Feb 2012 22:17:53 GMT

Ναι, το θέμα είναι που να το βάλω αυτό τον κώδικα??

δεν έχει δεξί κλικ στο Column Name στο dgv........

μπορώ να βάλω εγώ???? και να προσθέσω την επιλογή "Rename" για να γράψω αυτόν τον κώδικα μετά??

Απ: Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

nikos123 — Wed, 08 Feb 2012 22:10:17 GMT

 dgvData.Columns[colNumber].HeaderText = "new text";

Πως αλλάζει το text ενός column απο ένα dgv σε runtime?

AlKiS — Wed, 08 Feb 2012 21:55:54 GMT

Ο τίτλος πάνω κάτω τα λέει όλα... :Ρ

Αλλά ας εξηγήσουμε ^^

Έχω ένα Data Grid View, και έχω γράψει κώδικα όπου μπορεί κάποιος να κάνει Import ένα αρχείο κειμένου, ή να βάλει τις δικές του μεταβλητές με δικά του ονόματα.

Όταν πας να βάλεις τα colums είναι τόσο απλό όσο:

            For i = 0 To txtDatasetNames.Lines.Length - 1       'Appending new data
                If txtDatasetNames.Lines(i) <> "" Then
                    frmMain.dgvData.Columns.Add(txtDatasetNames.Lines(i), txtDatasetNames.Lines(i))
                    frmMain.dgvData.Columns(frmMain.dgvData.Columns.Count - 1).SortMode = DataGridViewColumnSortMode.NotSortable
                End If
            Next

Μετά όμως, αν θέλω να αλλάξω το όνομα που είχα βάλει??

Ή αν χρησιμοποίησα το import οπότε μπήκαν ότι ονόματα είχε στο αρχείο? Πως τα αλλάζω?

Το Data Grid View δεν δέχετε δεξί κλικ στα columns...

Ευχαριστώ εκ των προτέρων!

(Υ.Γ. έχω άλλη μια ερώτηση, εδώ: http://www.dotnetzone.gr/cs/forums/thread/69190.aspx )