vb.net中如何把所有MDI子窗体的标题栏文字设置为 “子窗体i” (i 表示子窗体序号)?

增加一个模块

创新互联公司专业为企业提供萨嘎网站建设、萨嘎做网站、萨嘎网站设计、萨嘎网站制作等企业网站建设、网页设计与制作、萨嘎企业网站模板建站服务，十多年萨嘎做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

module mgrmdi

public mdifather as form=nothing

public mdison as integer=1

public sub OpenNewSon(byref SonForm as form)

___sonform.mdiparent=mdifather

___sonform.text=string.format("子窗体{0}",mdison.tostring)

___sonform.show

___mdison+=1

end module

在mdi父窗体启动时

sub form_load()

mdifather=me

end sub

加载子窗体使用

sub button1_click()

dim newform as new formson

OpenNewSon(newform)

end sub

vb.net产生随机数

方法名称：next()；功能描述：返回一个0~2147483647之间的整数

方法名称：next(i)；功能描述：返回一个0~i之间的整数

方法名称：next(i，j)；功能描述：返回一个i~j之间的整数

方法名称：Nextdouble()；功能描述：返回一个0~1之间的随机小数

================

使用方法：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim rand = New System.Random()

MsgBox(rand.next().ToString())

End Sub

==========================

产生N个不同数的话，我给你个我写的VB的代码，你稍微改下：

产生0-10的数：

Private Sub Command1_Click()

Randomize

Dim a(10) As Long

n = 10

For i = 0 To n

a(i) = Int(Rnd() * (n + 1))

For j = 0 To i - 1

If a(i) = a(j) Then

i = i - 1

Exit For

End If

Next

Next

For i = 0 To n

Print a(i)

Next

End Sub

vb.net 有没有++(增1)和--(减1)运算符？

++ 是 c#的用法

vb.net vs c# 详细的Operators运算符区别

vb.net

=====================

Comparison

= = =

Arithmetic

+ - * /

Mod

\ (integer division)

^ (raise to a power)

Assignment

= += -= *= /= \= ^= = = =

Bitwise

And Or Xor Not

Logical

AndAlso OrElse And Or Xor Not

Note: AndAlso and OrElse perform short-circuit logical evaluations

String Concatenation

c#

=====================

Comparison

== = = !=

Arithmetic

+ - * /

% (mod)

/ (integer division if both operands are ints)

Math.Pow(x, y)

Assignment

= += -= *= /= %= = |= ^= = = ++ --

Bitwise

| ^ ~

Logical

|| | ^ !

Note: and || perform short-circuit logical evaluations

String Concatenation

+

分享名称：包含vb.neti--的词条
转载来于：http://njwzjz.com/article/dojjjeh.html