
13/08/2004, 19:39
|
 | | | Fecha de Ingreso: noviembre-2002 Ubicación: Lima - Limon
Mensajes: 207
Antigüedad: 22 años, 4 meses Puntos: 0 | |
La posicion la puedes saber con la propiedad hitest..te envio un ejemplo....lo tienes que asociar al evento mousedown del datagrid..saludos
Private Sub DataGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDown
' Create a HitTestInfo object using the HitTest method.
' Get the DataGrid by casting sender.
Dim myGrid As DataGrid = CType(sender, DataGrid)
Dim myHitInfo As DataGrid.HitTestInfo = myGrid.HitTest(e.X, e.Y)
Dim ggorigen, FileToDisplay As String
Dim MyImage As Bitmap
ggorigen = "C:\Documents and Settings\Administrador\Mis Documentos\FotosPersonal\"
' Carga la imagen con el valor
If myHitInfo.Row >= 0 Then
'FileToDisplay = ggorigen + DataGrid1.Item(myHitInfo.Row, myHitInfo.Column)
'Siempre la columna 1 que es el nombre de la foto
FileToDisplay = ggorigen + DataGrid1.Item(myHitInfo.Row, 0)
MyImage = New Bitmap(FileToDisplay)
PB1.Image = CType(MyImage, Image)
' Asigna el valor del campo cadena = Colunm(2)
Me.tBuscar.Text = DataGrid1.Item(myHitInfo.Row, 2)
End If
End Sub |