在VB程序中，通过代码改变Combo控件只读属性Style值

 

在VB程序中，如果你用如下语句动态创建一个Combo控件

Dim WithEvents cmbDropList As ComboBox
...
Set cmbDropList = Controls.Add("VB.ComboBox", "cmbDropList")
后，Combo控件的Style值是1 （VbComboDropDown 下拉式组合框，包括一个下拉式列表和一个文本框。可以从列表选择或在文本框中输入 ）,若想把Style的值更改2 (VbComboDrop-DownList 2 下拉式列表。这种样式仅允许从下拉式列表中选择 )

通过语句Combo1.Style=2是不行的，因为Style是只读属性。为了突破这个限制，我动用的Spy++这个武器，对两种不同Style值的combo控件进行侦察，发现了两处不同

    1、combo控件的style的值为1-VbComboDropDown时，combo控件窗口的Styles=&H54010242，而combo控件的style的值为2-VbComboDrop-DownList时,combo控件窗口的Styles=&H54010243

    2、combo控件的style的值为1-VbComboDropDown时，combo控件里有一个Edit文本框窗口，而combo控件的style的值为2-VbComboDrop-DownList时，则没有Edit文本框窗口

我首先试着用API函数改变combo控件窗口的Styles值，

Call SetWindowLong(Combo1.hwnd, GWL_STYLE&#