国产探花免费观看_亚洲丰满少妇自慰呻吟_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指定了字符長度。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 商南县| 蓝田县| 武安市| 积石山| 林芝县| 芜湖县| 安陆市| 彭山县| 大厂| 深圳市| 冷水江市| 海丰县| 沂水县| 凉山| 措美县| 新竹市| 理塘县| 杭锦旗| 宜君县| 遵义市| 宜都市| 华阴市| 岐山县| 洱源县| 百色市| 安仁县| 沙洋县| 华宁县| 临夏市| 屯昌县| 望奎县| 民丰县| 恩平市| 正宁县| 横峰县| 噶尔县| 永新县| 土默特右旗| 谢通门县| 贺州市| 湘阴县|