vb點(diǎn)虐 編程一個(gè)用鍵盤控制的東西

最簡(jiǎn)單的加速運(yùn)動(dòng)示例，直接拷貝代碼，即可用方向鍵控制控件移動(dòng)

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶，將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：主機(jī)域名、虛擬空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、郎溪網(wǎng)站維護(hù)、網(wǎng)站推廣。

Public?Class?最簡(jiǎn)單的加速運(yùn)動(dòng)

Dim?左右,?上下?As?Integer

Dim?X,?Y,?VX,?VY,?VA?As?Double

Dim?WithEvents?時(shí)鐘?As?New?譽(yù)差Timer

Dim?WithEvents?移動(dòng)控件?As?New?Label

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Me.KeyPreview?=?True

VA?=?0.5

X?=?300.0

Y?=?300.0

移動(dòng)控件.BackColor?慶陸皮=?Color.MediumPurple

移動(dòng)控件.Size?=?New?Size(60,?60)

Controls.Add(移動(dòng)控件)

時(shí)鐘.Interval?=?25

時(shí)鐘.Enabled?=?True

End?Sub

Private?Sub?Form1_KeyDown(sender?As?Object,?e?As?KeyEventArgs)?Handles?MyBase.KeyDown

If?e.KeyCode?=?Keys.Up?Then?上下?=?-1

If?e.KeyCode?=?Keys.Down?Then?上下?=?1

If?e.KeyCode?=?Keys.Left?Then?左右?=?-1

If?e.KeyCode?=?Keys.Right?Then?左右?=?1

End?Sub

Private?Sub?Form1_KeyUp(sender?As?Object,?e?As?KeyEventArgs)?Handles?MyBase.KeyUp

If?e.KeyCode?=?Keys.Up?Then?上下?=?0

If?e.KeyCode?=?Keys.Down?Then?上下?=?0

If?e.KeyCode?=?Keys.Left?Then?左右?=?0

If?e.KeyCode?=?Keys.Right?Then?左右?=?0

End?Sub

Private?Sub?時(shí)鐘_Tick(sender?As?Object,?e?As?EventArgs)?Handles?時(shí)鐘.Tick

VX?=?Math.Min(VX?+?左右?*?VA,?10)

VY?=?Math.Min(VY?+?上下?*?VA,?10)

X?+=?VX

Y?+=?VY

If?X??0?Then?X?=?2?:?VX?=?-VX

If?Y??0?Then?Y?=?2?:?VY?=?-VY

If?X??Width?-?移動(dòng)控件.Width?Then?X?=?Width?-?移動(dòng)控件.Width?-?2?:?VX?=?-VX

悉賀???If?Y??Height?-?移動(dòng)控件.Height?Then?Y?=?Height?-?移動(dòng)控件.Height?-?2?:?VY?=?-VY

移動(dòng)控件.Location?=?New?Point(X,?Y)

End?Sub

End?Class

VB.NET：鍵盤控制焦點(diǎn)移動(dòng)

;? 在數(shù)據(jù)庫(kù)的項(xiàng)目中 一定會(huì)有輸入數(shù)據(jù)的Form 最令錄入人員頭痛的就是每填完一個(gè)數(shù)據(jù)后 要再操作鼠標(biāo) 或者另一只手按一下Tab(不過(guò)還是很麻煩) 最人性化呢就是:按回車鍵(在小鍵盤內(nèi)輸入只要一只手就可以了) 還可以用方向鍵控制 第一步:Form的KeyPreview的屬性為True 第二步:按照需要把TabIndex按順序設(shè)置 第三步:編寫一個(gè)方法 代碼如下: FocusMove Is Function Name ControlName Is the Control s Name Which you want to use Private Sub FocusMove()Sub FocusMove(ByVal sender As Object ByVal e As System Windows Forms KeyPressEventArgs) Handles ControlName KeyPress ControlName KeyPress If e KeyChar = ChrW( ) Then SelectNextControl is a Function will be introduced next SelectNextControl(sender True True True False) End If End Sub SelectNextControl的說(shuō)明來(lái)自MSDN: 激活下一個(gè)控件 [Visual Basic] Public Function SelectNextControl( _ ByVal ctl As Control _ ByVal forward As Boolean _ ByVal tabStopOnly As Boolean _ ByVal nested As Boolean _ ByVal wrap As Boolean _ ) As Boolean [C#] public bool SelectNextControl( Control ctl bool forward bool tabStopOnly bool nested bool wrap ); [C++] public: bool SelectNextControl( Control* ctl bool forward bool tabStopOnly bool nested bool wrap ); [JScript] public function SelectNextControl( ctl : Control forward : Boolean tabStopOnly : Boolean nested : Boolean wrap : Boolean ) : Boolean; 參數(shù) ctl 從其上開(kāi)始舉褲搜索的 Control forward 如果為 true 則在 Tab 鍵順序中前移歲答族 如果為 false 則在 Tab 鍵順序中后移 tabStopOnly true 表示忽略 TabStop 屬性設(shè)置為 false 的控件 false 表示不忽略 nested true 表示包括嵌套子控件（子控件的子級(jí)） false 表示不包括 wrap true 表示在到達(dá)最后一個(gè)控件之后從 Tab 鍵順序中第一個(gè)控件開(kāi)始繼續(xù)搜索 false 表示不繼續(xù)搜索 返回值 如果控件已激活 則為 true 否則為 false 備乎弊注 如果將控件的 ControlStyles Selectable 樣式位設(shè)置為 true 該控件包含在另一個(gè)控件中 而且其所有父控件都可見(jiàn)并已啟用 則 SelectNextControl 方法激活 Tab 鍵順序中的下一個(gè)控件 下面列表中的 Windows 窗體控件是不可選擇的 從該列表中的控件派生的控件也是不可選擇的 Label Panel GroupBox PictureBox ProgressBar Splitter LinkLabel（當(dāng)控件中沒(méi)有鏈接時(shí)） 要求 平臺(tái): Windows Windows NT Windows ME Windows Windows XP Home Edition Windows XP Professional Windows Server 系列 ??? 最后要注意的就是TabIndex的設(shè)置 如果控件在GroupBox中 那么GroupBox要在TabIndex的順序中 就是說(shuō) 如果TextBox 在GroupBox 中 那么GroupBox Index= TextBox Index= 并且在SelectNextControld的參數(shù)nested=true 即可 還有一些細(xì)節(jié)大家在平時(shí)使用的時(shí)候還要多多注意的 end lishixinzhi/Article/program/net/201311/11492

vb點(diǎn)虐 如何吧字符穿轉(zhuǎn)換成鍵盤碼

（1）在Form1上布置一個(gè)Label，用來(lái)顯示鍵盤碼

（2）差族正窗體代碼如下

Imports?System.Windows.Forms

Imports?System.IO

Imports?穗迅System.Net

Imports?System.Windows.Forms

Imports?System.IO

Imports?System.Net

Public?Class?Form1

Private?Sub?Form1_Load(sender?As?Object,

e?As?EventArgs)?Handles?MyBase.Load

KeyPreview?=?True

End?Sub

Private?Sub?Form1_KeyDown(sender?As?Object,

虛悔???????????????????????e?As?KeyEventArgs)?Handles?MyBase.KeyDown

Label1.Text?=?e.KeyValue

End?Sub

End?Class

按鍵盤上的鍵，Label1將顯示對(duì)應(yīng)鍵的鍵盤碼

本文標(biāo)題：vb點(diǎn)虐 鍵盤代碼 vb鍵盤按鍵代碼
新聞來(lái)源：http://vcdvsql.cn/article6/ddpeeog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供搜索引擎優(yōu)化、網(wǎng)站策劃、自適應(yīng)網(wǎng)站、定制開(kāi)發(fā)、電子商務(wù)、網(wǎng)站營(yíng)銷

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)