vb點虐 編程一個用鍵盤控制的東西

最簡單的加速運動示例，直接拷貝代碼，即可用方向鍵控制控件移動

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

Public?Class?最簡單的加速運動

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

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

Dim?WithEvents?時鐘?As?New?譽差Timer

Dim?WithEvents?移動控件?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

移動控件.BackColor?慶陸皮=?Color.MediumPurple

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

Controls.Add(移動控件)

時鐘.Interval?=?25

時鐘.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?時鐘_Tick(sender?As?Object,?e?As?EventArgs)?Handles?時鐘.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?-?移動控件.Width?Then?X?=?Width?-?移動控件.Width?-?2?:?VX?=?-VX

悉賀???If?Y??Height?-?移動控件.Height?Then?Y?=?Height?-?移動控件.Height?-?2?:?VY?=?-VY

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

End?Sub

End?Class

VB.NET：鍵盤控制焦點移動

;? 在數(shù)據(jù)庫的項目中 一定會有輸入數(shù)據(jù)的Form 最令錄入人員頭痛的就是每填完一個數(shù)據(jù)后 要再操作鼠標 或者另一只手按一下Tab(不過還是很麻煩) 最人性化呢就是:按回車鍵(在小鍵盤內(nèi)輸入只要一只手就可以了) 還可以用方向鍵控制 第一步:Form的KeyPreview的屬性為True 第二步:按照需要把TabIndex按順序設(shè)置 第三步:編寫一個方法 代碼如下: 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的說明來自MSDN: 激活下一個控件 [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 從其上開始舉褲搜索的 Control forward 如果為 true 則在 Tab 鍵順序中前移歲答族 如果為 false 則在 Tab 鍵順序中后移 tabStopOnly true 表示忽略 TabStop 屬性設(shè)置為 false 的控件 false 表示不忽略 nested true 表示包括嵌套子控件（子控件的子級） false 表示不包括 wrap true 表示在到達最后一個控件之后從 Tab 鍵順序中第一個控件開始繼續(xù)搜索 false 表示不繼續(xù)搜索 返回值 如果控件已激活 則為 true 否則為 false 備乎弊注 如果將控件的 ControlStyles Selectable 樣式位設(shè)置為 true 該控件包含在另一個控件中 而且其所有父控件都可見并已啟用 則 SelectNextControl 方法激活 Tab 鍵順序中的下一個控件 下面列表中的 Windows 窗體控件是不可選擇的 從該列表中的控件派生的控件也是不可選擇的 Label Panel GroupBox PictureBox ProgressBar Splitter LinkLabel（當控件中沒有鏈接時） 要求 平臺: Windows Windows NT Windows ME Windows Windows XP Home Edition Windows XP Professional Windows Server 系列 ??? 最后要注意的就是TabIndex的設(shè)置 如果控件在GroupBox中 那么GroupBox要在TabIndex的順序中 就是說 如果TextBox 在GroupBox 中 那么GroupBox Index= TextBox Index= 并且在SelectNextControld的參數(shù)nested=true 即可 還有一些細節(jié)大家在平時使用的時候還要多多注意的 end lishixinzhi/Article/program/net/201311/11492

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

（1）在Form1上布置一個Label，用來顯示鍵盤碼

（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將顯示對應(yīng)鍵的鍵盤碼

本文標題：vb點虐 鍵盤代碼 vb鍵盤按鍵代碼
新聞來源：http://www.chinadenli.net/article6/ddpeeog.html

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

廣告

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