| 发表于:2007-03-02 15:44:392楼 得分:30 |
1.maxlength 2.vb中combobox控件中则么限定字符位数 private sub combo1_keydown(keycode as integer, shift as integer) if keycode <> 8 and keycode <> 46 then if len(combo1.text) > 2 then keycode = 0 end if end sub private sub combo1_keypress(keyascii as integer) if keyascii <> 8 then if len(combo1.text) > 2 then keyascii = 0 end if end sub private sub combo1_keyup(keycode as integer, shift as integer) if keycode <> 8 and keycode <> 46 then if len(combo1.text) > 2 then keycode = 0 end if end sub | | |
|