vb 高手请入关于，frame选中问题

来源：百度知道 编辑：UC知道 时间：2024/05/03 03:21:31
用frame数组做了一个“房态图”，通过frame背景颜色变化来显示房态，frame上放label等控件，用以显示“房间编号”、“使用状态”、“开房时间”等信息，现在的问题是我怎样通过选中该“frame”来选中该“房间”，用以开房后进行消费，通过点击该frame知道选中的是那个房间，请高手解答，谢谢！
基本解决了问题，但新的问题是：每个frame上有四个label控件，分别显示：房间、类型、状态和开房时间，且label都“置前”，在点击到frame控件上label控件时，就不能激发MouseDown事件，如何解决这个新的问题？是否需要增加代码像frame数组一样关联四个label控件，这样只要点击到frame区域就能显示选中该房间，或者还有其他更好的方法吗？总之非常感谢anpsp的解答，谢谢！

在窗体上创建frame数组 (此例用三个frame说明)
例：frame1(0) 在上面放一个label1
frame1(1) 在上面放一个label2
frame1(2) 在上面放一个label3

在窗体form代码区写如下内容：

Private Sub Frame1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Select Case Index
Case 0
Label1 = "你选中了1号房间"
Label2 = ""
Label3 = ""
Case 1
Label2 = "你选中了2号房间"
Label1 = ""
Label3 = ""
Case 2
Label3 = "你选中了3号房间"
Label1 = ""
Label2 = ""
End Select

End Sub