国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

Combo的自動查詢技術

2019-11-18 17:50:12
字體：大 中 小
來源：轉載
供稿：網友
DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByVal
hwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)
AsLong
PublicConstCB_FINDSTRING=&H14C
PRivateSubCombo1_Change()
DimiStartAsInteger
DimsStringAsString
StaticiLeftOffAsInteger
iStart=1
iStart=Combo1.SelStart
IfiLeftOff<>0Then
Combo1.SelStart=iLeftOff
iStart=iLeftOff
EndIf
sString=CStr(Left(Combo1.Text,iStart))
Combo1.ListIndex=SendMessage(Combo1.hwnd,B_FINDSTRING,-1,ByValCStr(
Left(ombo1.Text,iStart)))

IfCombo1.ListIndex=-1Then
iLeftOff=Len(sString)
combo1.Text=sString
EndIf
Combo1.SelStart=iStart
iLeftOff=0
EndSub
靜態變量iLeftOff指定了字符長度。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 鸡西市| 舒兰市| 五台县| 元朗区| 盈江县| 会同县| 彝良县| 开封市| 吐鲁番市| 聂荣县| 搜索| 司法| 江安县| 大理市| 怀化市| 黑龙江省| 寻乌县| 大渡口区| 美姑县| 新泰市| 定襄县| 招远市| 容城县| 成武县| 寿宁县| 枝江市| 深圳市| 永修县| 公主岭市| 开封县| 庐江县| 本溪| 哈尔滨市| 上饶市| 应用必备| 六枝特区| 屯留县| 沙田区| 罗定市| 博白县| 聂拉木县|