变量怎么调用?这里?

huhanshan013 2003-09-02 11:11:29
Dim i As Integer
For i = 1 To 10

'Set label1 = Me.Controls.Add("vb.label", "label1", Me)
Set label1 = Me.Controls.Add("vb.label", "i", Me)

我要实现这个效果?怎么做?连续创建十个label 这里 i 是传递过来的,并不想取名叫 i ???

怎么做啊?
...全文
47 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
chanet 2003-09-03
  • 打赏
  • 举报
回复
呵呵...

可以不断 new 对象呀~
abbot 2003-09-03
  • 打赏
  • 举报
回复
load 比 new 好!
bbgbianbaogui 2003-09-03
  • 打赏
  • 举报
回复
同上。
ligan 2003-09-03
  • 打赏
  • 举报
回复
建议用load实现控件数组
for i=0 to 10
load label1(i)
label1(i).visable=true
next i

northwolves 2003-09-02
  • 打赏
  • 举报
回复
创建十个label 建议不要用CONTROLS.ADD,用LOAD控件数组解决,参考下面的代码:


'add a commandbutton whose name is "newbutton"and index is 0,visiable is false
Option Explicit
Private Sub Form_Click()
addcmdline
End Sub
Sub addcmdline()
Me.WindowState = 2
On Error Resume Next
Dim i As Long
For i = 0 To 99
Load newbutton(i)
newbutton(i).Left = (i Mod 10) * 1000 + 1050
newbutton(i).Top = (i \ 10) * 500 + 550
newbutton(i).Caption = "cmd" & i
newbutton(i).Width = 900
newbutton(i).Height = 400
newbutton(i).Visible = True
Next
Me.ForeColor = vbRed
Me.DrawWidth = 3
For i = 0 To 10
Me.Line (1000, 500 + i * 500)-(11000, 500 + 500 * i)
Me.Line (1000 + i * 1000, 500)-(1000 + 1000 * i, 5500)
Next
End Sub

Private Sub newbutton_Click(Index As Integer)
MsgBox " You have clicked " & newbutton(Index).Caption, 64
End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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