主题：怎样用代码展开下拉框

比如，

combobox:

listbox:

DateTimePicker:

呃，好像不行。只能是模拟按下F4

 

Sendkeys.Send("{F4}")

我是想，下拉选一个条件后，自动展开日期这个控件。

 

Dim Dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

dt1.Select
sendkeys.send("{F4}")

 

 

这样不行，应该怎么改呢

 

 

我复制你的代码,测试是可以的哦.   你是否写错了事件.

我在是combobox 的 SelectedIndexChanged 里写的

看4楼

 

测试了一下，在SelectIndexChanged等事件不行，你再测试其他事件。

 

再不行，最好放在日期控件的Enter事件里去。

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
cmb.OpenDropDown

楼主用的是DateTimePicker 没办法这样做.