Unwind a Dropdown

[krunch]

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 ??

[krunch]

Hi

I have made that :

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 ??

[owenwengerd]

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.

[Fred Tomke]

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

[krunch]

Hi, thanks for this suggestion

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

Code (autolisp) Select Expand


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

[Fred Tomke]

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

Code (autolisp) Select Expand


(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

[krunch]

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

Thanks a lot for this great idea

[velasquez]

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

Code (autolisp) Select Expand


(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

[Fred Tomke]

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

[Fred Tomke]

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

[krunch]

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

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

This opens a combobox :

Code (autolisp) Select Expand

(dcl_Control_SetFocus ..combobox)
(SENDKEY "{DOWN}")