1樓：美若之夏花
按下和鬆開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,則會封鎖鍵盤
2樓：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
如何在vb中使用keypress？
3樓：tn瓶邪
**如下：
visual 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
vb中如何用keypress在文字框中輸入字元 並且賦值給給陣列
4樓：匿名使用者
1、必須
滿足的bai條件：du如果文字框是陣列控制項，宣告的zhi陣列必dao須和文字框內對應；如果文字框不是陣列控制項，容宣告的陣列必須和文字框的個數相符；如果宣告的陣列是動態的，必須宣告陣列的下標。
2、陣列的宣告(以20個文字框為例)：靜態陣列：dim aa(1 to 20) as string ；動態陣列：
dim aa() as string；在後面定義陣列下標，redim aa(1 to 20)
3、為陣列賦值：
文字框為20個陣列控制項：
for i=1 to 20
aa(i) = text1(i-1).text
'注意：i-1 是文字框陣列是從0開始的，20個文字框陣列控制項下標最小為0，最大為19。
'在執行上面語句，文字框的內容賦值給陣列了。
next i
文字框不是陣列控制項，要逐一賦值，這個就不一一枚舉了。
4、如果是將乙個文字框的內容分別賦值給陣列，又是另外的情況，需要根據你的要求才能決定，由於不知你是什麼情況，所以不好回答。
vb keypress事件怎麼用？
5樓：匿名使用者
用法如下
private sub form_keypress(keyascii as integer)
print chr(keyascii);
end sub
6樓：匿名使用者
keypress就是獲取你所按的鍵的ascii碼，鍵盤上打的字可以直接在text控制項中顯示出來。
7樓：匿名使用者
獲取字元 傳送給vb程式
vb keypress事件怎麼觸發？
8樓：匿名使用者
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
如何在excel中使用VB刪除比較行
sub aa with sheet1 dim i,k as integer i 1 do while cells i,1 i i 1 loop for k 1 to i if cells k,1 cells k 1,1 then if cells k,4 cells k 1,4 then range...
如何在ubuntu中使用eclipsecdt開發cc程式
在ubuntu中使用eclipse cdt開發c c 程式方法 1 安裝eclipse 通過ubuntu自帶的程式安裝功能安裝eclipse，應用程式 ubtuntu軟體中心，搜eclipse安裝即可。2 安裝cdt外掛程式 a 啟動eclipse，b 選擇help install new soft...
如何在jsp頁面中使用freemarker標籤和struts2標籤
三炮 struts cleanup org.apache.struts2.dispatcher.actioncontextcleanup sitemesh freemarker org.apache.struts2.sitemesh.freemarkerpagefilter default enco...