SendMess来自age

问题补充说明：谁能给我SendMessage 的用法(详细)

'Thisprojec秋市谈料宜沙粉路tneedsaListBox,namedList1andaTextBox,namedText1

PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,静目元略学培克思空季台ByValwParamAsInteger,ByVallParamAsAny)AsLon食负促斤氧g

ConstLB_FINDSTRING=&H18F

PrivateSubForm_Load()

'Addsomeitemstothelistbox

WithList1

.AddItem"Computer"

.AddItem"Screen"

.AddItem"Modem"

.AddItem"Printer"

.AddItem"Scanner"

.AddItem"SoundBlaster"

.AddItem"Keyboard"

.AddItem"CD-Rom"

.AddItem"Mouse"

EndWith

EndSub

PrivateSubText1_Change()

'在TEXT中输入单词比喻modem上面的LIST会选中费席静协弱处记你所输入的词

List1.List罗费击Index=SendMessage(List1.hwnd,LB_FINDSTRING,-1,ByValCStr(Text1.Text))

EndSub

标签：SendMess,age,来自