1、將窗口的KeyPreview屬性設(shè)置為True
創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于做網(wǎng)站、成都網(wǎng)站建設(shè)、故城網(wǎng)絡(luò)推廣、重慶小程序開發(fā)公司、故城網(wǎng)絡(luò)營(yíng)銷、故城企業(yè)策劃、故城品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等,從售前售中售后,我們都將竭誠(chéng)為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供故城建站搭建服務(wù),24小時(shí)服務(wù)熱線:13518219792,官方網(wǎng)址:www.cdcxhl.com
Me.KeyPreview = True
2、處理窗口的KeyDown事件
Sub MainFormKeyDown(sender As Object, e As KeyEventArgs)
Select Case e.KeyCode
Case Keys.Escape
Me.button1.PerformClick
Case Keys.Enter
Me.button2.PerformClick
End Select
End Sub
Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick
m?=?m?+?1
n?=?m.tostring
TextBox1.Text?=?n
End?Sub
m=m+1
n?=?m.tostring
textbox1.text?=?n
把這幾句原來在button2?click事件里面的代碼,直接寫在?timer事件里面,把timer的Enabled屬性設(shè)置為True,?Interval屬性設(shè)置為1000,就可以了。
一個(gè)一個(gè)回答吧。
1、CheckBox 的 MouseDown 事件發(fā)生在 CheckedChange 事件之前,但這是指在單步調(diào)試的狀態(tài)下,事實(shí)上在編譯好的程序中,這兩個(gè)事件是分別處在兩個(gè)不同的線程中,單純的考慮時(shí)間上的前后沒有意義。
2、MouseDown 在先。Scroll 事件發(fā)生在滾動(dòng)條移動(dòng)的過程中,而 ValueChange 事件發(fā)生在滾動(dòng)條的 Value 屬性發(fā)生改變的時(shí)候,兩者沒有必然聯(lián)系。舉例,當(dāng)你用鼠標(biāo)拖動(dòng)滾動(dòng)條移動(dòng)的時(shí)候,這時(shí)發(fā)生的是 Scroll 事件;松開鼠標(biāo)鍵后,Value 屬性值改變,這時(shí)候觸發(fā) ValueChange 事件。另外,如果滾動(dòng)條的 Value 是通過代碼改變的而非鼠標(biāo)拖動(dòng)的,是不觸發(fā) Scroll 事件只觸發(fā) ValueChange 事件。
3、ClientSize 是指控件的工作區(qū)的高度和寬度。比如說 form,它的 Size 值是包括標(biāo)題欄、邊框等,而 ClientSize 是工作區(qū),不包括標(biāo)題欄、邊框等。
4、一般是 Load→Paint→Shown。
那你用form click可以嗎?那點(diǎn)擊窗體不就是點(diǎn)擊文本框以外了嗎?
如果你的意思是,就算點(diǎn)擊任何按鈕,圖片框,都 msgbox("以外")
那你就把click過程中handles后面的那些去掉就行了。
1.定義變量記錄鍵是否被按下,按下的累計(jì)時(shí)間
Dim?按下A鍵??As?Boolean
Dim?按下A鍵時(shí)間?As?Integer
2.添加一個(gè)TextBox1用于接收鍵盤事件,或者直接用窗體的鍵盤事件(確保KeyPreview為True)
在KeyDown事件中添加如下代碼:
If?e.Keycode?=?keys.A?Then?按下A鍵?=?True
在KeyUp事件中添加如下代碼:
If?e.Keycode?=?keys.A?Then?按下A鍵?=?False
3.添加一個(gè)Timer1控件,調(diào)整Timer1的Interval來決定按鍵頻率,記得要把Timer1.Enable開啟
在Tick事件中添加如下代碼:
If?按下A鍵?=?True
按下A鍵時(shí)間+=1
Call?音量設(shè)置(按下A鍵時(shí)間?*?10)
End?If
PS:?按下的秒數(shù) =?按下A鍵時(shí)間*Timer1.Interval / 1000