vb點虐 自定義控件問題

首先，你已經完成的步驟是：

10多年的沅陵網站建設經驗，針對設計、前端、開發、售后、文案、推廣等六對一服務，響應快，48小時及時工作處理。營銷型網站的優勢是能夠根據用戶設備顯示端的尺寸不同，自動調整沅陵建站的顯示方式，使網站能夠適用不同顯示終端，在瀏覽器中調整網站的寬度，無論在任何一種瀏覽器上瀏覽網站，都能展現優雅布局與設計，從而大程度地提升瀏覽體驗。成都創新互聯公司從事“沅陵網站設計”,“沅陵網站推廣”以來，每個客戶項目都認真落實執行。

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

如何在vb點虐 里面動態添加控件

Private WithEvents NewTextBox As TextBox

'通過使用WithEvents關鍵字聲明一個對象攜賣變量為新的命沒高令按辯察逗鈕

Private Sub Command1_Click()

If NewTextBox Is Nothing Then

Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)

NewTextBox.Move 200, 200

NewTextBox.Width = Form1.Width - 450

NewTextBox.Height = Form1.Height - 1400

NewTextBox.Visible = True

End If

End Sub

Private Sub Command2_Click()

If NewTextBox Is Nothing Then

Exit Sub

Else

Controls.Remove NewTextBox

Set NewTextBox = Nothing

End If

End Sub

你好，我想請教一下vb點虐 中怎么調用用戶控件，謝謝！

與使用System.Windows.Forms命名空間中的控件的用法沒有區別。賣帆枯

首先添加引用。

其次導入(Imports)命名空間。

接著就可以使用了：

1、要使用用戶控件的實例成員，就轎絕先創建一個用戶控件的實例，再通過實例名.實例成員名訪問；

2、要使用用戶控件的共中洞享（Shared）成員，通過用戶控件類名.共享成員名訪問。

如果你問的是怎樣創建自己的用戶控件類：

1、繼承類System.Windows.Forms.UserControl；

2、繼承任何一個已經存在的控件類（只要這個控件類不是NotInheritable的就行）。