SendMessage

2024-09-13 15:53:17 编辑：join 浏览量：517次

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

SendMessage

'Thisproje来自ctneedsaListBox,namedList1andaTextBox,namedText1

PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessag毛真念各阻吸西论容粮eA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwPara书谓学造矿村感英mAsInteger,ByVallParamAsAny)AsLon360问答g

ConstLB_FINDSTRING=&H18F

PrivateSubForm_Load()

'Addsomeitemstothelistbox

WithList头游病层史善1

.AddItem"Computer"

.AddItem"Screen"

.AddItem"Modem"

.AddItem"Printer"

.AddItem"Scanner"

.AddItem"S主兴飞止细异沉光鸡例谓oundBlaster"

.AddItem"Ke还式耐肉批干细杂查乐yboard"

.AddItem"CD-Rom"

.AddItem"Mouse"

EndWith

EndSub

PrivateSubText1_Change()

'在TEXT中输入单宽排范洲血才词比喻modem上面的LIST会选中你所输入的词

List1.ListIndex=Sen跟电成斗皮械保丰好dMessage(List1.hwnd,LB_FINDSTRING,-1,ByValCStr(Text1.Text))

EndSub

SendMessage