首先,你已經完成的步驟是:

成都創新互聯自成立以來,一直致力于為企業提供從網站策劃、網站設計、網站建設、網站制作、電子商務、網站推廣、網站優化到為企業提供個性化軟件開發等基于互聯網的全面整合營銷服務。公司擁有豐富的網站建設和互聯網應用系統開發管理經驗、成熟的應用系統解決方案、優秀的網站開發工程師團隊及專業的網站設計師團隊。
1.新建一個用戶控件[注意,用戶控件(UserControl)不是自定義控件(CustomControl)]
2.給用戶控件起個名字(我在此處起名叫 RadioList)
3.在用戶控件上畫一個 GroupBox,命名為 RadioGroup,
并將其 Dock 屬性設置為 Fill
然后,你需要做的是動態增減控件。
如果你以前用過 VB 6,你可能會想到控件數組,
但在此處,你可以直接增刪控件。
具體實現如下:
4.在 GroupBox 里畫一個 FlowLayoutPanel,命名為 RadioPanel,
將其 AutoScroll 屬性設置為 True,即自動顯示滾動條,
并設置其 FlowDirection 屬性(例如設置為 TopDown)
這樣就省去了手動調整 RadioButton 位置的麻煩
5.實現選項的動態增減(以下只是我的思路,你可以發揮一下)
(十分簡潔,注釋除外):
''' summary
''' 創建一個新的 RadioButton。
''' /summary
Private Function CreateRadio() As RadioButton
Dim NewRadio As New RadioButton
components.Add(NewRadio)
'components 字段由控件設計器自動創建,
'此代碼目的是使控件在銷毀(Dispose)時能自動銷毀 RadioButton
'詳情參見 RadioList.Designer.vb
NewRadio.Parent = RadioPanel
'設置容器
AddHandler NewRadio.CheckedChanged, AddressOf RadioButtons_CheckedChanged
'設置事件處理程序
Return NewRadio
End Function
''' summary
''' 移除已存在的 RadioButton。
''' /summary
Private Sub RemoveRadio(ByVal dest As RadioButton)
components.Remove(dest)
dest.Dispose()
End Sub
'無中生有的 RadioButton 的事件處理程序
Private Sub RadioButtons_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
'在此處設置選中項的屬性,通過 sender 來確定不同的 OptionButton
'你可以通過將 OptionButton 放在一個列表,
'如 List(Of OptionButton) 中來像數組一樣維護選項的次序
'注意,此處需要判斷 sender 的 Checked 屬性是否為 True
'因為 Changed 是“改變”,而不是“選中”
'例如:
If DirectCast(sender, RadioButton).Checked Then
SelectedIndex = ...
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CheckBox1.Checked = Not CheckBox1.Checked
CheckBox2.Checked = Not CheckBox2.Checked
CheckBox3.Checked = Not CheckBox1.Checked
End Sub
軟糖來回答羅。
“調用事件”有歧義,你的意思是不是下面兩種:
調用事件處理方法
直接調用對象名.方法名
'例如有這樣一個按鈕點擊事件處理程序
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
秒表.Start()
End?Sub
'調用它直接用
Button1_Click(me,?new?EventArgs())
引發事件
Button1.Click.Invoke(me,?new?EventArgs())
另外?RaiseEvent 也可以引發事件,但不能使用 RaiseEvent?來引發派生窗體的控件事件,只有自己定義的類的事件才能用它引發。
如滿意,請采納,謝謝。
與使用System.Windows.Forms命名空間中的控件的用法沒有區別。
首先添加引用。
其次導入(Imports)命名空間。
接著就可以使用了:
1、要使用用戶控件的實例成員,就先創建一個用戶控件的實例,再通過實例名.實例成員名訪問;
2、要使用用戶控件的共享(Shared)成員,通過用戶控件類名.共享成員名訪問。
如果你問的是怎樣創建自己的用戶控件類:
1、繼承類System.Windows.Forms.UserControl;
2、繼承任何一個已經存在的控件類(只要這個控件類不是NotInheritable的就行)。
表示剛才親自測試,建立以個Form,拖了一個Panel,在Panel里面放了3個RadioButton(默認Checked就是False),然后啟動,發現第一個被選中了,
然后雙擊了一下它,跳到代碼頁面,在啟動,第二個被選中,雙擊第二個和第三個,此時再代碼一面出現了3個按鈕的事件,在三個事件都設好斷點,啟動程序,發現3個都沒有被選中了,而且也沒執行任何一個事件。
在該按紐的單擊事件編寫代碼:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
在VB6的時候,使用:Unload me
在VB.NET里使用:Me.Close()
分享標題:vb.net開關控件,VB中的控件
文章來源:http://www.yijiale78.com/article10/dschedo.html
成都網站建設公司_創新互聯,為您提供網站策劃、全網營銷推廣、App設計、網站收錄、網站制作、品牌網站設計
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯