vb.net波形控件 mfc 波形控件

我知道在VB和VB.net中怎样添加动态控件，可是我添加的这些控件怎样添加相应的事件呢？

Dim Text() As Object

Private Sub Form_Load()

Dim i As Integer

Dim nTop As Long

ReDim Text(1 To 10)

For i = 1 To 10

Set Text(i) = Controls.Add("VB.TextBox", "Text1" CStr(i))

Text(i).Height = 300

Text(i).Top = nTop

Text(i).Visible = True

nTop = nTop + 30 * 15

Next i

End Sub

添加动态控件。你可以自己试试看。 form1上什么都不加运行这个程序后会发现自动生成了10个text控件

相关问答

Q1: vb.net入门之分组控件：GroupBox控件

我们对控件进行分组的原因不外乎三个

为了获得清晰的用户界面而将相关的窗体元素进行可视化分组

编程分组 如对单选按钮进行分组

为了在设计时将多个控件作为一个单元来移动

在中 有GroupBox Panel TabControl这三个控件可以实现上面所提到的三个分组目的 所以我们称它们为分组控件

这三个控件在功用上十分的相似 特别是GroupBox和Panel控件 只存在一点细微的差别而已（这个差别是 只有GroupBox控件可以显示标题 而只有Panel控件可以有滚动条） 这里我们就先来了解GroupBox控件的使用

GroupBox（控件组）控件一般是作为其他控件的组的容器的形式存在的 这样有利于用户识别 使界面变得更加友好（GroupBox控件相当于Visual Basic以前版本的Frame控件） 使用控件组控件可以将一个窗体中的各种功能进一步进行分类 例如 将各种选项按钮控件分隔开

当移动单个GroupBox控件时 它所包含的所有控件也将一起移动

在大多数情况下 对控件组控件没有实际的操作 我们用它对控件进行分组 通常没有必要响应它的事件 不过 它的Name Text和Font等属性可能会经常被修改 以适应应用程序在不同阶段的要求

GroupBox控件在工具箱中的图标如图所示

一 GroupBox控件的常用属性

Anchor和Dock 这两个属性是所有有用户界面的控件都有的定位属性 这里就不啰嗦了

Name属性 标识控件的对象名称

Text属性 显示在GroupBox控件右上方的标题文字 可以用来标识该控件组的描述

Font和ForeColor属性 用于改变GroupBox控件的文字大小以及文字的颜色 需要注意的时候 它不单改变GroupBox控件的Text属性的文字外观 同时也改变其内部控件的显示的Text属性的文字外观

二 创建一组控件

在窗体上放置GroupBox控件 从工具箱中拖放一个GroupBox控件到窗体上的合适位置 调整大小

在属性窗口中改变GroupBox控件的Text属性 作为它的标题

在GroupBox控件内拖放其它需要的控件 例如RadioButton控件

设置示例 如图一所示

图一 用控件组控件对单选按钮分组

我们在拖动单个GroupBox控件的时候 它内部的控件也会随着移动 以保持和GroupBox的相对位置不变 同理 删除GroupBox控件时 它所包含的所有控件也会被删除掉

当我们调整GroupBox控件所包含的控件的Anchor和Dock属性的时候 其参照物将不是Form窗体 而是GroupBox控件了

三 编程添加GroupBox控件以及它所包含的控件

虽然GroupBox控件是在设计时用视图设计布局效果最好 但是无可避免地 很多特殊情况下也是需要在运行做添加控件到控件组中的 这里我们就用代码来完成上图一界面的绘制

动态添加控件一般需要经过下面三个步骤

创建要添加的控件实例

设置新控件的属性

将控件添加到父控件的 Controls 集合

在Form 代码的任意位置增加初始化控件的过程InitializeControl（） 代码如下所示

Sub InitializeControl（）

首先添加Label和TextBox控件

Dim Label As New System Windows Forms Label

Dim TextBox As New System Windows Forms TextBox

Label

Label Location = New System Drawing Point（ ）

Label Name = Label

Label Size = New System Drawing Size（ ）

Label TabIndex =

Label Text = 户主姓名

TextBox

TextBox Location = New System Drawing Point（ ）

TextBox Name = TextBox

TextBox Size = New System Drawing Size（ ）

TextBox TabIndex =

TextBox Text =

把它们添加到父控件Form 的Controls集合中

Me Controls Add（TextBox ）

Me Controls Add（Label ）

添加三个GroupBox控件

Dim GroupBox As New System Windows Forms GroupBox

Dim GroupBox As New System Windows Forms GroupBox

Dim GroupBox As New System Windows Forms GroupBox

GroupBox

GroupBox BackColor = System Drawing SystemColors Control

GroupBox Location = New System Drawing Point（ ）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（ ）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 性别

GroupBox

GroupBox Location = New System Drawing Point（ ）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（ ）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 单元

GroupBox

GroupBox Location = New System Drawing Point（ ）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（ ）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 楼层

把它们添加到父控件Form 的Controls集合中

Me Controls Add（GroupBox ）

Me Controls Add（GroupBox ）

Me Controls Add（GroupBox ）

添加RadioButton控件并分别绘制在GroupBox控件内

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 男性

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 女性

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 二单元

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 三单元

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 一单元

RadioButton

RadioButton BackColor = System Drawing SystemColors Control

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 四单元

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 二楼

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 三楼

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 一楼

RadioButton

RadioButton BackColor = System Drawing SystemColors Control

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 四楼

分别把它们添加到父控件GroupBox的Controls集合中

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

End Sub

把上一页的代码复制添加后 把控件初始化过程InitializeControl（）过程添加到Form 的New构造函数中 如下图二所示

图二 在New构造函数中添加过程InitializeControl（）

现在按F 运行 Form 的窗体控件布局（如下图三所示）是不是和我们手工布局的图一的布局是一样的呢？

lishixinzhi/Article/program/ASP/201311/21749

Q2: vb.net中如何实现vb中的shape功能

你用的是控件数组

光发了代码不知道你用的是动态的还是静态的数组

还有就是有没有shape1(0)呢

动态的话你的用

load

shape1(i)

放到

for循环下面就可以了

Q3: 怎么在VB.NET中画.wave文件的波形图

代码原理如下：

读取.wave

播放.wave

在播放的同时根据波形数据生成图形显示出来。

Q4: vb.net自定义控件问题

首先，你已经完成的步骤是：

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

Q5: vb.net中绘制一条 sin波形曲线，纵轴是峰值，横轴是时间，刚才你教我那个是单独画一条sin曲线，

根据时间变化绘制的，即时的，或许可以用chart图表控件，百度会出现微软网站的资料。

sin曲线永远是哪个样子，你是怎么变化？一般的移动，可以用offset控制向左平移，右边则增加点，看上去应该是在移动

关于vb.net波形控件和mfc 波形控件的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。