[VB.NET] ToolTip exotique ??

Version imprimable

29/03/2005, 16h04
graphicsxp

[VB.NET] ToolTip exotique ??

Bonjour,
Comment s'appelle le control qui correspond a ces petites fenetres pop-up jaunes qui apparaissent lorsqu'on survole quelque chose avec la souris ? J'aimerais en afficher une pendant un certain laps de temps lorsque l'utilisateur selectionne une ligne de mon datagrid, mais sans connaitre le nom du control...ca va etre dur :?
29/03/2005, 16h10
smikar

C'est le controle ToolTip. Il y a eu plusieurs questions sur les tooltips tout récemment (si ce n'est pas aujourd'hui) donc si tu veux en savoir plus, fais une petite recherche sur le forum :)

Bonne journée
29/03/2005, 16h11
SoaB

ToolTip :)
29/03/2005, 16h19
graphicsxp

ha oui merci. tooltip en effet. Sauf que moi je ne voudrais pas qu'il s'affiche lorsque l'utilisateur passe la souris sur le control mais lorsqu'il selectionne une ligne du datagrid. Je fantasme ou c'est possible ?

hop en fait j'ai reussi:)
voici mon code si y en a que ca interesse....
c'est specifique a mon application mais bon le principe y est

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
   Public Sub ShowErrorTip(ByRef myDG As DataGrid, ByRef myToolTip As ToolTip, ByVal e As System.Windows.Forms.MouseEventArgs)
        Dim objHTI As System.Windows.Forms.DataGrid.HitTestInfo
        Dim objCellBounds As System.Drawing.Rectangle
        Dim intCellWidth As Integer
 
        If myToolTip Is Nothing Then
            myToolTip = New System.Windows.Forms.ToolTip
        End If
 
        'Get the hit type 
        objHTI = myDG.HitTest(e.X, e.Y)
        Select Case objHTI.Type
            'check if the hit typed a rowheader 
        Case System.Windows.Forms.DataGrid.HitTestType.RowHeader
                Try
                    myToolTip.AutomaticDelay = 1000
                    'check if it's a missing field or mismatching field
                    If myDG.Item(objHTI.Row, 4) Is DBNull.Value Then
                        myToolTip.SetToolTip(myDG, "missing field")
                        myToolTip.Active = True
                    Else
                        myToolTip.SetToolTip(myDG, "fields types don't match")
                        myToolTip.Active = True
                    End If
                Catch
                End Try
        End Select
    End Sub