名人励志名言名句大全:请教一下关于vb keypress

你的标签的Caption计划怎么改变？我给你编了这样一个：

窗体上放置8个标签，使用控件数组，名称是L(0)～L(7)，Caption分别是A、B、C、D、E、F、G、H，BackColor是&HFFFFC0；窗体放置一个Timer控件，Interval设为100（0.1秒），Enable初始设置为False。源程序如下：
Option Explicit
Dim I As Long

Private Sub Form_KeyPress(KeyAscii As Integer)
For I = 0 To 7
If UCase(Chr(KeyAscii)) = L(I) Then
L(I).BackColor = &HFF&
Timer1.Enabled = True
Exit Sub
End If
Next
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
L(I).BackColor = &HFFFFC0
End Sub

程序实现功能是，按下大写或小写A～H，相应的标签颜色改变成红色，保持0.1秒后恢复。

以上程序希望能够给你提供参考。

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Option3 = False Then
If KeyAscii = 13 Then
If Option1.Value = True Then
List1.AddItem Text1.Text
Label1.Caption = List1.ListCount
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Else
Combo1.AddItem Text1.Text
Label1.Caption = Combo1.ListCount
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End If
Else
Text2.Text = Text1.Text & Chr(KeyAscii)
End If
End Sub
这个程序是在两个文本框中，第一个里边输入什么，第二个就显示什么，至于你的那个作相应修改就可以了！