VB不同控件弹出菜单点击后的个体化处理

来源：百度知道 编辑：UC知道 时间：2024/05/28 18:55:41
Private Sub Label1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu Edit
End If
End Sub

其中Label1是个控件数组，比如可以用来标志地理位置，右键弹出菜单“查看城市资料”，在不同标签上面点击后分别显示各自的城市资料。菜单Click事件只能群体化处理，如何做到个体化处理？
不好意思，我没有说明白——我是指菜单弹出是群体化的，而点击是个体化的，每个标签弹出的是同样菜单，而点击则出现不同的处理

声明以个全局变量 public Str as string
if button=2 then
str=label1(index).caption
PopupMenu Edit
end if
然后在 PopupMenu的click事件里面写
if str="北京" then ````
if str="上海" then````

If Button = 2 Then
mnuName.Caption = Label1(index).caption
.......
PopupMenu Edit
End If

if button=2 then
select case index
case 0
PopupMenu Edit
case 1
.....
case 2
....
end select
end if