怎样解决动态控件数组的事件响应啊??

sicainiao 2003-03-19 10:57:47
本人利用控件数组动态生成控件,可是却不能响应动态控件数组的DblClick,Click,mousedonw,mouseup事件,倒底是怎么会回啊。我用的是vb6.0动态生成控件程序如下:在设计时定一图片框控件数组index为0,不可见。

Option Explicit
Dim Cou As Integer

Private Sub CreatPic()
 Cou = Cou + 1
 Load picBox(Cou)
 With picBox(Cou)
  .Visible = True
  .Enabled = True
  .Caption = "图片控件" & Cou
 End With
End Sub

像Private Sub picBox_Click(Index As Integer)这种事件就没有反应
请问应该怎么解决啊。。小弟在此先谢过了。。

...全文
145 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
zyl910 2003-03-24
  • 打赏
  • 举报
回复
创建好PictureBox后要设置坐标
要不然所有的PictureBox叠在一起
northwolves 2003-03-24
  • 打赏
  • 举报
回复
Option Explicit
Dim Cou As Integer

Private Sub CreatPic()
Cou = Cou + 1
Load Picbox(Cou)
With Picbox(Cou)
.Visible = True
.Enabled = True
.Left = Cou * 1000
'.Caption = "图片控件" & Cou--------->picbox没该属性
End With
End Sub

Private Sub Command1_Click()
CreatPic
Picbox_Click (Cou)
End Sub

Private Sub Form_Load()
Cou = 0
End Sub

Private Sub Picbox_Click(Index As Integer)
MsgBox Picbox(Index).Left
End Sub
CloneCenter 2003-03-22
  • 打赏
  • 举报
回复
是不是控件改名字了?
Sean918 2003-03-21
  • 打赏
  • 举报
回复
不会不响应的

落伍者 2003-03-21
  • 打赏
  • 举报
回复
Option Explicit
Dim Cou As Integer

Private Sub CreatPic()
Cou = Cou + 1
Load picBox(Cou)
With picBox(Cou)
.Visible = True
.Enabled = True
Print "图片控件" & Cou
End With
End Sub

Private Sub Command1_Click()
CreatPic
End Sub

Private Sub picBox_Click(Index As Integer)
Debug.Print "click"
End Sub

'运行是可以响应事件的
sicainiao 2003-03-19
  • 打赏
  • 举报
回复
回zhoujianfengren:不行啊,它对Click事件都没响应怎会执行你后面写的条件语句呢。我都只简单的加上:label1.caption=index都没反应。。555555
sicainiao 2003-03-19
  • 打赏
  • 举报
回复
没有什么不可能啊,程序能自动生成动态控件啊,就只对其一些点击事件不响应啊。
但像mousemove事件却响应啊。。我为些郁闷了两天了。。
zhoujianfengren 2003-03-19
  • 打赏
  • 举报
回复
sub pic_dbclick()
select case index
case 0
...

case 2

...
case 3
...

end select

不知道这样行不行?
行的话给我点分,要不我提问不了了!
foreverforyou 2003-03-19
  • 打赏
  • 举报
回复
不可能的呀,Index是数组下标
佐罗XIII 2003-03-19
  • 打赏
  • 举报
回复
我建议你把变量的数目放在函数变量中
Private Sub CreatPic(ConCou As Integer)
  Load picBox(ConCou)
 With picBox(ConCou)
  .Visible = True
  .Enabled = True
  .Caption = "图片控件" & ConCou
 End With
End Sub

佐罗XIII 2003-03-19
  • 打赏
  • 举报
回复
同意楼上的
huohu526 2003-03-19
  • 打赏
  • 举报
回复
Private Sub picBox_Click(Index As Integer)
select case index
case 0
case 1
.
.
.
end select
end sub

1,451

社区成员

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

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