tukuitk 发表于 2005-2-4 11:25:00

HWND属性

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

雪山飞狐_lzh 发表于 2005-2-4 11:45:00

调用Api的时候会用到

tukuitk 发表于 2005-2-4 14:13:00

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

tukuitk 发表于 2005-2-17 12:19:00

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

efan2000 发表于 2005-2-17 13:27:00

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

tukuitk 发表于 2005-2-18 12:44:00

本帖最后由 作者 于 2005-2-18 17:23:34 编辑 <br /><br /> 我试着写了一个在ListBox中寻找字串，但不会弄它，请你或其他兄弟帮我改一下，谢谢先！！！谢谢尹凡超班！！！


Const LB_FINDSTRING = &amp;H18F<BR>Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _<BR>                                                                                                                                                                                                                                                                                               (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _<BR>                                                                                                                                                                                                                                                                                                       lParam As Any) As Long


Private Sub Textbox1_Change()<BR>       ListBox1.SetFocus<BR>       'ListBox1.ListIndex = SendMessage(ListBox1.SetFocus, LB_FINDSTRING, -1, _<BR>               ByVal CStr(TextBox1.Text))<BR>End Sub


Private Sub UserForm_Initialize()<BR>       ListBox1.Clear<BR>       ListBox1.AddItem "Apples"<BR>       ListBox1.AddItem "Banana"<BR>       ListBox1.AddItem "Bread"<BR>       ListBox1.AddItem "Break"<BR>       ListBox1.AddItem "Baareak"<BR>       TextBox1.Text = ""<BR>End Sub
页: [1]
查看完整版本: HWND属性