发表于 2009-1-5 19:48
| 
VB涓瑿ombo鐨勪竴绉嶈緭鍏ユ鏌ュ埗绾︽柟娉曠殑瀹炵幇
鍙戝竷: 2008-6-26 09:32 | 浣滆: admin | 鏌ョ湅: 12娆
---- Combo鏂瑰紡鐨勮緭鍏ュ煙锛屽彲鍦ㄧ▼搴忎腑浜嬪厛璁惧畾濂戒竴缁勬暟鎹紝鐢辩敤鎴蜂互涓嬫媺鏂瑰紡鏉ラ夋嫨杈撳叆椤圭洰锛岃繖绉嶅伐浣滄柟寮忓彲鏂逛究鐢ㄦ埛鐨勪娇鐢ㄦ槸鏄捐屾槗瑙佺殑锛屼娇鐢ㄨ呮棤闇璁颁綇杈撳叆鐨勬暟鎹紝鍙鎷変笅鏁版嵁鍒楄〃琛ㄦ锛屼粠涓夊嚭鑷繁鎵闇鐨勬暟鎹究鍙紝鐗瑰埆鏄浜庨偅浜涗笉鐔熺粌鐨勭敤鎴锋潵璇达紝杩欑杈撳叆鏂瑰紡杩樺吋鏈変娇鐢ㄥ悜瀵肩殑鍔熻兘銆備絾鏄鏂规硶瀵逛簬閭ｄ簺鐔熺粌鐨勭敤鎴凤紝瀵逛簬鎵閫夋嫨鐨勬暟鎹垪琛ㄦ暟鎹噺闈炲父澶ф椂锛屽氨鏄剧殑涓嶆槸閭ｄ箞鏂逛究鏈夋晥浜嗭紝绻佺悙鐨勯夋嫨鏁版嵁鍙兘杩樹細缁欑敤鎴峰甫鏉ヤ笉灏戠儲鎭硷紝闄嶄綆浣跨敤鏁堢巼銆傝嫢鎴戜滑鑳芥彁渚涚敤鎴烽夋嫨鏂瑰紡鐨勫悓鏃讹紝杩樺彲璁╃敤鎴疯嚜宸辫兘杈撳叆鏁版嵁锛屽苟闄愬畾杈撳叆鐨勬暟鎹繀椤诲湪 Combo鐨勫垪琛ㄦ暟鎹腑锛屽綋杈撳叆鐨勬暟鎹笉鍦–ombo鐨勫垪琛ㄦ暟鎹腑鏃剁粰鐢ㄦ埛浠ユ彁绀轰俊鎭紝璁╁叾閲嶆柊杈撳叆锛岃繖鏍峰氨鍙弧瓒充笉鍚岀敤鎴风殑闇姹傦紝鎻愰珮Combo鐨勪娇鐢ㄦ晥鐜囥傛湰鏂囧湪姝ょ粰鍑轰竴绉嶅疄鐜扮殑鏂规硶锛屼緵澶у鍙傝冦
---- 鍦–ombo鍩熻緭鍏ヤ腑鏈変竴涓悕鍙玍alidate鐨勪簨浠讹紝瀹冩槸鐢ㄦ潵妫鏌ョ敤鎴疯緭鍏ョ殑鏁版嵁鏄惁鏄湁鏁堢殑鏁版嵁锛屾垜浠彲鍦ㄦ浜嬩欢涓潵妫鏌ョ敤鎴风殑杈撳叆銆傚浜庣敤鎴疯緭鍏ョ殑鏁版嵁鏄惁钀藉湪鏁版嵁鍒楄〃闆嗗悎涓紝Combo涓湁杩欐牱涓涓睘鎬ф潵琛ㄧず锛孧athWithList銆傜煡閬撲簡杩欎簺鏉′欢锛屾闂鐨勮В鍐冲氨鍙樼殑闈炲父瀹规槗浜嗐傜敤鎴峰彲鐢ㄤ笅闈㈡彁渚涚殑杩欐绋嬪簭鏉ュ垽鏂瑿ombo鍩熻緭鍏ョ殑鏁版嵁鏄惁鏄暟鎹垪琛ㄤ腑鐨勬暟鎹紝鑻ユ槸灏嗘彁绀篛K锛屽惁鍒欐彁绀篍RR锛孋ombo鐨凚oundText灞炴ц〃绀虹敤鎴疯緭鍏ョ殑鏁版嵁锛屽湪姝ょ敤MSGBOX涓鍚屾彁绀虹粰鐢ㄦ埛鏌ョ湅銆
---- 姝ょ▼搴忓湪VB6.0涓婂疄鐜般
Private Sub DataCombo1_Validate(Cancel As Boolean)
If DataCombo1.MatchedWithList Then
MsgBox "OK"
MsgBox DataCombo1.BoundText
Else
MsgBox "ERR"
MsgBox DataCombo1.BoundText
End If
End Sub
