Unwind a Dropdown

Hi

In my memories there is a function to unwind a Dropdown, but I can't find it ..

Is it possible or do I mix with something else ??

Hi

I have made that :
{2}
The combobox is extended when clicked, and reduced when it loses focus or modified

So is it possible to unwind (activate) the combobox when I also click on the '<4>' button ??

I don't believe there is any way to open a combo dropdown by lisp code. You can create your own dropdown as a modeless form and display that.

Hi, maybe a sendkey could solve that. You can open a dropdown by cursor down.
Regards, Fred

Hi, thanks for this suggestion

You meant sendstring ?
I've tried this but it doesn't work .. Arrows keys are not standart characters

(dcl_Control_SetFocus ..combobox)
(dcl_SendString (chr 175))

Hi, no, I meant sendkey. Here is a sample I use for ESC:


(defun SENDKEY (strKeys / oWScript)
  (if (setq oWScript (vlax-create-object "WScript.Shell"))
    (progn
      (vlax-invoke-method oWScript 'Sendkeys strKeys)
      (vlax-release-object oWScript)
    ); progn
  ); if
); SENDKEY

(SENDKEY "{ESC}")


Regards, Fred

It works !
I didn't know this "WScript.Shell" method (found a key list {2}) ..

Thanks a lot for this great idea

author=Fred Tomke link=topic=1924.msg9459#msg9459 date=1355354558 wrote:
Hi, no, I meant sendkey. Here is a sample I use for ESC:


(defun SENDKEY (strKeys / oWScript)
  (if (setq oWScript (vlax-create-object "WScript.Shell"))
    (progn
      (vlax-invoke-method oWScript 'Sendkeys strKeys)
      (vlax-release-object oWScript)
    ); progn
  ); if
); SENDKEY

(SENDKEY "{ESC}")


Regards, Fred

Hi Fred,
In that situation (Sendkey "{ESC}") would be efficient?

Regards, velasquez

Hi, vela, this was only a sample thats why krunch looked for the key he needed.
Regards, Fred

Hi, krunch, thanks for the link!
Great to see that it helps.
Regards, Fred

Thanks to you
---------------

In that situation (Sendkey "{ESC}") would be efficient?

This opens a combobox :
(dcl_Control_SetFocus ..combobox)
(SENDKEY "{DOWN}")