如:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
DataList1.SetFocus
End If
End Sub
Private Sub DataList1_GotFocus()
' 問:如何自動選中第一行的text(顏色變藍)
End Sub
uj5u.com熱心網友回復:
Datalist1.listindex=0
uj5u.com熱心網友回復:
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
DataList1.SetFocus
sendkeys{"down"}
End If
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/116738.html
標籤:控件
