Aumentar a Coluna do DataGrid

Question

 Estou fazendo um Projeto Pocket PC 2003 e Criei um Select para me trazer os Registros na Tela. Agora preciso Alterar o Tamanho da Columa do DataGrid que está muito pequena. O meu Código para mostrar os Registros é esse

Dim

 

Conexao As New SqlCeConnection("Data Source =" & (System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) & "\BancoMobile.sdf;"))

 

Dim Adapter As New SqlCeDataAdapter("SELECT * FROM produto", Conexao)
Try
Conexao.Open()
Dim ds As New DataSet()
Adapter.Fill(ds, "produto")
dgvMostrar.DataSource = ds.Tables(0)
Conexao.Close()
If dgvMostrar.CurrentRowIndex > -1 Then
txtDados.Text = dgvMostrar.Item(dgvMostrar.CurrentRowIndex, 0) 'CurrentRows... Mostra qual o Index da Linha do DataGrid e o 0 Index da Coluna "0 porque a 1 Coluna"
End If
Catch ex As Exception
Throw
End Try

Answer 1

Se fosse pelo Windows Forms eu faria assim

 dataGridView1.Columns.Add("Nome","nome"); 
 Incluir uma nova Coluna


dataGridView1.Columns[0].Width = 300;
Mudaria o Tamanho da Coluna.

O problema é que no Projeto para PocketPC eu não consigo fazer isso, se alguem tiver alguma idéia.

Answer 2

Se fosse pelo Windows Forms eu faria assim

 dataGridView1.Columns.Add("Nome","nome"); 
 Incluir uma nova Coluna


dataGridView1.Columns[0].Width = 300;
Mudaria o Tamanho da Coluna.

O problema é que no Projeto para PocketPC eu não consigo fazer isso, se alguem tiver alguma idéia.

Answer 3

Rodolfo,

Dê uma olhada neste artigo abaixo, poderá te ajudar.

http://www.aspneti.com.br/DataGrid+Mobile+469,0.aspx

---

Espero ter ajudado. Se ajudei, favor marcar no fórum falando que foi útil.

Mauricio Junior - Comunidade www.aspneti.com

Answer 4

Consegui Resolver o problema

Dim

 

Style As New DataGridTableStyle

Style.MappingName =

"produto" 'Colocar nome da Tabela

 

Dim tcol1 As New DataGridTextBoxColumn

 

With tcol1

.HeaderText =

"ID"

.MappingName =

"ID_Produto" 'Colocar nome do Campo da Tabela, cuidade que ele CaseSensitive

.Width = 50

 

End With

 

Dim tcol2 As New DataGridTextBoxColumn

 

With tcol2

.HeaderText =

"Nome"

.MappingName =

"Nome" 'Colocar o mesmo nome do campo da tabela, cuidado CaseSensitive

.Width = 200

 

End With

Style.GridColumnStyles.Add(tcol1)

Style.GridColumnStyles.Add(tcol2)

dgv.TableStyles.Add(Style)

dgv.DataSource = ds.Tables(0).DefaultView