Question About Combo

[Cha0sBG 0]

It's Me Again LOL

i know that to create a combo the source is :

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $msg
    GUICreate("My GUI combo") ; will create a dialog box that when displayed is centered

    GUICtrlCreateCombo("", 10, 10); create first item
    GUICtrlSetData(-1, "item2|item3", "item3"); add other item snd set a new default
    GUISetState()

   ; Run the GUI until the dialog is closed
    While 1
        $msg = GUIGetMsg()
        
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
EndFunc  ;==>Example

But can this combo display the programs currently runned on the taskbar ?

ty in advance

[Cha0sBG 0]

can auto it do that ? please i need it verry much

[sandin 6]

something like this:

expandcollapse popup

#include <GUIConstantsEx.au3>
$Form1 = GUICreate("My GUI combo")
$Combo1 = GUICtrlCreateCombo("", 10, 10, 200)
$Combo2 = GUICtrlCreateCombo("",210, 10, 100)
GUICtrlSetData(-1, "Applications|Processes", "Applications")
GUISetState(@SW_SHOW)
_DisplaySelection()
While 1
    $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then Exit
        if $msg = $Combo2 then _DisplaySelection()
WEnd
func _DisplaySelection()
    Local $newData = ""
    if GUICtrlRead($Combo2) = "Applications" Then
        $var = WinList()
        For $i = 1 to $var[0][0]
            If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
                if $newData = "" Then
                    $newData = "[Applications]|" & $var[$i][0]
                    $newDataFirst = "[Applications]"
                Else
                    $newData = $newData & "|" & $var[$i][0]
                EndIf
            EndIf
        Next
        GUICtrlSetData($Combo1, "")
        GUICtrlSetData($Combo1, $newData, $newDataFirst)
    Else
        $var = ProcessList()
        for $i = 1 to $var[0][0]
            if $newData = "" Then
                $newData = $var[$i][0]
                $newDataFirst = $var[$i][0]
            Else
                $newData = $newData & "|" & $var[$i][0]
            EndIf
        Next
        GUICtrlSetData($Combo1, "")
        GUICtrlSetData($Combo1, $newData, $newDataFirst)
    EndIf
EndFunc
Func IsVisible($handle)
    If BitAnd( WinGetState($handle), 2 ) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

[Cha0sBG 0]

yes but i think there is something sereously wrong

cuz i give an example i have Progress opened called "PhOeniXAnGeL | 3700" and it displays "PhOeniXAnGeL" "3700" in 2 lines or so and with othere applications and prosseses is the same

#sry for bad english

[Cha0sBG 0]

can someone fix his code pls ?

[sandin 6]

...and with othere applications and prosseses is the same

sorry, what? I didn't understood you... you mean applications and processes are showing the same results, or... something else? (cause it's working for me)

[Cha0sBG 0]

it means 1 program on the task bar is showing 2 times and ..... 1 of that is wrong sry my english is verry bad :S

[Cha0sBG 0]

i will say again i'm playing a game on the taksbar the game name is "PhOeniXAnGeL | 3700" and in the program is showing in 2 lines "PhOeniXAnGeL" and "3700" and when i try to use with othere functions it gives error :S

[Cha0sBG 0]

so can't anyone fix it plsss ?

[sandin 6]

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GUIComboBox.au3>
$Form1 = GUICreate("My GUI combo", 320, 40)
$Combo1 = GUICtrlCreateCombo("", 10, 10, 200)
$Combo2 = GUICtrlCreateCombo("",210, 10, 100)
GUICtrlSetData(-1, "Applications|Processes", "Applications")
GUISetState(@SW_SHOW)
_DisplaySelection()
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    if $msg = $Combo2 then _DisplaySelection()
WEnd
func _AddingItems($Name, $number)
    if GUICtrlRead($Combo1) = "" Then
        if $number = 1 Then
            _GUICtrlComboBox_InsertString($Combo1, "[Applications]", 0)
        Else
            _GUICtrlComboBox_InsertString($Combo1, $Name, 0)
        EndIf
        _GUICtrlComboBox_SetCurSel($Combo1, 0)
    Else
        _GUICtrlComboBox_InsertString($Combo1, $Name)
    EndIf
EndFunc
func _DisplaySelection()
    GUICtrlSetData($Combo1, "");delete previous data in combobox
    if GUICtrlRead($Combo2) = "Applications" Then
        $var = WinList()
        For $i = 1 to $var[0][0]
            If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
                _AddingItems($var[$i][0], 1)
            EndIf
        Next
    Else
        $var = ProcessList()
        for $i = 1 to $var[0][0]
            _AddingItems($var[$i][0], 2)
        Next
    EndIf
EndFunc
Func IsVisible($handle)
    If BitAnd( WinGetState($handle), 2 ) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

Edited June 6, 2008 by sandin

[Cha0sBG 0]

thank you bro for all your help i'm realy grateful if u have skype , msn , yahoo , icq please contact me i need to ask u 1 more question