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事件只能群体化处理,如何做到个体化处理?
不好意思,我没有说明白——我是指菜单弹出是群体化的,而点击是个体化的,每个标签弹出的是同样菜单,而点击则出现不同的处理
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