如何在程序运行时修改组合框的Style属性？

Question

组合框的Style属性 在程序中是只读的
我需要在运行时改变由Normal变成Dropdown list的效果
用什么方法实现？

Answer 1

只读属性呀需要在运行时改变，那只能在代码里写了，可是又只读，好矛盾哦
要不这样你看行不行添加２个组合框
Normal的在上面
Dropdown list的在下面你需要那个就把哪个提到上面来，只要保持里面内容相同就行这样的代码你应该会写吧

Answer 2

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const CB_SHOWDROPDOWN = &H14F'显示下拉条
Private Sub Command1_Click()
    Call SendMessageLong(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0)
End Sub