Gui with tab scroll vertical

[trescon]

Good evening, I would need a little help.

I need to create a Gui Tab with about eight Tab Item.

Within each Tab I need to put several buttons and I would be able to scroll the Vertical Tab, you can?

If you can give me an example?

thanks

Alberto

P.S. : Sorry but I do not speak English and translate with google.

[water]

Haven't tried it myself but maybe this is what you need.

[funkey]

Something like this?

expandcollapse popup

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_UseX64=n
#include <Array.au3>
#include <GUIImageList.au3>
#include <GUIListView.au3>
#include <WindowsConstants.au3>
Global $hListView
Global $iItems = Random(3, 20, 1), $iItemSelection = Random(0, $iItems - 1, 1), $iItemSelection_Old = $iItemSelection
Global $aListViewItem[$iItems], $aChildGUI[$iItems]
_main()
Func _main()
 Local $hGUI = GUICreate("Vertical ListView Tab", 600, 500)
 Local $iListView = GUICtrlCreateListView("", 8, 8, 135, 484, -1, $LVS_EX_SUBITEMIMAGES)
 $hListView = GUICtrlGetHandle(-1)
 Local $hImageList = _GUIImageList_Create(32, 32, 5, 3)
 For $A = 1 To $iItems
  _GUIImageList_AddIcon($hImageList, @SystemDir & "shell32.dll", Random(1, 200, 1), 1)
 Next
 _GUICtrlListView_SetImageList($hListView, $hImageList, 0)
 For $A = 0 To $iItems - 1
  $aListViewItem[$A] = GUICtrlCreateListViewItem("Tab description " & $A, $iListView)
  _GUICtrlListView_SetItemImage($hListView, $A, $A)
  $aChildGUI[$A] = GUICreate("Child" & $A, 440, 484, 150, 8, $WS_CHILD,  0x00010000, $hGUI)
  GUISetBkColor(Random(0x111111, 0x999999, 1))
  GUICtrlCreateButton("Button In Register " & $A, 20 + $A * 10, 20 + $A * 20, 200, 30)
  GUICtrlCreateButton("Button In Register " & $A, 20 + $A * 10, 50 + $A * 20, 200, 30)
  GUISetState(@SW_HIDE)
 Next
 _GUICtrlListView_SetView($hListView, 1)
 GUISetState(@SW_SHOW, $aChildGUI[$iItemSelection])
 _GUICtrlListView_SetItemSelected($hListView, $iItemSelection, 1)
 _GUICtrlListView_EnsureVisible($hListView, $iItemSelection)
 GUISwitch($hGUI)
 GUISetState(@SW_SHOW)
 GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
 While 1
  Switch GUIGetMsg()
   Case -3
    Exit
  EndSwitch
 WEnd
EndFunc   ;==>_Main
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
 #forceref $hWnd, $iMsg, $iwParam
 Local $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
 Local $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
 Local $idFrom = DllStructGetData($tNMHDR, "idFrom")
 Local $iCode = DllStructGetData($tNMHDR, "Code")
 If $hWndFrom = $hListView Then
  Switch $iCode
   Case -101
    $iItemSelection = _ArraySearch($aListViewItem, GUICtrlRead($idFrom))
    If $iItemSelection >= 0 And $iItemSelection_Old <> $iItemSelection Then
     GUISetState(@SW_SHOW, $aChildGUI[$iItemSelection])
     GUISetState(@SW_HIDE, $aChildGUI[$iItemSelection_Old])
     $iItemSelection_Old = $iItemSelection
    EndIf
  EndSwitch
 EndIf
 Return "GUI_RUNDEFMSG"
EndFunc   ;==>WM_NOTIFY

[Melba23]

trescon,

Or this perhaps?

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#include <GUIScrollBars_Ex.au3>

Global $aChild[8], $aButton[8][5]

; Create GUI
$hGUI_Main = GUICreate("Test", 500, 500)

; Create tabs
$cTab = GUICtrlCreateTab(50, 30, 380, 300)
For $i = 0 To 7
    GUICtrlCreateTabItem("Tab " & $i)
Next
GUICtrlCreateTabItem("")

; Create child GUIs
For $i = 0 To 7
    $aChild[$i] = GUICreate("", 200, 150, 100, 100, $WS_POPUP, $WS_EX_MDICHILD, $hGUI_Main)
    GUISetBkColor(0xC4C4C4)

    ; Add controls
    For $j = 0 To 4
        $aButton[$i][$j] = GUICtrlCreateButton("Button " & $i & $j, 10, 10 + (50 * $j), 80, 30)
    Next

    ; Create scrollbars
    _GUIScrollBars_Generate($aChild[$i], 0, 240)

    GUISetState(@SW_HIDE, $aChild[0])
Next

; Show GUIs
GUISetState(@SW_SHOW, $aChild[0])
GUISetState(@SW_SHOW, $hGUI_Main)

; Set current tab value
$iLastTab = 0

While 1
    $nMsg = GUIGetMsg()

    If $nMsg Then ConsoleWrite($nMsg & @CRLF)

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $cTab
            ; Check which tab is active
            $iCurrTab = GUICtrlRead($cTab)
            ; If the tab has changed
            If $iCurrTab <> $iLastTab Then
                ; Hide child GUIs
                GUISetState(@SW_HIDE, $aChild[$iLastTab])
                ; Show relevant GUI
                GUISetState(@SW_SHOW, $aChild[$iCurrTab])
                ; Set new current tab
                $iLastTab = $iCurrTab
            EndIf
        Case Else
            ; Look for a button
            For $i = 0 To 7
                For $j = 0 To 4
                    If $nMsg = $aButton[$i][$j] Then
                        MsgBox(0, "Pressed", "Button " & $i & $j)
                    EndIf
                Next
            Next
    EndSwitch
WEnd

Is that what you wanted?

M23

[trescon]

Thank you all for the suggestions, all three are beautiful and interesting. Since I'm fairly new to the language Autoit I will serve as a study.

Thanks to everyone really.

Alberto

translation by google