border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic 6.00
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack (1) Herramientas
  1 links from elsewhere to this Post. Click to view. #1 (permalink)  
Antiguo 30-11-2004, 20:27:19
Buena Participación en el Foro
 
Registrado: oct 2004
Posts: 45
Créditos: 1.668
Hewlett Valoración +2
Predeterminado Centrar los datos en un MshFlexGrid

Hola de nuevo a tod@s!!!!

Estoy aca de nuevo solicitando su valiosa ayuda, mi problema es el siguiente:
En un mshflexgrid estoy cargando unos datos pero por default me aparecen alineados a la derecha entonces lo que quiero es centrar todos esos datos, pero no logro hacerlo.

ya intente con esto :
Me.MSHFlexGrid1.CellAlignment = 4 y nada, bueno solo me centra el contenido de una celda.


el codigo del Form_Load() es el siguiente:

Private Sub Form_Load()

Me.MSHFlexGrid1.CellAlignment = 4

Me.Height = 5940
Me.Width = 7065
'Me.MSHFlexGrid1.Height = 4215
'Me.MSHFlexGrid1.Width = 6495
Modulo1.conexion
Dim rsinf As ADODB.Recordset
Dim rssum As ADODB.Recordset
Dim sqldetalle As String
Dim sqlsum As String
Dim sqltotal As String
Dim i As Long

Dim total As Double

sqldetalle = "SELECT * FROM det_valuo WHERE porcion = '" & frmdetvaluo.cmbporcion.Text & "' AND codprop = '" & fppal.txtcodigo.Text & "'"
sqlsum = "SELECT SUM(det_valuo.area)AS Suma FROM det_valuo WHERE porcion = '" & frmdetvaluo.cmbporcion.Text & "' AND codprop = '" & fppal.txtcodigo.Text & "'"

Set rsinf = New ADODB.Recordset
rsinf.Open sqldetalle, con, adOpenDynamic, adLockOptimistic
Set rssum = New ADODB.Recordset
rssum.Open sqlsum, con, adOpenDynamic, adLockOptimistic
On Error GoTo nada
rsinf.MoveFirst
i = 1
acumulador = 0

Do While Not rsinf.EOF


Me.MSHFlexGrid1.AllowUserResizing = flexResizeColumns
Me.MSHFlexGrid1.Rows = i + 1

Me.MSHFlexGrid1.TextMatrix(0, 0) = "CLASE DE SUELO"
Me.MSHFlexGrid1.TextMatrix(0, 1) = "ÁREA EN Ha"
Me.MSHFlexGrid1.TextMatrix(0, 2) = "VALOR UNITARIO/Ha"
Me.MSHFlexGrid1.TextMatrix(0, 3) = "VALOR TOTAL"
Me.MSHFlexGrid1.TextMatrix(i, 0) = rsinf.Fields("clase")
Me.MSHFlexGrid1.TextMatrix(i, 1) = Format(rsinf.Fields("area"), "###,##0.00")
Me.MSHFlexGrid1.TextMatrix(i, 2) = Format(rsinf.Fields("val_unit"), "###,##0.00")
total = Val(rsinf.Fields("val_unit") * rsinf.Fields("area"))
Me.MSHFlexGrid1.TextMatrix(i, 3) = Format(Round(total, 4), "###,##0.00") 'Format(total, "###,##0.00")
acumulador = acumulador + total

Me.lblcontador.Caption = i + 1

i = i + 1


rsinf.MoveNext

Loop
Modulo1.AjustarAnchoColumnas MSHFlexGrid1, frminforme
Me.MSHFlexGrid1.Rows = lblcontador.Caption + 1
Me.MSHFlexGrid1.TextMatrix(lblcontador.Caption, 0) = "TOTAL"
Me.MSHFlexGrid1.Row = lblcontador.Caption
Me.MSHFlexGrid1.Col = 0
Me.MSHFlexGrid1.CellForeColor = &HC00000
Me.MSHFlexGrid1.TextMatrix(lblcontador.Caption, 1) = Format(Round(rssum.Fields("suma"), 4), "###,##0.000") 'Format(rssum.Fields("Suma"), "###,##0.00")
Me.MSHFlexGrid1.TextMatrix(lblcontador.Caption, 3) = Format(Round(acumulador, 4), "###,##0.00") 'Format(acumulador, "###,##0.00")

lblprmhacol.Caption = (acumulador / rssum.Fields("Suma"))
lblprmmzcol.Caption = (lblprmhacol.Caption / (1.4308))
lblpromdol.Caption = (lblprmhacol.Caption / (8.75))
lblprmzs.Caption = (lblprmmzcol.Caption / (8.75))

lblprmhacol.Caption = Format(lblprmhacol.Caption, "##,##0.00")
lblprmmzcol.Caption = Format(lblprmmzcol.Caption, "##,##0.00")
lblpromdol.Caption = Format(lblpromdol.Caption, "##,##0.00")
lblprmzs.Caption = Format(lblprmzs.Caption, "##,##0.00")


rsinf.Close
rssum.Close
Exit Sub
nada:
If Err.Number <> 0 Then
MsgBox "¡No hay datos que mostrar para " & frmdetvaluo.cmbporcion.Text & "!", vbInformation, "DETALLE DEL VALUO"
Unload frminforme
Exit Sub
End If
End Sub
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 30-11-2004, 21:09:06
Avatar de lordgblue
Buena Participación en el Foro
 
Registrado: abr 2004
Posts: 46
Créditos: 492
lordgblue Valoración +2
Contactar con lordgblue a través de MSN Contactar con lordgblue a través de Yahoo
Predeterminado

Hola Hewlett!

escribe solamente esta linea y listo:

MSFlexGrid1.ColAlignment(Numerocolumna) = 3

y asi vas centrando todas las columnas.

si quieres centrar toda la grilla has lo siguiente

cf=MSFlexGrid1.Cols - 1

For x = 1 To cf
MSFlexGrid1.ColAlignment(x) = 3
Next

Donde el cf va a ser la ultima columna

MUCHA SUERTE! :grin:
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado

LinkBacks (?)
LinkBack to this Thread: http://www.foro.vb-mundo.com/f24/centrar-datos-mshflexgrid-3125/
Escrito Por For Type Fecha
Alinear datos en un select - Buscador de Webmasters This thread Refback 17-07-2010 22:00:51

Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Filtrar datos de tabla en un MSHFlexgrid arodriguezp Visual Basic 6.00 1 02-03-2007 00:12:52
Pasar datos de un MSHFlexGrid a un Formulario El_Principiante Visual Basic 6.00 3 06-11-2006 22:23:27
Como puedo ingresar datos al MSHFLEXGRID ikki_26 Visual Basic 6.00 1 12-07-2005 06:35:42
centrar campos en MSHFlexgrid kumulu_nimbus Visual Basic 6.00 8 17-09-2004 00:00:00
sumar datos en un MSHFlexGrid csic17 Visual Basic 6.00 1 23-03-1970 23:20:42


La franja horaria es GMT. Ahora son las 19:12:52.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design