這個可以在按鈕底部放個標簽控件,然后在屬性窗口事件欄里選擇Click,在右邊下拉列表中選擇按鈕的那個事件過程。這樣單擊標簽時會調(diào)用與按鈕同一個事件過程。
成都創(chuàng)新互聯(lián)公司專注于新都企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,成都商城網(wǎng)站開發(fā)。新都網(wǎng)站建設(shè)公司,為新都等地區(qū)提供建站服務(wù)。全流程定制網(wǎng)站建設(shè),專業(yè)設(shè)計,全程項目跟蹤,成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
標簽autoSize屬性要設(shè)置False,否則沒法調(diào)整大小。
制作一個按鈕:
Dim my_Button As New Button
my_Button.SetBounds(Me.Width - 75, 0, 75, 23)
Me.Controls.Add(my_Button)
在軟件運行前是看不到這個按鈕,運行后可見,運行后想更改按鈕位置,簡單的方法啟動一個事件,如textbox輸入數(shù)值后通過Button的點擊事件修改my_Button的頂點位置,還有的方法就是拖動,拖動應(yīng)該是高級編程部分而且?guī)资写a,沒有人愿意寫
Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click
Static?f?As?Boolean?=?False
If?Not?f?Then
f?=?True
Button2.Hide()
Button3.Show()
End?If
End?Sub
Private?Sub?Button3_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button3.Click
Static?f?As?Boolean?=?False
If?Not?f?Then
f?=?True
Button2.Show()
Button3.Hide()
End?If
End?Sub
本來有個屬性FlatStyle設(shè)置為Popup基本上能實現(xiàn)這個情況,怎奈有個線框怎么也弄不掉。FlatAppearance.BorderSize設(shè)置為0不起作用,只對Flat有用,所以用代碼在Flat和Popup兩種風(fēng)格之間切換。
'在鼠標進入時設(shè)置為浮雕風(fēng)格
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.FlatStyle = FlatStyle.Popup
End Sub
'離開時設(shè)置為平面風(fēng)格,這樣像標簽一樣只剩下文字,當然要FlatAppearance.BorderSize設(shè)置為0
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.FlatStyle = FlatStyle.Flat
End Sub
'另外把UseVisualStyleBackColor 設(shè)置為 False也會好看一點。
Dim?I?As?Integer
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Button1.Text?=?"繼續(xù)"
TextBox1.Text?=?I
I?=?I?+?1
End?Sub
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
I?=?2
End?Sub
代碼如上 如圖的效果
首先要添加兩個窗體,假設(shè)第一個窗體名為Form1,第二個窗體名為Form2。在Form1窗體中添加個按鈕Command1。按鈕單擊事件的代碼為:
Private Sub Command1_Click()
Form2.Show '用show方法加載并且顯示名為Form2的窗體
End Sub
show 方法后面省略了兩個參數(shù)即Form2.Show 0或Form2.Show 1此參數(shù)可缺省??勺孕羞\行驗證
名稱欄目:vb.net按鈕 vb button控件
網(wǎng)頁網(wǎng)址:http://sd-ha.com/article28/hjdgjp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供電子商務(wù)、虛擬主機、微信公眾號、網(wǎng)站改版、建站公司、網(wǎng)站內(nèi)鏈
聲明:本網(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)