一定要先在VB中添加excel引用。

創新互聯專注于辛集企業網站建設,成都響應式網站建設公司,商城系統網站開發。辛集網站建設公司,為辛集等地區提供建站服務。全流程按需網站設計,專業設計,全程項目跟蹤,創新互聯專業和態度為您提供的服務
在工程中引用Microsoft Excel類型庫: 從"工程"菜單中選擇"引用"欄;選擇Microsoft Excel 11.0 Object Library(EXCEL2003),然后選擇"確定"。表示在工程中要引用EXCEL類型庫。
調用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" '打開的工作簿路徑名稱
SheetName = "sheet1" '命令按鈕所在的工作表名
Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象
Set xlBook = xlApp.Workbooks.Open(FileName) '打開已經存在的EXCEL工件簿文件
……
xlBook.Close (True) '保存并關閉工作簿
xlApp.Quit '結束EXCEL對象
Set xlApp = Nothing '釋放xlApp對象
end sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Process.Start("C:\1.txt")
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屬性設置為True,?Interval屬性設置為1000,就可以了。
您好,這種方法可以通過按鈕的MouseDown和MouseUp事件來實現,比如說,當單擊按鈕RedColor(RedColor為這個按鈕的Name屬性的屬性值)的時候,要使按鈕的顏色變成紅色,這可以在代碼視圖中的控件選擇下拉列表中選擇RedColor這個控件,然后在右邊的事件下拉列表中選擇MouseDown事件(當按下鼠標時發生),這時,Visual Studio會自動生成如下代碼:
Private Sub RedColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseDown
End Sub
接下來就在當前生成的代碼中寫入如下代碼:
RedColor.BackColor = Color.FromArgb(255, 0, 0)
這句代碼的作用是利用Color下的FromArgb方法來設置RGB顏色參數,在RGB顏色系統中,R代表紅色,G代表綠色,B代表藍色,根據這三種顏色的不同程度的調和,就會得到不同的顏色,如果您要得到深色的天藍色,則可以設置FromArgb(0, 191, 255),這個顏色轉換為HTML中的RGB顏色就是#00BFFF。
當然顏色還原最好是寫在MouseUp事件里面,這樣就不必在單擊其他按鈕時來還原上一次按下的按鈕的顏色,在這里,為了方便描述,我們假設按鈕的默認顏色為白色,也就是FromArgb方法設置為FromArgb(255, 255, 255)的時候,所標示的顏色就是白色
所以選擇了RedColor按鈕的MouseUp事件后,Visual Studio會自動生成下列代碼:
Private Sub RedColor_MouseUp(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseUp
End Sub
MouseUp的含義是當鼠標彈起時發生,所以在這個事件就可以設置按鈕顏色的還原,即添加下列代碼來實現:
RedColor.BackColor = Color.FromArgb(255, 255, 255)
當然,這就編寫好了一個按鈕按下時變色,回彈時還原的功能,至于另外一個按鈕的功能,這與這個按鈕的功能一樣,只是代碼有一些細微的差別而已,假設這個按鈕的Name屬性的屬性值為BlueColor,相應的代碼對應如下:
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(0, 0, 255) '藍色的FromArgb
End Sub
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(255, 255, 255)
End Sub
另外,為了避免代碼的冗余,可以將RedColor和BlueColor的MouseUp事件進行合并,這合并后的代碼如下:
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown, RedColor.MouseUp
BlueColor.BackColor = Color.FromArgb(255, 255, 255)
RedColor.BackColor = Color.FromArgb(255, 255, 255)
End Sub
當然,這個你只要分析了控件事件代碼的基本結構,一切就一目了然了,控件事件代碼的基本結構如下:
[作用域] Sub 事件名([參數列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]
[事件代碼區域]
End Sub
如果此回答對您有幫助,別忘了采納哦,如果沒有解決您的問題,您可以在互聯網上尋找更多關于此問題的解決方案,謝謝!
⒃諳允景磁サ氖錄?刑砑?br /me.backgroundimage=system.drawing.bitmap.fromfile("你的圖片文件路徑")
命令按鈕1.Visable=False'或者命令按鈕1.Hide
命令按鈕2.Visable=False'或者命令按鈕2.Hide
在窗體的Click事件中添加
命令按鈕1.Visable=True'或者命令按鈕1.show
命令按鈕2.Visable=True'或者命令按鈕2.show
me.backgroundimage=nothing
在退出按鈕的事件中添加
End
2、這里應該還有兩個Timer,Timer1和Timer2
在開始按鈕的事件中添加
timer1.interval=1000
Timer1.enable=True
timer2.interval=500
timer2.enable=true
在Timer1的Tick事件中添加
label1.text=timeofday
在Timer2的Tick事件中添加
label2.left=label2.left 10
if label2.left
文章標題:vb.net單擊按鈕代碼 vbs點擊網頁按鈕
文章位置:http://www.yijiale78.com/article38/dooeepp.html
成都網站建設公司_創新互聯,為您提供面包屑導航、定制網站、網站內鏈、品牌網站制作、網站制作、小程序開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯