Thông báo Mở cửa diễn đàn AutoIT Việt

12h47' - 26/08/2015
Mở cửa diễn đàn AutoIT Việt
- aKiD -

 

Test bbcode

Mã (AutoIt):

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <GuiMenu.au3>


Global Enum $idMenu_1 = 1000, $idMenu_2, $idMenu_3
Global $hListView, $item


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 572, 378, 192, 124)
$ListView = GUICtrlCreateListView("~~~", 16, 24, 521, 337)
$hListView = GUICtrlGetHandle(-1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

For $j = 1 to 5
    GUICtrlCreateListViewItem('Item '& $j, $ListView)
Next

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd


Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
    $hWndListView = $ListView
    If Not IsHWnd($ListView) Then $hWndListView = GUICtrlGetHandle($ListView)

    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    ;$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hWndListView
            Switch $iCode
                Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
                    ListView_RClick()
                    Return 0
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Func ListView_RClick()
    Local $aHit
    $aHit = _GUICtrlListView_SubItemHitTest($hListView)
    If ($aHit[0] <> -1) Then ; item
        $hMenu = _GUICtrlMenu_CreatePopup()
        _GUICtrlMenu_AddMenuItem($hMenu, "Menu 1", $idMenu_1)
        _GUICtrlMenu_AddMenuItem($hMenu, "Menu 2", $idMenu_2)

        $item = _GUICtrlListView_GetSelectedIndices($ListView)*1
        Switch _GUICtrlMenu_TrackPopupMenu($hMenu, $hListView, -1, -1, 1, 1, 2)
            Case $idMenu_1
                Menu_1_Func()
            Case $idMenu_2
                Menu_2_Func()
        EndSwitch
        _GUICtrlMenu_DestroyMenu($hMenu)
    Else ; space
        If _GUICtrlListView_GetItemCount($ListView) = 0 Then Return 1

        $hMenu = _GUICtrlMenu_CreatePopup()
        _GUICtrlMenu_AddMenuItem($hMenu, "Add Item", $idMenu_3)
        $item = _GUICtrlListView_GetSelectedIndices($ListView)*1
        Switch _GUICtrlMenu_TrackPopupMenu($hMenu, $hListView, -1, -1, 1, 1, 2)
            Case $idMenu_3
                Menu_3_Func()
        EndSwitch
        _GUICtrlMenu_DestroyMenu($hMenu)
    EndIf
EndFunc   ;==>ListView_RClick

Func Menu_1_Func()
    MsgBox(0,'','Menu 1' & @crlf & 'Data: '& _GUICtrlListView_GetItemText($ListView, $item))
EndFunc

Func Menu_2_Func()
    MsgBox(0,'','Menu 2' & @crlf & 'Data: '& _GUICtrlListView_GetItemText($ListView, $item))
EndFunc

Func Menu_3_Func()
    _GUICtrlListView_AddItem($ListView, 'Item '& $j)
    $j += 1
EndFunc
 

 

Test đính kèm

 

góp chi góp đi cưng :3

 

nội quy nè
http://vietautoit.com/help/terms