vb.net自定義控件問(wèn)題

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

十多年的市中網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。營(yíng)銷(xiāo)型網(wǎng)站的優(yōu)勢(shì)是能夠根據(jù)用戶(hù)設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整市中建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“市中網(wǎng)站設(shè)計(jì)”,“市中網(wǎng)站推廣”以來(lái)，每個(gè)客戶(hù)項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

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

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

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

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

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

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

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

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

4.在 GroupBox 里畫(huà)一個(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)建，

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

'詳情參見(jiàn) 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

'無(wú)中生有的 RadioButton 的事件處理程序

Private Sub RadioButtons_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

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

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

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

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

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

'例如：

If DirectCast(sender, RadioButton).Checked Then

SelectedIndex = ...

End If

End Sub

初學(xué)vb.net做了一個(gè)控件但是放在窗體上不能響應(yīng)鍵盤(pán)事件

1.

窗體有一個(gè)屬性

pressview(在

雜項(xiàng)

的倒數(shù)第二個(gè))

；

2.

這個(gè)屬性可以指示：是否從窗體接收鍵盤(pán)的輸入

3.

將其設(shè)置為

true

，窗體就可以接受鍵盤(pán)事件了

4.

然后通過(guò)委托

或者

調(diào)用子控件里面的函數(shù)過(guò)程

就可以實(shí)現(xiàn)鍵盤(pán)事件參數(shù)的傳遞，完成你所需要的功能了！

5.

望采納~

如何使用vb.net提取datalist中的子控件，比如linkbutton，dropdownlist等

Dim rows As System.Web.UI.WebControls.datalist= CType(CType(sender, Control).Parent.Parent, datalist)

Dim dl As DropDownList = CType(rows.FindControl("DropDownList1"), DropDownList)

Dim text1 As TextBox = CType(rows.FindControl("TextBox1"), TextBox)

text1.Text = dl.SelectedValue