如何用我的程序取的其他一个程序ListBox中的内容[没太多的分了，下次有分补上](22分)

冬月 · 2003-08-03

如何用我的程序取的其他一个程序ListBox中的内容[哪个程序不是我写地，]

smj_9547 · 2003-08-04

哦，这个呀，好象要通过API才可以哦,以前做过，不过现在好象不怎么记得了!

realLearning · 2003-08-04

procedure TForm1.Button1Click(Sender: TObject); var   Count : Integer;   H : Integer;   I : Integer;   Len : Integer;   str : string; begin   H := StrToInt(Edit1.Text);//listbox的句柄   Count := SendMessage(H,LB_GETCOUNT,0,0);   for I := 0 to Count-1 do   begin     Len := SendMessage(H,LB_GETTEXTLEN,I,0);     SetLength(str,Len);     SendMessage(H,LB_GETTEXT,I,Integer(PChar(str)));     ListBox1.Items.Add(str);   end; end;

bh812 · 2003-08-04

行不行呀？我要好好学习呢，我以为要得到窗口句柄才行呢。

冬月 · 2003-08-05

realLearning谢谢你的回答，能联系你吗，我的QQ是82881358，我想向你讨教几个问题 谢谢

冬月 · 2003-08-05

realLearning请问或的列表框内容后比如知道第3列是我需要的内容如何再在他 的程序列表上选中他，就是地三列变蓝

realLearning · 2003-08-06

如果不是多选，发送一个LB_SETCURSEL消息给它。 你可以参考win32sdk中以LB_开头的消息，就是针对ListBox操作的。

冬月 · 2003-08-06

是单选，realLearning谢谢你，能贴出单选的代码吗？

冬月 · 2003-08-08

为什么用LB_SETCURSEL有时候会把没选中的项目也加进去

realLearning · 2003-08-09

procedure TForm1.Button1Click(Sender: TObject); var   H : HWND; begin   H := StrToInt(Edit1.Text);   if SendMessage(H,LB_SETCURSEL,StrToInt(Edit2.Text)//这是Item的索引号,0)＝LB_ERR then     ShowMessage('ERROR'); end;

如何用我的程序取的其他一个程序ListBox中的内容[没太多的分了，下次有分补上](22分)

冬月

Unregistered / Unconfirmed

smj_9547

Unregistered / Unconfirmed

realLearning

Unregistered / Unconfirmed

bh812

Unregistered / Unconfirmed

冬月

Unregistered / Unconfirmed

冬月

Unregistered / Unconfirmed

realLearning

Unregistered / Unconfirmed

冬月

Unregistered / Unconfirmed

冬月

Unregistered / Unconfirmed

realLearning

Unregistered / Unconfirmed

Similar threads