vb.net 控件集合

Private Sub b_click(sender As Object, e As EventArgs)

创新互联长期为上千多家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为薛城企业提供专业的成都做网站、网站建设、外贸营销网站建设，薛城网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。

MsgBox(sender.name)

End Sub

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

Dim b() As Button = {Button1, Button2, Button3}

For Each i In b

AddHandler i.Click, AddressOf b_click

Next

End Sub

在VB.net中，如何把listbox中的数值进行排序

Public Class Form1

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

ListBox1.Items.Add("Apple")

ListBox1.Items.Add("Cat")

ListBox1.Items.Add("Yellow")

ListBox1.Items.Add("Guilty")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListBox1.Sorted = True

End Sub

End Class

vb.net 排列组合 代码

第一题:

不需要任何控件,代码如下:

Private Sub Form_Click()

Dim A() As Integer, N As Integer

Dim St As String, I As Integer, J As Integer

Randomize

Do

St = InputBox("数字的个数", "输入", Int(Rnd * 100))

If St = "" Then

MsgBox "请输入数字!"

Else

N = Int(Val(St))

If N 1 Then

MsgBox "请输入大于0的数字!"

Else

Exit Do

End If

End If

Loop

ReDim A(N)

For I = 1 To N

Do

St = InputBox("第" + Str(I) + "个数字", "输入", Int(Rnd * 100))

If St = "" Then

MsgBox "请输入数字!"

Else

A(I) = Int(Val(St))

Exit Do

End If

Loop

Next

For I = 1 To N - 1

For J = I + 1 To N

If A(I) A(J) Then

A(0) = A(I)

A(I) = A(J)

A(J) = A(0)

End If

Next

Next

For I = 1 To N

Open App.Path "\" Trim(Str(I)) ".txt" For Output As #1

Print #1, A(I)

Close #1

Next

Print "已经把"; N; "个数写入到"; App.Path; "\1.txt 到 "; N; ".txt中.请查看."

End Sub

'已经运行过.

第二题:

DIM 是变量声明语句,它的格式为:

dim 变量名[as 格式] [,变量名[as 格式][,变量名[as 格式]......]

其中:

变量名:以字母或汉字开始的字串,代表一个变量

格式有以下几种:

属于数字的有五种:

(1)字节型:byte可取值0-255

(2)整形:integer可取值-32768至32767

(3)长整形:long(可取值范围很大的正负整数)

(4)单精度型:single(可取值小数)

(5)双精度型:double(可取值范围更大,小数位数更多的小数)

字符串型:string(可代表由字母\数字或汉字组成的字符集合)

布尔型:boolean(取值为ture\false)

日期型:date(可表示形如2009-5-26 02:36这样的组合)

如果要用姓名\住址\单位名称...等用字符串型(string)

eg:dim name as string(用name变量表示名字时,声明成字符串变量)

如果是用数字需要做计算,如工资\合计\人数....等要用数字型,但有一个原则,优先选用范围小的(按照字节型(byte)\整形(integer)\长整形(long)\单精度型(single)\双精度型(double)的顺序选择),够用就可以了,这样可以占用内存少,运算速度快.

eg:dim count as integer(用integer表示员工人数时,可声明成整形变量)

eg:dim sum as single(用sum表示工资时,可声明成单精度型变量)

不知是否说得清楚了.

VB.net 数组怎么按任意元素的顺序排序输出

你直接传一个数组进去，而且是一个结构体数组，array.sort怎么知道根据结构中的哪一个属性进行排序？放一个c#的代码你看看，VB和C#很相似的

class Program

{

static void Main(string[] args)

{

People[] p = new People[3]

{

new People{name="张三"},

new People{name="李四"},

new People{name="张二名"}

};

//重点传一个实现了IComparer接口的类进去，告诉Array.Sort怎么排序

Array.Sort(p, new PeopleCompare());

foreach (var item in p)

{

Console.WriteLine(item.name);

}

Console.ReadKey();

}

}

//People结构体，换成类一样的

public struct People

{

public string name { get; set; }

}

//实现了IComparer接口的类

public class PeopleCompare : IComparer

{

public int Compare(object x, object y)

{

People p1 = (People)x ;

People p2 = (People)y;

return p1.name.CompareTo(p2.name);

}

}

vb.net怎么自己写集合类型

继承ICollection(Of T)，或者是ILIst(Of T)，IDIctionary(Of TKey, TValue)等这些接口（具体哪个取决于你的Collection的性质）

具体语法的话……

Public Class MyCollection(Of T)

Implement ICollection(Of T)

………………

End Class

然后继承出来的函数应该怎么办建议看MSDN，每个接口继承出来的函数都不一样

通用的是GetEnumerator()这个，如果你用的一个集成了IEnumerable的字段那直接Return m_field.GetEnumerator()就可以

VB.NET控件的一些事件的触发顺序是什么

一个一个回答吧。

1、CheckBox 的 MouseDown 事件发生在 CheckedChange 事件之前，但这是指在单步调试的状态下，事实上在编译好的程序中，这两个事件是分别处在两个不同的线程中，单纯的考虑时间上的前后没有意义。

2、MouseDown 在先。Scroll 事件发生在滚动条移动的过程中，而 ValueChange 事件发生在滚动条的 Value 属性发生改变的时候，两者没有必然联系。举例，当你用鼠标拖动滚动条移动的时候，这时发生的是 Scroll 事件；松开鼠标键后，Value 属性值改变，这时候触发 ValueChange 事件。另外，如果滚动条的 Value 是通过代码改变的而非鼠标拖动的，是不触发 Scroll 事件只触发 ValueChange 事件。

3、ClientSize 是指控件的工作区的高度和宽度。比如说 form，它的 Size 值是包括标题栏、边框等，而 ClientSize 是工作区，不包括标题栏、边框等。

4、一般是 Load→Paint→Shown。