Sign in to follow this  
Followers 0
benson

help (systabs)

3 posts in this topic

#1 ·  Posted (edited)

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 by benson

Share this post


Link to post
Share on other sites

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

:)

Share this post


Link to post
Share on other sites

Thanks for the info. Its been a great help.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0