Hola a todos:
Como puedo quitar el mensaje cuando desmarco el checkbox de una celda, es decir, si tengo marcado el checkbox muestro el mensaje, pero cuando lo desmarco el mensaje no desaparece automáticamente, sino que está ahí hasta que el tiempo de estar mostrado
desaparece.
El código que tengo es el siguiente:
Private Sub DataGridView1_CurrentCellDirtyStateChanged(ByVal sender As Object, ByVal e As EventArgs) Handles DataGridView1.CurrentCellDirtyStateChanged
'Detectamos el checkbox marcado
If DataGridView1.CurrentCell.ColumnIndex = 1 Then
If DataGridView1.IsCurrentCellDirty Then
DataGridView1.CommitEdit(DataGridViewDataErrorContexts.Commit)
For Each fila As DataGridViewRow In DataGridView1.Rows
If Not fila Is DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex) Then
fila.Cells(1).Value = False
End If
Next
CeldaActual = DataGridView1.CurrentCell.RowIndex.ToString
Me.LLamadasToolTip1()
End If
End If
End Sub
Private Sub ToolTip1_Popup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PopupEventArgs) Handles ToolTip1.Popup
If e.AssociatedControl Is DataGridView1 Then
End If
End Sub
Private Sub LLamadasToolTip1()
Dim a As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly
Dim rm As New Resources.ResourceManager(a.GetName.Name & ".Textos", a)
Dim pt As Point = DataGridView1.Location
'Seleccionamos la Celda Actual y la informamos con las explicaciones guardadas en el fichero de recursos "Textos".
Select Case CeldaActual
Case "0"
Dim titulo As String = rm.GetString("tituloOrden01")
Dim mensaje As String = rm.GetString("mensajeOrden01")
ToolTip1.ToolTipTitle = titulo
ToolTip1.Show(mensaje, DataGridView1.FindForm, pt, 5000)
Case "1"
Dim titulo As String = rm.GetString("tituloOrden02")
Dim mensaje As String = rm.GetString("mensajeOrden02")
ToolTip1.ToolTipTitle = titulo
ToolTip1.Show(mensaje, DataGridView1.FindForm, pt, 5000)
End Select
End Sub
Muchas gracias a todos.
Gemma
