Visual Basic para Aplicaciones - AYUDA CON UN DATAGRID

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA CON UN DATAGRID

Publicado por Juan P (1 intervención) el 02/12/2002 20:55:26
Hola amigos tengo un problema con el programa que estoy haciendo, para hacer la factura tengo 5 textbox donde uno de ellos es la descripcion o concepto de la factura y es un texto bastante grande. y lo quiero meter en un datagrid, pero no se como y ademas el campo de la descripcion al ser un texto grande el cliente quiere que se vea por completo, asi quiero saber si hay alguna forma de que ese campo sea autoextendible para verse bien la descripcion por favor ayuda que el programa lo tenia que haber entregado ya
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:AYUDA CON UN DATAGRID

Publicado por Josetxu (17 intervenciones) el 03/12/2002 01:54:25
No sé si estás a tiempo, pero quizás te interese usar un FlexGrid en vez de un DataGrid.
Pon esto en un proyecto nuevo con un MSFlexGrid:

Private Sub Form_Load()
MSFlexGrid1.WordWrap = True
MSFlexGrid1.Cols = 4
MSFlexGrid1.Rows = 4
End Sub

Private Sub MSFlexGrid1_Click()
MSFlexGrid1.ColWidth(MSFlexGrid1.Col) = 1200
MSFlexGrid1.RowHeight(MSFlexGrid1.Row) = 1200
MSFlexGrid1 = "Aquí vamos a escribir algo muy largo para probar"
End Sub

Creo que esto soluciona tu problema.
Saludos
Josetxu
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Espero que te sirva....

Publicado por Dennise Selene (1 intervención) el 11/12/2002 17:30:04
al datagrid debes de asignarle la propiedad botón en la columna que desees (Pestaña de diseño del control)

Private Sub DataGrid1_ButtonClick(ByVal colindex As Integer)
Dim C As Column
If colindex = 4 Then \'la columna que se estableció la propiedad
Set C = DataGrid1.Columns(colindex)
With List1
\'Muestra la lista.
.Left = DataGrid1.Left + C.Left
.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
.Width = C.Width + 15
.ListIndex = 0
.Visible = True
.ZOrder 0
.SetFocus
End With
End If
End Sub
debes utilizar una lista y le pones el siguiente código....

Private Sub List1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyReturn
DataGrid1.Columns(4).Value = List1.Text
On Error Resume Next
List1.Visible = False
Case vbKeyEscape
List1.Visible = False
End Select
End Sub

Private Sub List1_LostFocus()
\'Oculta la lista al perder el foco
List1.Visible = False
End Sub

Private Sub List1_DblClick()
List1_KeyPress vbKeyReturn
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar