一个小问题

ssun1999 2004-04-20 12:14:34
有一个lable1 ,有几个菜单a,b,c,
点击菜单a要求lable1.Caption =a.Caption我用过程setform1来完成并规定位置
现要求点击lable1能call a_Click() 不是在lable1_Click()内写因为lable可能被
其它菜单调用。其他菜单点击后lable1基变成菜单.Caption,点击lable1要能回调

Call setform1(Form1, a, 500, 100, True)

Public Sub setform1(f As Object, b As Menu, top As Integer, left As Integer, v As Boolean)
f.Label1.Caption = b.Caption
f.Label1.top = top
f.Label1.left = left
f.Label1.Visible = v
End If
...全文
48 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2004-04-20
  • 打赏
  • 举报
回复
是不是这个意思?

Sub setform(b As Menu, top As Integer, left As Integer, v As Boolean)
Label1.Caption = b.Caption
Label1.top = top
Label1.left = left
Label1.Visible = v
MsgBox "you click menu " & b.Name
End Sub

Private Sub a_Click()
setform a, 500, 100, True
End Sub

Private Sub b_Click()
setform b, 500, 100, True
End Sub

Private Sub c_Click()
setform c, 500, 100, True
End Sub

Private Sub Label1_Click()
a_Click
End Sub

7,762

社区成员

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

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