⒃諳允景磁サ氖錄?刑砑?br /me.backgroundimage=system.drawing.bitmap.fromfile("你的圖片文件路徑")

成都創(chuàng)新互聯(lián)2013年開創(chuàng)至今,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都網(wǎng)站建設(shè)、成都做網(wǎng)站網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命,1280元格爾木做網(wǎng)站,已為上家服務(wù),為格爾木各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:028-86922220
命令按鈕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、這里應(yīng)該還有兩個(gè)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
Dim LngC1 As Color, LngC2 As Color
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Button1.BackColor = Color.Blue
Me.Button1.ForeColor = Color.Gold
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
LngC1 = Me.Button1.BackColor
LngC2 = Me.Button1.ForeColor
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Button1.BackColor = LngC1
Me.Button1.ForeColor = LngC2
End Sub
您好,這種方法可以通過按鈕的MouseDown和MouseUp事件來實(shí)現(xiàn),比如說,當(dāng)單擊按鈕RedColor(RedColor為這個(gè)按鈕的Name屬性的屬性值)的時(shí)候,要使按鈕的顏色變成紅色,這可以在代碼視圖中的控件選擇下拉列表中選擇RedColor這個(gè)控件,然后在右邊的事件下拉列表中選擇MouseDown事件(當(dāng)按下鼠標(biāo)時(shí)發(fā)生),這時(shí),Visual Studio會自動生成如下代碼:
Private Sub RedColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseDown
End Sub
接下來就在當(dāng)前生成的代碼中寫入如下代碼:
RedColor.BackColor = Color.FromArgb(255, 0, 0)
這句代碼的作用是利用Color下的FromArgb方法來設(shè)置RGB顏色參數(shù),在RGB顏色系統(tǒng)中,R代表紅色,G代表綠色,B代表藍(lán)色,根據(jù)這三種顏色的不同程度的調(diào)和,就會得到不同的顏色,如果您要得到深色的天藍(lán)色,則可以設(shè)置FromArgb(0, 191, 255),這個(gè)顏色轉(zhuǎn)換為HTML中的RGB顏色就是#00BFFF。
當(dāng)然顏色還原最好是寫在MouseUp事件里面,這樣就不必在單擊其他按鈕時(shí)來還原上一次按下的按鈕的顏色,在這里,為了方便描述,我們假設(shè)按鈕的默認(rèn)顏色為白色,也就是FromArgb方法設(shè)置為FromArgb(255, 255, 255)的時(shí)候,所標(biāo)示的顏色就是白色
所以選擇了RedColor按鈕的MouseUp事件后,Visual Studio會自動生成下列代碼:
Private Sub RedColor_MouseUp(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RedColor.MouseUp
End Sub
MouseUp的含義是當(dāng)鼠標(biāo)彈起時(shí)發(fā)生,所以在這個(gè)事件就可以設(shè)置按鈕顏色的還原,即添加下列代碼來實(shí)現(xiàn):
RedColor.BackColor = Color.FromArgb(255, 255, 255)
當(dāng)然,這就編寫好了一個(gè)按鈕按下時(shí)變色,回彈時(shí)還原的功能,至于另外一個(gè)按鈕的功能,這與這個(gè)按鈕的功能一樣,只是代碼有一些細(xì)微的差別而已,假設(shè)這個(gè)按鈕的Name屬性的屬性值為BlueColor,相應(yīng)的代碼對應(yīng)如下:
Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BlueColor.MouseDown
BlueColor.BackColor = Color.FromArgb(0, 0, 255) '藍(lán)色的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事件進(jìn)行合并,這合并后的代碼如下:
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
當(dāng)然,這個(gè)你只要分析了控件事件代碼的基本結(jié)構(gòu),一切就一目了然了,控件事件代碼的基本結(jié)構(gòu)如下:
[作用域] Sub 事件名([參數(shù)列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]
[事件代碼區(qū)域]
End Sub
如果此回答對您有幫助,別忘了采納哦,如果沒有解決您的問題,您可以在互聯(lián)網(wǎng)上尋找更多關(guān)于此問題的解決方案,謝謝!
表示剛才親自測試,建立以個(gè)Form,拖了一個(gè)Panel,在Panel里面放了3個(gè)RadioButton(默認(rèn)Checked就是False),然后啟動,發(fā)現(xiàn)第一個(gè)被選中了,
然后雙擊了一下它,跳到代碼頁面,在啟動,第二個(gè)被選中,雙擊第二個(gè)和第三個(gè),此時(shí)再代碼一面出現(xiàn)了3個(gè)按鈕的事件,在三個(gè)事件都設(shè)好斷點(diǎn),啟動程序,發(fā)現(xiàn)3個(gè)都沒有被選中了,而且也沒執(zhí)行任何一個(gè)事件。
Public Sub GenerateDynamiceButton()
'建立 坐標(biāo)位置的變數(shù), 方便一會兒安排 自動生產(chǎn)的button 的位置
Dim y As Integer = 15
Dim x As Integer = 0
' 用for loop 來建立 這些button 做 18只button
For ButtonIndex As Integer = 0 To 17
' 建造新的 button
Dim MyButton As New Button
'設(shè)定這新的button 的闊度
MyButton.Width = 80
'設(shè)定這新的button 的高度
MyButton.Height = 20
'我們暫定每行有4個(gè)BUTTON, 當(dāng)每行有多個(gè)4個(gè)BUTTON 時(shí)重設(shè)行距, 令到下一行的和這一行的距離有10 個(gè)PIXEL
' 和重設(shè)x 坐標(biāo)` = 0, 令到位置由頭開始
If ButtonIndex Mod 4 = 0 Then
'設(shè)定 TOP 的 坐標(biāo)位置令他可以和上一排的有10個(gè)PIXEL 的距離
y += MyButton.Height + 10
x = 0
End If
'設(shè)定文字 和 位置
' Set the text and set its top and left based on its dimensions and count
MyButton.Text = "My Button" ButtonIndex
'設(shè)定 TOP 的 坐標(biāo)位置
MyButton.Top = y
'下面的CODE 可以令到這個(gè)BUTTON 和另一個(gè)BUTTON 有5個(gè)PIXEL 的距離
MyButton.Left = 26 + (x * (MyButton.Width + 5))
x += 1
'設(shè)定 BUTTON CLICK EVENT
AddHandler MyButton.Click, AddressOf MyButton_Click
'把button 加到 form 中
Me.Controls.Add(MyButton)
Next
End Sub
'處理 button click event
Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim btn As Button = sender
'pop up 一個(gè)自己button 的字的message
MsgBox(btn.Text)
你輸入MsgBox會在黃色框中有以下提示:(prompt[, buttons][, title][, helpfile, context])
其中buttons函數(shù)buttons 參數(shù)可以有以下值:
常數(shù) 值 描述
vbOKOnly 0 只顯示確定按鈕。
vbOKCancel 1 顯示確定和取消按鈕。
vbAbortRetryIgnore 2 顯示放棄、重試和忽略按鈕。
vbYesNoCancel 3 顯示是、否和取消按鈕。
vbYesNo 4 顯示是和否按鈕。
vbRetryCancel 5 顯示重試和取消按鈕。
vbCritical 16 顯示臨界信息圖標(biāo)。
vbQuestion 32 顯示警告查詢圖標(biāo)。
vbExclamation 48 顯示警告消息圖標(biāo)。
vbInformation 64 顯示信息消息圖標(biāo)。
vbDefaultButton1 0 第一個(gè)按鈕為默認(rèn)按鈕。
vbDefaultButton2 256 第二個(gè)按鈕為默認(rèn)按鈕。
vbDefaultButton3 512 第三個(gè)按鈕為默認(rèn)按鈕。
vbDefaultButton4 768 第四個(gè)按鈕為默認(rèn)按鈕。
vbApplicationModal 0 應(yīng)用程序模式:用戶必須響應(yīng)消息框才能繼續(xù)在當(dāng)前應(yīng)用程序中工作。
vbSystemModal 4096 系統(tǒng)模式:在用戶響應(yīng)消息框前,所有應(yīng)用程序都被掛起。
第一組值 (0 - 5) 用于描述對話框中顯示的按鈕類型與數(shù)目;第二組值 (16, 32, 48, 64) 用于描述圖標(biāo)的樣式;第三組值 (0, 256, 512) 用于確定默認(rèn)按鈕;而第四組值 (0, 4096) 則決定消息框的樣式。在將這些數(shù)字相加以生成 buttons 參數(shù)值時(shí),只能從每組值中取用一個(gè)數(shù)字。
明白了?
網(wǎng)站題目:vb.net默認(rèn)按鈕,vb 命令按鈕
標(biāo)題來源:http://chinadenli.net/article39/dsegssh.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供、建站公司、網(wǎng)站設(shè)計(jì)、網(wǎng)站設(shè)計(jì)公司、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站營銷
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)