1樓:匿名使用者
keyscii寫錯了,bai少了a
dim x%, y%, z%
private sub text1_keypress(keyascii as integer)
dim c$
c = chr(keyascii)
if keyascii = 13 then'如果回du車zhi不想計算dao在內的話,就放
版在前面權
print x, y, z
exit sub
end if
if ucase(c) >= "a" and ucase(c) <= "z" then
x = x + 1
elseif c >= "0" and c <= "9" theny = y + 1
else
z = z + 1
end if
end sub
vb keypress事件怎麼用?
2樓:匿名使用者
用法如下
private sub form_keypress(keyascii as integer)
print chr(keyascii);
end sub
3樓:匿名使用者
keypress就是獲取你所按的鍵的ascii碼,鍵盤上打的字可以直接在text控制項中顯示出來。
4樓:匿名使用者
獲取字元 傳送給vb程式
如何在vb中使用keypress
5樓:美若之夏花
按下和鬆開copy乙個ansi鍵是將發生keypress事件,該事件可用於窗體、核取方塊、組合框、列表框、命令按鈕、**框和文字框等大多數控制項。當乙個控制項或窗體具有焦點時,該控制項或窗體將接受從鍵盤上輸入的資訊
keypress事件過程的一般格式為:
private sub 物件名_keypress(keyascii as integer)
......end sub
keyascii可以識別按鍵ascii碼,例如按下「a」鍵,keyascii的值為65,而按下「a」時,其值為97
例題:利用keypress事件可以過濾鍵盤的輸入、識別使用者是否按下特定的箭、實現大小寫的轉換。
**:private sub text1_keypress(keyascii as integer)
keyascii=asc(ucase(chr(keyascii)))
if keyascii=13 then
***mand1.setfocus
end if
end sub
ascii=13是按下enter鍵是的值,如果keyascii=0,則會封鎖鍵盤
6樓:tn瓶邪
**如下:
zhidaovisual basic code
專private sub gctextbox2_keypress(byval sender as object, byval e as system.windows.forms.
keypresseventargs) handles gctextbox2.keypress
'單獨判斷回車屬
dim a as char = convert.tochar(keys.enter)
if e.keychar.equals(a) then
messagebox.show("enter press")
end if
'判斷ctrl+回車
if (control.modifierkeys and keys.shift) = keys.shift then
dim aa as char = convert.tochar(keys.return)
if e.keychar = aa then
messagebox.show("control+enter press")
end if
end if
end sub
觸愛cici怎麼樣,觸愛cici真的有效果嗎？
我女朋友就是做這個產品的，她說好，我還沒試過 私護用品 看清是消字型大小還是械字型大小 消字型大小只具有防毒作用 械字型大小可以 觸愛cici真的有效果嗎？愛情一直以來是讓我們非常難以猜透的東西，很多人都覺得愛情非常的模糊不定。特別是在愛情中，女孩會非常，想要知道對方喜不喜歡自己，所以為了能夠得到自...
ipad觸屏沒反應了是怎麼回事，ipad觸屏沒反應了是怎麼回事？
系統問題。這是系統問題。可以把home鍵和電源鍵同時摁下，3至5秒，即重啟。home鍵大多是返回鍵 即返回電腦的主介面 它在電腦上的功能鍵區，並且在不同的介面下和不同的軟體中所起的作用不相同。膝上型電腦也有，但是不同品牌電腦位置不一樣，蘋果ios作業系統和谷歌安卓作業系統下的產品上面也有home鍵。...
手機螢幕觸屏不好怎麼辦，手機觸屏不靈敏怎麼辦？？？
有以下幾個方法可以試試 1 遇到手機螢幕失靈，首先需要將手機螢幕進行清潔，手機螢幕靜電也有可能導致觸屏失靈，這時只需要用手將整個螢幕輕輕的擦一下即可。或者也可以嘗試將保護膜揭掉來進行螢幕的清潔。2 還可以嘗試來回多按幾次鎖屏鍵。很多時候，智慧型觸屏手機螢幕失靈都是因為軟體衝突或者不相容所造成的反應遲...