之前的优先级问题 由于补充问题字数有限制，所以重开

来源：百度知道 编辑：UC知道 时间：2024/09/20 17:41:29
本人vb菜鸟一只，可能我表示的不太明了，这次我写的详细点。

程序运行后如下：
label1到label6，caption属性随机读取本地一文本文件中的内容（显示汉字），并依次从窗口顶端往下垂直移动（1-6的不按顺序的，也不是同时的，有的快有的慢），1到6只要有一个到达窗口底部就会触发timer1停止事件，程序结束，text1为汉字输入框（输入label1到6显示的相应汉字回车后可将其相应的label重新随机读取文件中的汉字并置于窗口顶部再次垂直向下移动。

例如：label1.caption显示汉字“属性”，2显示移动，3显示垂直，4显示同时，5显示依次，6显示“属性”。我现在遇到的问题是当1和6同时显示为相同汉字“属性”时，1比6会先到达窗口底部，但我在text1中键入“属性”并回车后，label6响应了事件，而1则无响应。

请问如何使即将先到达的label比后到达的label优先响应（即1比6先响应，如果6比1先到达的话，则6优先，1而后）。
请高手指点，我需要代码，谢谢。

附text1相关代码

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

If UCase(RTrim(Text1.Text)) = UCase(Label11.Caption) Then
Text1.Text = ""
Text1.SetFocus
Label1.Top = 0
Init1
Label24.Caption = Val(Label24.Caption) + 1
Label7.Caption = "正确"
Label7.BackColor = &HFF00&
Label7.FontSize = 28

ElseIf UCase(RTrim(Text1.Text)) = UCase(Label12.Caption) Then
Text1.Text = ""<

1、你的代码我运行不起来，也不可能人工运行。
2、我给你一个代码，也许对你有启发，但绝对不是这个内容。
3、24个标签，你为什么不用控件数组？

示例代码：
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 7530
ClientLeft = 60
ClientTop = 450
ClientWidth = 9480
LinkTopic = "Form1"
ScaleHeight = 7530
ScaleWidth = 9480
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Left = 4200
Top = 3480
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Snow(1000, 2)
Const Amounty = 200 '雪花数量

Private Sub Form_Click()
End
End Sub

Private Sub Form_Load()
Form1