Καλώς ορίσατε στο dotNETZone.gr - Σύνδεση | Εγγραφή | Βοήθεια

 

Αρχική σελίδα Ιστολόγια Συζητήσεις Εκθέσεις Φωτογραφιών Αρχειοθήκες

Πρόβλημα με πέρασμα τιμών από μία MDIChild σε άλλη MDIChild Form

  •  16-04-2007, 16:44

    Πρόβλημα με πέρασμα τιμών από μία MDIChild σε άλλη MDIChild Form

    Έχω δύο MDIChild forms.

    Ενώ έχω ήδη ανοιχτή μία MDIChild form με όνομα frmCS ανοίγω μία άλλη πάλι MDIChild form που περιέχει ένα DataGridView, πατώντας F7.

    '========================
        Private Sub txtCsType_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCsType.KeyDown
            If e.KeyCode = Keys.F7 Then
                Dim NewCSViewChild As New frmCustomersSuppliersView()
                NewCSViewChild.MdiParent = Me.MdiParent
                NewCSViewChild.Show()
            End If
        End Sub
    '========================



    Τώρα όταν είμαι στην NewCSViewChild φόρμα, πατώντας ENTER πάνω σε μία γραμμή του DataGridView (dgvCustomersSuppliersTypesView) στέλνω την τιμή της πρώτης στήλης της τρέχουσας γραμμής στο πεδίο txtCsType, το οποίο είναι TextBox, στην φόρμα frmCS.

    '========================
        Private Sub dgvCustomersSuppliersTypesView_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dgvCustomersSuppliersTypesView.KeyDown
            If e.KeyCode = Keys.Escape Then
                Me.Close()
            End If

            If e.KeyCode = Keys.Enter Then
                frmCS.txtCsType.Text = dgvCustomersSuppliersTypesView.Item(0, dgvCustomersSuppliersTypesView.CurrentCell.RowIndex).Value
                Me.Close()
            End If
        End Sub
    '========================

    Το θέμα είναι ότι όταν οι φόρμες δεν είναι MDIChild όλα λειτουργούν κανονικά. Μόλις τις κάνω MDIChild τότε δεν λειτουργεί ο παραπάνω κώδικας.

    Καμιά ιδέα???

    Δημοσίευση στην κατηγορία: , , ,
Δείτε όλες τις δημοσιεύσεις της Θεματική Ενότητας
Με χρήση του Community Server (Commercial Edition), από την Telligent Systems