HWND属性

tukuitk

请问各位高手：VBA中，LISTBOX等控件的HWND属性怎样才能加以利用呢？谢谢！！！

雪山飞狐_lzh

调用Api的时候会用到

tukuitk

这个是当然的！我是说我想用API中的SendMessage，但ACAD的VBA中像LISTBOX等控件好像没有HWND，是不是改为其它的了？怎样才能用它们的HWND呢？谢谢版主！

tukuitk

各位版主及其他网友兄弟，你们能帮帮我吗？万分谢谢了！！！

efan2000

使用GetFocus，不过先要用控件的SetFocus来设置焦点。

tukuitk

我试着写了一个在ListBox中寻找字串，但不会弄它，请你或其他兄弟帮我改一下，谢谢先！！！谢谢尹凡超班！！！ Const LB_FINDSTRING = &H18F
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long Private Sub Textbox1_Change()
ListBox1.SetFocus
'ListBox1.ListIndex = SendMessage(ListBox1.SetFocus, LB_FINDSTRING, -1, _
ByVal CStr(TextBox1.Text))
End Sub Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.AddItem "Apples"
ListBox1.AddItem "Banana"
ListBox1.AddItem "Bread"
ListBox1.AddItem "Break"
ListBox1.AddItem "Baareak"
TextBox1.Text = ""
End Sub