Datagridview in mdi child probleem

[m0nk3rs]

Ik heb een vraagje ivm een datagridview in een mdi child

ik heb een parent form en een child form en een class Mensen... als ik in die child form de datagridview vul verdwijnen mijn rij nummers...

NieuwFormulier = New frmFormulier()
NieuwFormulier.MdiParent = Me

als ik de child form als een gewoon form laat zien dan blijven de nummers wel staan..
frmFormulier.show()

kan mij hier iemand mee helpen?


als Parent form heb ik

Public Class frmHoofdmenu
Dim NieuwFormulier (3) As frmFormulier

'Button Nieuw Formulier
    Private Sub btnFormulierBekijken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFormulier.Click
NieuwFormulier (1) = New frmFormulier()
NieuwFormulier (1).MdiParent = Me
NieuwFormulier (1).Show()
    End Sub
end class

in het child form heb ik...

Public Class frmFormulier
'on load
    Private Sub Formulier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TABEL 1
        Me.Tabel1Initialiseer()
    End Sub

 'Tabel 1 Initialiseren
    Private Sub Tabel1Initialiseer()
        ' List vullen
        Dim list = New List(Of Mensen)

        ' rijen toevoegen
        For i As Integer = 0 To 59
            list.Add(New Mensen(0, 0))
        Next i

        dgvSpeler1.DataSource = list

        'Kolom 1 width
        Dim PuntenColumnSpl1 As DataGridViewColumn = dgvSpeler1.Columns(0)
        PuntenColumnSpl1.Width = 50

        'Kolom 2 width
        Dim TotaalColumnSpl1 As DataGridViewColumn = dgvSpeler1.Columns(1)
        TotaalColumnSpl1.Width = 50

        'Cellen alignment 
        dgvSpeler1.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        ' Toevoegen rij hoofdings 
        Dim RijWaarde As Integer = 1
        For i As Integer = 0 To dgvSpeler1.Rows.Count - 1
            dgvSpeler1.Rows(i).HeaderCell.Value = CStr(RijWaarde)
            Me.dgvSpeler1.Rows.Item(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            RijWaarde += 1
        Next i


    End Sub

End Class

en de class mensen

Public Class Mensen
    Private cTotaal As Integer
    Private cPunten As Integer


    Public Sub New(ByVal Punten As Integer, ByVal TotPtnSpl1 As Integer)
        cPunten = Punten
        cTotaal = TotPtnSpl1

    End Sub

  Public Property Punten() As String
        Get
            Return cPunten
        End Get
        Set(ByVal value As String)
            Try
                cPunten = value
            Catch x As Exception
            End Try
        End Set
    End Property

Public Property Totaal() As String
        Get
            Return cTotaal
        End Get
        Set(ByVal value As String)
            cTotaal = value
        End Set
    End Property
End Class

groetjes
:thumb:

 

[old Hippy]

Volgens mij moet er dit staan

    Private Sub btnFormulierBekijken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFormulier.Click
frmFormulier.MdiParent = Me
frmFormulier.WindowState = FormWindowState.Maximized
frmFormulier.Show()
    End Sub

 

[m0nk3rs]

old hippy....

ja ;-)

maar mijn probleem is de datagridview...

de rij nummers verdwijnen...

 ' Toevoegen rij hoofdings 
        Dim RijWaarde As Integer = 1
        For i As Integer = 0 To dgvSpeler1.Rows.Count - 1
            dgvSpeler1.Rows(i).HeaderCell.Value = CStr(RijWaarde)
            Me.dgvSpeler1.Rows.Item(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            RijWaarde += 1
        Next i

mijn datagridview laat geen zij nummers zien als ik de tabel opvul
1
2
3
4
5
.. etc

de rowheaders zijn weg... en ze staan op .. true :shocked:

dus dat is mijn probleem..

als ik de form laad als een gewone frmFormulier.show() staan de nummers er wel

en ik snap totaal niet waarom....

als mij iemand kan verder helpen :thumb::thumb::thumb:
heeft iets met de mdicontainer te maken ??

 

[m0nk3rs]

blijkbaar mag ik de tabel niet vullen on load!

heb er maar een button event van gemaakt

thnx anyway! :thumb: