05/08/2006, 22:03
|
| | | Fecha de Ingreso: febrero-2006
Mensajes: 37
Antigüedad: 19 años, 2 meses Puntos: 0 | |
| Con Msgbox o ToolTipText
Private Sub Form_Load()
'' Datos de prueba
MSFlexGrid1.TextMatrix(1, 3) = "Dato Mostrado 1"
MSFlexGrid1.TextMatrix(3, 1) = "Dato Mostrado 2"
MSFlexGrid1.TextMatrix(4, 4) = "Dato Mostrado 3"
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'''Aqui muestras la misma informacion que contiene la celda seleccionada
'''Pero igual y puedes poner el texto que quieras
MsgBox MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel), vbInformation, "Comentario"
''' MsgBox "Agregando el texto que yo quiera mas..." & MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel), vbInformation, "Comentario"
End Sub
__________________
Jerico |