vb.net自定義控件問題

首先，你已經(jīng)完成的步驟是：

在江門等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都做網(wǎng)站、網(wǎng)站制作 網(wǎng)站設(shè)計(jì)制作按需開發(fā),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站建設(shè),營(yíng)銷型網(wǎng)站,成都外貿(mào)網(wǎng)站建設(shè),江門網(wǎng)站建設(shè)費(fèi)用合理。

1.新建一個(gè)用戶控件[注意，用戶控件（UserControl）不是自定義控件（CustomControl）]

2.給用戶控件起個(gè)名字（我在此處起名叫 RadioList）

3.在用戶控件上畫一個(gè) GroupBox，命名為 RadioGroup，

并將其 Dock 屬性設(shè)置為 Fill

然后，你需要做的是動(dòng)態(tài)增減控件。

如果你以前用過 VB 6，你可能會(huì)想到控件數(shù)組，

但在此處，你可以直接增刪控件。

具體實(shí)現(xiàn)如下：

4.在 GroupBox 里畫一個(gè) FlowLayoutPanel，命名為 RadioPanel，

將其 AutoScroll 屬性設(shè)置為 True，即自動(dòng)顯示滾動(dòng)條，

并設(shè)置其 FlowDirection 屬性（例如設(shè)置為 TopDown）

這樣就省去了手動(dòng)調(diào)整 RadioButton 位置的麻煩

5.實(shí)現(xiàn)選項(xiàng)的動(dòng)態(tài)增減（以下只是我的思路，你可以發(fā)揮一下）

（十分簡(jiǎn)潔，注釋除外）：

''' summary

''' 創(chuàng)建一個(gè)新的 RadioButton。

''' /summary

Private Function CreateRadio() As RadioButton

Dim NewRadio As New RadioButton

components.Add(NewRadio)

'components 字段由控件設(shè)計(jì)器自動(dòng)創(chuàng)建，

'此代碼目的是使控件在銷毀（Dispose）時(shí)能自動(dòng)銷毀 RadioButton

'詳情參見 RadioList.Designer.vb

NewRadio.Parent = RadioPanel

'設(shè)置容器

AddHandler NewRadio.CheckedChanged, AddressOf RadioButtons_CheckedChanged

'設(shè)置事件處理程序

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)

'在此處設(shè)置選中項(xiàng)的屬性，通過 sender 來確定不同的 OptionButton

'你可以通過將 OptionButton 放在一個(gè)列表，

'如 List(Of OptionButton) 中來像數(shù)組一樣維護(hù)選項(xiàng)的次序

'注意，此處需要判斷 sender 的 Checked 屬性是否為 True

'因?yàn)?Changed 是“改變”，而不是“選中”

'例如：

If DirectCast(sender, RadioButton).Checked Then

SelectedIndex = ...

End If

End Sub

vb.net combobox 控件

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.Items.Add("米")

ComboBox1.Items.Add("分米")

ComboBox1.Items.Add("厘米")

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Select Case ComboBox1.SelectedIndex

Case 0

TextBox1.Text = "1"

Case 1

TextBox1.Text = "10"

Case 2

TextBox1.Text = "100"

Case Else

TextBox1.Text = ""

End Select

End Sub

End Class

VB.NET中怎么加載第三方控件

點(diǎn)擊菜單：項(xiàng)目=》添加引用 彈出窗口后選擇“COM”項(xiàng)，然后找到你要加載的控件。

記得先調(diào)用CMD使用 regsvr32 注冊(cè)你準(zhǔn)備加載的控件哈。

求vb.net中的第三方控件

第3方控件就是非官方開發(fā)的控件，任何人都可以編寫第3方控件，包括你自己。編寫控件后生成.DLL文件，然后可以在工具箱里直接引用。至于你那三個(gè)控件具體是什么東西，你可以查看對(duì)象瀏覽器，也可以用在代碼里使用映像來顯示這些控件的方法，屬性，事件，接口