help (systabs)

[benson]

I need help in moving from one system tab to the other after setting an option for the current tab. example, video settings has the following tabs:

Themes, Desktop, Screen Saver, Appearance, Settings.

After automatically opening the video properties window, changing an option in the Themes tab, it must then automatically move to the Desktop tab.

Thanks

Edited January 9, 2008 by benson

[rasim]

I need help in moving from one system tab to the other after setting an option for the current tab. example, video settings has the following tabs:

Themes, Desktop, Screen Saver, Appearance, Settings.

After automatically opening the video properties window, changing an option in the Themes tab, it must then automatically move to the Desktop tab.

Thanks

Mayb you help this example?:

Global $TabItems[6] = [5, "Themes", "Desktop", "Screen Saver", "Appearance", "Settings"]
Dim $Title = "Свойства: Экран" ;Here is window title, since i not have english OS

$TabHwnd = ControlGetHandle($Title, "", "SysTabControl321")

If Not $TabHwnd Then
    MsgBox(16, "Error", "Window not exist")
    Exit
EndIf

MsgBox(0, "", SelectTab("Screen Saver"))

Func SelectTab($iItem)
    Local $curTab, $direct, $i
    
    For $i = 1 To $TabItems[0]
        If $TabItems[$i] = $iItem Then ExitLoop
    Next
    
    If ControlCommand($Title, "", $TabHwnd, "CurrentTab", "") > $i Then
        $direct = "TabLeft"
    Else
        $direct = "TabRight"
    EndIf
    
    While 1
        $curTab = ControlCommand($Title, "", $TabHwnd, "CurrentTab", "")
        If $curTab = $i Then ExitLoop
        ControlCommand($Title, "", $TabHwnd, $direct, "")
        Sleep(10)
    WEnd
    Return $curTab
EndFunc

[benson]

Thanks for the info. Its been a great help.