1、在vb中單擊命令按鈕觸發(fā)單擊事件,即窗體的Click事件。
在成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)中從網(wǎng)站色彩、結(jié)構(gòu)布局、欄目設(shè)置、關(guān)鍵詞群組等細(xì)微處著手,突出企業(yè)的產(chǎn)品/服務(wù)/品牌,幫助企業(yè)鎖定精準(zhǔn)用戶(hù),提高在線咨詢(xún)和轉(zhuǎn)化,使成都網(wǎng)站營(yíng)銷(xiāo)成為有效果、有回報(bào)的無(wú)錫營(yíng)銷(xiāo)推廣。成都創(chuàng)新互聯(lián)專(zhuān)業(yè)成都網(wǎng)站建設(shè)10多年了,客戶(hù)滿意度97.8%,歡迎成都創(chuàng)新互聯(lián)客戶(hù)聯(lián)系。
2、在vb中單擊命令按鈕觸發(fā)失去焦點(diǎn)事件,當(dāng)焦點(diǎn)不在按鈕上即發(fā)生。
3、在vb中單擊命令按鈕觸發(fā)鍵盤(pán)按下事件,任意按下任意的鍵盤(pán)即可觸發(fā)事件。
4、在vb中單擊命令按鈕觸發(fā)鼠標(biāo)按下事件,當(dāng)鼠標(biāo)按下即可觸發(fā)的事件,無(wú)論是左鍵還是右鍵。
5、在vb中單擊命令按鈕觸發(fā)鼠標(biāo)移動(dòng)事件,當(dāng)鼠標(biāo)移動(dòng)到鍵盤(pán)上面即可發(fā)生。
一個(gè)一個(gè)回答吧。
1、CheckBox 的 MouseDown 事件發(fā)生在 CheckedChange 事件之前,但這是指在單步調(diào)試的狀態(tài)下,事實(shí)上在編譯好的程序中,這兩個(gè)事件是分別處在兩個(gè)不同的線程中,單純的考慮時(shí)間上的前后沒(méi)有意義。
2、MouseDown 在先。Scroll 事件發(fā)生在滾動(dòng)條移動(dòng)的過(guò)程中,而 ValueChange 事件發(fā)生在滾動(dòng)條的 Value 屬性發(fā)生改變的時(shí)候,兩者沒(méi)有必然聯(lián)系。舉例,當(dāng)你用鼠標(biāo)拖動(dòng)滾動(dòng)條移動(dòng)的時(shí)候,這時(shí)發(fā)生的是 Scroll 事件;松開(kāi)鼠標(biāo)鍵后,Value 屬性值改變,這時(shí)候觸發(fā) ValueChange 事件。另外,如果滾動(dòng)條的 Value 是通過(guò)代碼改變的而非鼠標(biāo)拖動(dòng)的,是不觸發(fā) Scroll 事件只觸發(fā) ValueChange 事件。
3、ClientSize 是指控件的工作區(qū)的高度和寬度。比如說(shuō) form,它的 Size 值是包括標(biāo)題欄、邊框等,而 ClientSize 是工作區(qū),不包括標(biāo)題欄、邊框等。
4、一般是 Load→Paint→Shown。
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
把這幾句原來(lái)在button2?click事件里面的代碼,直接寫(xiě)在?timer事件里面,把timer的Enabled屬性設(shè)置為T(mén)rue,?Interval屬性設(shè)置為1000,就可以了。
一定要先在VB中添加excel引用。
在工程中引用Microsoft Excel類(lèi)型庫(kù): 從"工程"菜單中選擇"引用"欄;選擇Microsoft Excel 11.0 Object Library(EXCEL2003),然后選擇"確定"。表示在工程中要引用EXCEL類(lèi)型庫(kù)。
調(diào)用excel的工作表中的命令按鈕,代碼如下:
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '打開(kāi)的工作簿路徑名稱(chēng)
SheetName = "sheet1" '命令按鈕所在的工作表名
Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對(duì)象
Set xlBook = xlApp.Workbooks.Open(FileName) '打開(kāi)已經(jīng)存在的EXCEL工件簿文件
……
xlBook.Close (True) '保存并關(guān)閉工作簿
xlApp.Quit '結(jié)束EXCEL對(duì)象
Set xlApp = Nothing '釋放xlApp對(duì)象
end sub
1、將窗口的KeyPreview屬性設(shè)置為T(mén)rue
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
1.定義變量記錄鍵是否被按下,按下的累計(jì)時(shí)間
Dim?按下A鍵??As?Boolean
Dim?按下A鍵時(shí)間?As?Integer
2.添加一個(gè)TextBox1用于接收鍵盤(pán)事件,或者直接用窗體的鍵盤(pán)事件(確保KeyPreview為T(mén)rue)
在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來(lái)決定按鍵頻率,記得要把Timer1.Enable開(kāi)啟
在Tick事件中添加如下代碼:
If?按下A鍵?=?True
按下A鍵時(shí)間+=1
Call?音量設(shè)置(按下A鍵時(shí)間?*?10)
End?If
PS:?按下的秒數(shù) =?按下A鍵時(shí)間*Timer1.Interval / 1000