Question

VB NET 更改 label 控件组属性

For i = 1 To 60
Dim lbs As New Label : Me.Controls.Add(lbs)
lbs.BackColor = Color.Transparent
lbs.AutoSize = True
lbs.Text = i
Next

请问net 中 我如何 更改 这样代码创建 控件组的属性？
例如 button1 我要 偶数 索引的 隐藏

button2由 原来每行顺序5个变10个
button3 还原原来

我是第三天接触 net，本来我是学6.0的。可是 老师，要找几个同学 学新知识。其中一个是我了，……救命 。net和6.0 根本不同，我知道 6.0 可以根据 [name](index).pr= 来修改属性，而且 比较简单。我现在学的 net书本 错漏很多，一些 看是 net不会的 用6.0代码写上去。我倒啦

请 哪个会net 帮帮我吧 谢谢

Answer 1

用 FOR EACH 来进行。
请根据此示例进行修改：
Dim tmp As Object
For Each tmp In Me.Controls
If TypeOf tmp Is Button Then
If tmp.name = "Button1" Then
tmp.Visible = False
End If
End If
Next

没看清你的问题。上面的搞复杂了。如果你只是想要将控件隐藏，就将此控件的 Visible 属性设置为 False 即可。你用个循环就行了。

追问

我要 指定那几个 怎么做啊？
例如 偶数label 隐藏， 和指定 最后几个隐藏
中间加 if then？
请你帮我 写一个完整的代码吧

'生成 label
按下一个按钮后
'最后面10个 为隐藏
按下一个按钮后，偶数排位的。全部隐藏
怎么做？

追答

你这样不是个好习惯。方法都告诉你了，还要完整的代码。代码没有完整的，如果你只会用完整的，那换个环境，你岂不是又没了吗？
你可以用个 FOR 循环，里面再用 IF 判断啊。

追问

其实 我 根本不会，NET 代码生成插件后 里面属性 会变成什么。

我现在暂时解决到，界面效果就是。 先清除所有，再重新建立。可是 这样占用资源太大了。所以
才问你 代码。 从而了解文法和语句写法

Answer 2

你还是先把VB学好再学VB。net吧，不然的话，你会很容易混淆

追问

6.0和net 语法根本不相同的。 你有心区别，肯定不会 混淆。

6.0可以不定义使用，net 却要。而且句句都要....