try
複製程式
Public Class Form3
Dim r As New Random
Dim i As Integer
Private Sub Text1_KeyPress(ByVal KeyAscii As Integer)
If KeyAscii = i Then
TextBox1.text = ""
KeyAscii = 0
i = r.Next(65, 90)
Label1.Text = Chr(i)
End If
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
i = r.Next(65, 90)
Label1.Text = Chr(i)
End Sub
End Class
KeyAscii = 0
這個漏了...pass是在[鍵盤輸入]跟[顯示在物件上面]兩事件之間
只有TextBox1.text = ""沒用...
因為:
[鍵盤輸入]
↓
[pass事件] 這時候TextBox1.text = ""
↓
[顯示在物件上面]這裡又會把KeyAscii轉成字元顯示在TextBox1上
所以KeyAscii=0也要
如果還是不行請描述一下哪裡不ok
比方說
"輸入跟LABEL一樣的自之後TEXTBOX沒有變成空白"
或是
"LABEL的字都只出現一種"
或是
"TEXTBOX輸入跟LABEL一樣的字，LABEL還是都不會改變"
之類的...這樣要偵錯比較快
