首先,你已經(jīng)完成的步驟是:
成都創(chuàng)新互聯(lián)公司是一家專注于成都網(wǎng)站制作、成都做網(wǎng)站、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)和服務(wù)器托管的網(wǎng)絡(luò)公司,有著豐富的建站經(jīng)驗(yàn)和案例。
1.新建一個(gè)用戶控件[注意,用戶控件(UserControl)不是自定義控件(CustomControl)]
2.給用戶控件起個(gè)名字(我在此處起名叫 RadioList)
3.在用戶控件上畫(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)建,
'此代碼目的是使控件在銷毀(Dispose)時(shí)能自動(dòng)銷毀 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
工具箱右鍵單擊——選擇項(xiàng)……——選擇.net組件或com組件——點(diǎn)擊“瀏覽”選擇控件dll文件,然后工具箱中就會(huì)出現(xiàn)新加的控件
我使用Visual Basic 2008 編寫(xiě)
1、新建2個(gè)窗體Form1和Form2
2、Form1窗體新建一個(gè)Button按扭和一個(gè)Timer1控件
3、打開(kāi)Form1編寫(xiě)如下代碼
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Form2.Show()
Me.Hide() '隱藏本窗體
Timer1.Enabled = False '使其只執(zhí)行1次
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True '能使用 其實(shí)這個(gè)在屬性窗口中更容易設(shè)置
Timer1.Interval = 2000 '毫秒 即2秒
End Sub
End Class
Option?Explicit
Private?WithEvents?NewTextBox?As?TextBox
'通過(guò)使用WithEvents關(guān)鍵字聲明一個(gè)對(duì)象變量為新的命令按鈕
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
步驟如下:
1. 先到C:\WINDOWS\system32目錄下看看你的系統(tǒng)里是否已經(jīng)有了MSADODC.ocx和MSDATGRD.ocx這兩個(gè)文件(多半是沒(méi)有的),要是有了就直接看第2步吧。
然后放到C:\WINDOWS\system32目錄下。
2. 在VS 2005中注冊(cè)MSADODC.ocx和MSDATGRD.ocx這兩個(gè)控件。在VS 2005中點(diǎn)擊"Tools" -- "Visual Studio 2005 Command Prompt",輸入如下命令即可:
regsvr32 msadodc.ocx
regsvr32 msdatgrd.ocx
給你舉個(gè)簡(jiǎn)單的例吧
for()語(yǔ)句:
int i;
for(i=0;i=100;i++)
printf("%d",i);
意思是只要i=0叫做初值,100叫做終值 i++表示什么意思應(yīng)該知道吧!此時(shí)的步長(zhǎng)為1;要是i+=2時(shí)步長(zhǎng)為2.
在本語(yǔ)句中i=0只在一開(kāi)始的時(shí)候起了作用。以后無(wú)用。i在0和100之間(包含100)輸出i的值。當(dāng)i=100時(shí)輸出100,此時(shí)i仍執(zhí)行++的動(dòng)作,這就是說(shuō)每次printf后先++在判斷i和100的關(guān)系。
也可以變行為:
int i=1;
for(;i=100;i++)
printf("%d",i);
或者
int i=1;
for(i=0;i=100;)
{
printf("%d",i);
i++;
}等等
其中for(;;)等價(jià)于while(1)
其實(shí)for語(yǔ)句等都可以用while等其他語(yǔ)句實(shí)現(xiàn)!?。。。?/p>
本文題目:vb.net示波器控件的簡(jiǎn)單介紹
URL鏈接:http://jinyejixie.com/article12/hsopgc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站制作、企業(yè)建站、網(wǎng)頁(yè)設(shè)計(jì)公司、做網(wǎng)站、自適應(yīng)網(wǎng)站、App設(shè)計(jì)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)