AutoIt Français

Code : Tout sélectionner

    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <GUIConstantsEx.au3>
    #Include <GuiListView.au3>

    Opt("GUIOnEventMode", 1)

    $Form1 = GUICreate("Form1", 200, 200)

    Global $ListView1 = GUICtrlCreateListView('col',10,10, 180, 180)

    For $i = 0 To 10
        $item = GUICtrlCreateListViewItem("item n°" & $i, $ListView1)
        Assign($item&"|tip","item n°" & $i)
    Next

    _GUICtrlListView_SetColumnWidth($ListView1, 0, $LVSCW_AUTOSIZE_USEHEADER )

    GUISetState(@SW_SHOW)

    GUISetOnEvent($GUI_EVENT_CLOSE,"quitter")
    GUISetOnEvent($GUI_EVENT_MOUSEMOVE, "SysEvents")

    While 1
        Sleep(1000)
    WEnd


    Func SysEvents()
        Local $test = _GUICtrlListView_HitTest(GUICtrlGetHandle($ListView1))

        If IsArray($test) And $test[0] <> -1 Then

            Local $iMode = Opt("MouseCoordMode", 1)
            Local $aPos = MouseGetPos()
            Opt("MouseCoordMode", $iMode)

            Local $tip = String(Eval (Number(_GUICtrlListView_GetItemParam($ListView1,$test[0]))&"|tip"))
            ;mes tooltip sont noté a la création des item dans des variables "ID|tip"
            ToolTip($tip,MouseGetPos(0),MouseGetPos(1)-10)
        Else
            ToolTip("")
        EndIf
    EndFunc

    Func quitter()
        Exit
    EndFunc