请教几个VB.net小问题,谢谢

huhaodn 2005-03-14 09:34:11
C#中的struct关键字在vb.net中是什么?如何将一组Button控件申明成数组?
...全文
110 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
hidejay 2005-03-14
  • 打赏
  • 举报
回复
Dim but As Button
Dim butArray(10) As Button
Dim i As Integer
For i = 0 To 9
butArray(i) = New Button
butArray(i).Name = i.ToString()
butArray(i).Top = i * 10
butArray(i).Visible = True
Me.Controls.Add(butArray(i))
Next
类似过去的控件数组,可以的
huhaodn 2005-03-14
  • 打赏
  • 举报
回复
谢谢,我试试先
WTaoboy 2005-03-14
  • 打赏
  • 举报
回复
Dim but As Button
Dim butArray(10) As Button
Dim i As Integer
For i = 0 To 9
butArray(i) = New Button
butArray(i).Name = i.ToString()
butArray(i).Top = i * 10
butArray(i).Visible = True
Me.Controls.Add(butArray(i))
Next
hamadou 2005-03-14
  • 打赏
  • 举报
回复
Dim a As New Button()
a.Name = "b1"
Dim a1 As New Button()
a1.Name = "b2"
Dim b() As Button = {a, a1}
Dim i As Integer
For i = 0 To b.GetUpperBound(0)
MessageBox.Show(CType(b(i), Button).Visible.ToString)
Next
huhaodn 2005-03-14
  • 打赏
  • 举报
回复
循环Visible属性
hamadou 2005-03-14
  • 打赏
  • 举报
回复
Dim a As New Button()
a.Name = "b1"
Dim a1 As New Button()
a1.Name = "b2"
Dim b() As Button = {a, a1}
Dim i As Integer
For i = 0 To b.GetUpperBound(0)
MessageBox.Show(b(i).Name())
Next
是可以的啊,不知道你想使用数组的什么属性???
huhaodn 2005-03-14
  • 打赏
  • 举报
回复
非常感谢楼上的,这种数组方式我昨天试过,但是在循环这个数组属性时,编译通不过,说是末将增加到引用
hamadou 2005-03-14
  • 打赏
  • 举报
回复
1.
structure
2.
Dim a As New Button()
a.Name = "b1"
Dim a1 As New Button()
a1.Name = "b2"
Dim b() As Button = {a, a1}
huhaodn 2005-03-14
  • 打赏
  • 举报
回复
楼上的,你这是循环创建控件,我控件是已存的
仿QQ音乐播放器文件List控件 =================================== 一款界面类的源代码主要模仿QQ音乐播放器中的文件列表List控件界面。 以下是作者信息:在此感谢这位网友,有问题可以直接找作者沟通请教。 '联系QQ 506422660 'E-Mail Owhao@126.com 'QQ: 74XXX23 '如果没事请勿打扰 '只花费了一个早上,因为有前一个基础 '帮一个网吧写点歌系统,写了一个播放列表控件,因为是自己用,所以功能和样式都是固定的 '所以在前面的基础上,重写了这个播放列表 '【//修正信息: '//修正了一个BUG '//因为是急匆匆完成,我没有那么多时间去调试 '//现在发现的一个BUG就是绘画底部的项如果是空白的不会擦除 '//如果每次擦除,会闪烁,肯定是我的思路里有很大的BUG '//就是这个BUG,这个源码已经修正】 '我没时间去修改了(因为我是很懒的) '各位根据自己的要求,去修改吧。 '因为找不到QQ音乐的那个绿色的播放图标,打开下面的所有EXE、DLL、ICO、Image都找不到。。。 '所以用另外一个图标代替了。 '这个图标放在资源文件 TCICON 中的 PLAYICON 里。 '支持真彩色带 Alpha 通道的图标,替换只要替换这个资源就可以了 '替换后修改一下 Private Const ICON_SIZE As Long = 12 '图标的尺寸 ' 【版权声明】 '欢迎自由传播或者商业用途。但是请保留原作者 '最终版权归作者所有 2009-03-06 作者已经修复了几处BUG,请大家下载更新。感谢作者。

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧