[RESOLVED] DataGrid row resizing?

[TDQWERTY]

Couldn't find a way to resizing rows..does anyone knows how is it done?

currently doing...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Cursor.Current = Cursors.WaitCursor
        DataGridEntidades.DataSource = giveDataSet("select CodEntidade AS Cod, NomeEntidade AS Nome, MoradaEntidade AS Morada, Telefone1 AS Contacto from entidades where CodEntidade LIKE '%" & Trim(txtEntidade.Text) & "%' OR NomeEntidade LIKE '%" & Trim(txtEntidade.Text) & "%' OR MoradaEntidade LIKE '%" & Trim(txtEntidade.Text) & "%' OR CPEntidade LIKE '%" & Trim(txtEntidade.Text) & "%' OR Telefone1 LIKE '%" & Trim(txtEntidade.Text) & "%' ORDER BY NomeEntidade")
        'DataGridEntidades.Refresh()
        Cursor.Current = Cursors.Default
    End Sub

Frustrated attempt resizing columns...

Try
            Dim ts As New DataGridTableStyle
            ts.MappingName = "Entidades"
            DataGridEntidades.TableStyles.Clear()
            DataGridEntidades.TableStyles.Add(ts)
            DataGridEntidades.TableStyles("Entidades").GridColumnStyles(1).Width = 10
        Catch ex As Exception
            '
        End Try

Does anyone has any clue why is this happening?
Thanks

[petevick]

This works for me:-

 Dim aGridTableStyle2 As New DataGridTableStyle
            aGridTableStyle2.MappingName = "Source"

            Me.dgPermits.RowHeadersVisible = False
            Me.dgPermits.ColumnHeadersVisible = False
            
            
            
            With locationCol1
	      .MappingName = "Reg No"
	      .Width = 130
	      .NullText = ""
	    End With
	    
	    With locationCol2
	       .MappingName = "Status"
	       .Width = 80
               .NullText = ""
           End With
           With locationCol3
               .MappingName = "PermitZone"
               .Width = 0
              .NullText = ""
           End With
            
            
             With aGridTableStyle2.GridColumnStyles
	                    .Add(locationCol1)
	                    .Add(locationCol2)
	                    .Add(locationCol3)
             End With
             
            dgPermits.TableStyles.Add(aGridTableStyle2)
            dgPermits.Font = gridFont

[TDQWERTY]

Atm i can't test, will do in a few hours...the phone is on bat charge :/
Will it work using datasource?
Thanks for the reply

[TDQWERTY]

It did work, here's the full code for others if searching...

Try
            Dim aGridTableStyle2 As New DataGridTableStyle
            Dim locationCol1 As New DataGridTextBoxColumn
            Dim locationCol2 As New DataGridTextBoxColumn
            Dim locationCol3 As New DataGridTextBoxColumn
            Dim locationCol4 As New DataGridTextBoxColumn
 
            aGridTableStyle2.MappingName = myDataset.ToString
 
            Me.DataGridEntidades.RowHeadersVisible = False
            Me.DataGridEntidades.ColumnHeadersVisible = True
 
            With locationCol1
                .MappingName = "Cod"
                .HeaderText = "Cod"
                .Width = 44
                .NullText = ""
            End With
 
            With locationCol2
                .MappingName = "Nome"
                .HeaderText = "Empresa"
                .Width = Screen.PrimaryScreen.WorkingArea.Width - locationCol1.Width - 16 '(rotating screen...i set 16 in hardcode because i couldn't find a way to know what's the scrollbar width, this might need some tweek)
                .NullText = ""
            End With
            With locationCol3
                .MappingName = "Morada"
                .HeaderText = "Morada"
                .Width = -1
                .NullText = ""
            End With
            With locationCol4
                .MappingName = "Contacto"
                .HeaderText = "Contacto"
                .Width = -1
                .NullText = ""
            End With
 
            With aGridTableStyle2.GridColumnStyles
                .Add(locationCol1)
                .Add(locationCol2)
                .Add(locationCol3)
                .Add(locationCol4)
            End With
 
            With DataGridEntidades
                .BackColor = Color.AliceBlue
                .BackgroundColor = Color.AliceBlue
                .GridLineColor = Color.RoyalBlue
                .HeaderBackColor = Color.SteelBlue
                .SelectionBackColor = Color.SteelBlue
                .SelectionForeColor = Color.Red
            End With
 
            DataGridEntidades.TableStyles.Clear()
            DataGridEntidades.TableStyles.Add(aGridTableStyle2)
        Catch ex As Exception
            '
        End Try

myDataset is a DataTable

Thanks for the help Pete ( again )