Working with combo boxes...

[Promethyl]

## Question on how to tell if the combo box has the dropdown list displayed

I have here below a very basic AutoIT3 script in which I am waiting for a program user to select an option from a dropdown combobox, once they click on thier choice, I want to send {tab} so it will advance to the next selection.

I have it very close to working perfectly, however, it will tab before they select their choice.

Can anyone help me to do this right?

expandcollapse popup

#comments-start
#########################
## auto advancing dms? ##
#########################
#comments-end

Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced

$appname = "Internet Explorer";
$comboname = "cmbo";

$winhandle = WinGetHandle ($appname);


## interact with proper window
GUISwitch ( $winhandle );

## get handle to interact with proper window
##ControlGetHandle ( "title", "text", controlID )

## http://www.autoitscript.com/autoit3/docs/intro/controls.htm

## http://www.autoitscript.com/autoit3/docs/functions/ControlCommand.htm

##REF: ControlCommand ( "title", "text", controlID, "command", "option" )


While 1=1

## TrayTip("WinActive $appname", WinActive($appname)  , 1)


If WinActive($appname) Then
    
    $controlID = ControlGetFocus ( $appname  );

    
    if StringInStr ( $controlID, $comboname )==0 then Continueloop;     test for combobox

    $selection = ControlCommand ( $appname , "", $controlID, "GetCurrentSelection", "" );

    $selection2 = ControlGetText ($appname,"", $controlID );

    if ($selection == "") then Continueloop;

    TrayTip($controlID, $selection2, 1);

    Send("{tab}");

    Sleep(500);                 five hund milliseconds
EndIf

WEnd

[PsaltyDS]

## Question on how to tell if the combo box has the dropdown list displayed

I have here below a very basic AutoIT3 script in which I am waiting for a program user to select an option from a dropdown combobox, once they click on thier choice, I want to send {tab} so it will advance to the next selection.

I have it very close to working perfectly, however, it will tab before they select their choice.

Can anyone help me to do this right?

CODE

#comments-start

#########################

## auto advancing dms? ##

#########################

#comments-end

Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced

$appname = "Internet Explorer";

$comboname = "cmbo";

$winhandle = WinGetHandle ($appname);

## interact with proper window

GUISwitch ( $winhandle );

## get handle to interact with proper window

##ControlGetHandle ( "title", "text", controlID )

## http://www.autoitscript.com/autoit3/docs/intro/controls.htm

## http://www.autoitscript.com/autoit3/docs/f...trolCommand.htm

##REF: ControlCommand ( "title", "text", controlID, "command", "option" )

While 1=1

## TrayTip("WinActive $appname", WinActive($appname) , 1)

If WinActive($appname) Then

$controlID = ControlGetFocus ( $appname );

if StringInStr ( $controlID, $comboname )==0 then Continueloop; test for combobox

$selection = ControlCommand ( $appname , "", $controlID, "GetCurrentSelection", "" );

$selection2 = ControlGetText ($appname,"", $controlID );

if ($selection == "") then Continueloop;

TrayTip($controlID, $selection2, 1);

Send("{tab}");

Sleep(500); five hund milliseconds

EndIf

WEnd

Well, first off, I cleaned up your source comments by putting in ';' for all those '#'. AutoIT uses a semicolon to denote comments, and does not require a semicolon at the end of the line, unless you want a comment after the code:

CODE

; #########################

; ## auto advancing dms? ##

; #########################

opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced

$appname = "Internet Explorer"

$comboname = "cmbo"

$winhandle = WinGetHandle($appname)

; interact with proper window

GUISwitch($winhandle)

While 1 = 1

; TrayTip("WinActive $appname", WinActive($appname) , 1)

If WinActive($appname) Then

$controlID = ControlGetFocus($appname)

If StringInStr($controlID, $comboname) == 0 Then ContinueLoop ; test for combobox

$selection = ControlCommand($appname, "", $controlID, "GetCurrentSelection", "")

$selection2 = ControlGetText($appname, "", $controlID)

if ($selection == "") Then ContinueLoop

TrayTip($controlID, $selection2, 1)

Send("{tab}")

Sleep(500) ; 500 milliseconds

EndIf

WEnd

With IE open, this just loops and never sends the TAB, at least for me.

After that, I insterted a MsgBox() to display the ControlID, and I never saw one that contained "cmbo" no matter what part of IE was in focus. I basicaly got "Internet Explorer_Server1" for everything, and didn't see any combo boxes any way? Opening Tools|Options to get some combo boxes up takes the focus off stops anything from happening any way.

What is the combo box control you are looking for the operator to use?

Anyway, note the use of MsgBox() pop ups below as break points to see what's happening, and I hope that helps:

CODE

; #########################

; ## auto advancing dms? ##

; #########################

opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced

$appname = "Internet Explorer"

$comboname = "cmbo"

$winhandle = WinGetHandle($appname)

; interact with proper window

GUISwitch($winhandle)

While 1 = 1

; TrayTip("WinActive $appname", WinActive($appname) , 1)

If WinActive($appname) Then

$controlID = ControlGetFocus($appname)

MsgBox(0, "Info", "ControlID is: " & $controlID, 5) ; Popup added to show current $ControlID

If StringInStr($controlID, $comboname) == 0 Then ContinueLoop ; test for combobox

$selection = ControlCommand($appname, "", $controlID, "GetCurrentSelection", "")

$selection2 = ControlGetText($appname, "", $controlID)

MsgBox(0, "Info2", "Selection is: " & $Selection, 5) ; Popup added to show current $Selection

if ($selection == "") Then ContinueLoop

TrayTip($controlID, $selection2, 1)

Send("{tab}")

Sleep(500) ; 500 milliseconds

EndIf

WEnd