Formato en Columna Datagrid

[JARD]

Hola amigos.

Acabo de empezar a programar en VB .Net, si alguien me puede ayudar, se lo agradezco de antemano.
En una aplicación Windows, tengo un datagrid, una de las columnas es numerica, ¿ como puedo hacer que esa columna, esté alineada a la derecha y tenga el formato standard "##,###,##0.00" ?.

Muchas gracias

[tolotoco]

Para alinear a la derecha basta con indicarlo en las propiedades en tiempo de diseño con la propiedad TextAlign.
En cuanto al formato te adjunto un ejemplo:

numReg.Text = Format(CInt(numReg.Text), "#,###,##0")

[JARD]

Me estoy refiriendo a un Datagrid y lo que tu me dices es para un cuadro de texto.

Gracias

[tolotoco]

Perdona el lapsus en la respuesta anterior.
Yo uso la función que te adjunto para dar formato a los DataGrids. Pero creo las columnas, en tiempo de ejecución, asignándoles los datos y los tipos para cada columna y luego le doy formato y, además, ajusto las columnas al tamaño de los datos.
Espero que esta respuesta sí te sirva.

Un saludo

Esta es la llamada a la función una vez creadas las columnas y asignados los datos.

Datagrid1.DataSource = dts.Tables("Nombre_Tabla")
Datagrid1.TableStyles.Add(FormatoGrid(Datagrid1, dts.Tables("Nombre_Tabla")))

Esta es la función. El primer parámetro es el Datagrid del formulario, el segundo es la tabla creada en tiempo de ejecución.

Public Function FormatoGrid(ByRef Grid As DataGrid, ByRef ds As DataTable) As DataGridTableStyle
Dim tablestyle As New DataGridTableStyle
Dim dtcolumna As DataGridTextBoxColumn
Dim columna As DataColumn
Dim gr As Graphics
Dim i, j, ancho, maximo As Integer

gr = Grid.CreateGraphics
Grid.TableStyles.Clear()
tablestyle = New DataGridTableStyle
tablestyle.MappingName = ds.TableName
tablestyle.AlternatingBackColor = System.Drawing.SystemColors.Control
tablestyle.BackColor = System.Drawing.SystemColors.Control
tablestyle.ForeColor = Color.FromArgb(0, 61, 109)
tablestyle.GridLineColor = Color.FromArgb(192, 0, 0)
tablestyle.HeaderBackColor = Color.FromArgb(192, 192, 255)
tablestyle.HeaderForeColor = Color.Black
tablestyle.SelectionBackColor = Color.SteelBlue
tablestyle.SelectionForeColor = Color.Black
tablestyle.PreferredRowHeight = 20

For i = 0 To ds.Columns.Count - 1
columna = ds.Columns(i)
maximo = 0
ancho = gr.MeasureString(ds.Columns(i).ColumnName, Grid.Font).Width + 6
For j = 0 To ds.Rows.Count - 1
If Not IsDBNull(ds.Rows(j)(i)) Then
maximo = gr.MeasureString(CStr(ds.Rows(j)(i)), Grid.Font).Width + 6
End If
If (maximo > ancho) Then
ancho = maximo
End If
Next
dtcolumna = New DataGridTextBoxColumn

dtcolumna.TextBox.Enabled = True
dtcolumna.HeaderText = columna.ColumnName
dtcolumna.MappingName = columna.ColumnName
dtcolumna.Width = ancho
If columna.DataType Is i.GetType Then
dtcolumna.Alignment = HorizontalAlignment.Right
End If
tablestyle.GridColumnStyles.Add(dtcolumna)
Next
FormatoGrid = tablestyle
End Function

[tolotoco]

Acabo de darme cuenta de algo.
La línea de chequeo del tipo de dato para alinear las columnas solo funciona con los datos de tipo Integer.
Con la siguiente modificación revisa aquellos que son integer, long y single.

If columna.DataType Is System.Type.GetType("System.Int16") Or columna.DataType Is System.Type.GetType("System.Int32") Or columna.DataType Is System.Type.GetType("System.Single") Then
dtcolumna.Alignment = HorizontalAlignment.Right
End If

[JARD]

Muchas gracias, Tolotoco