说明: Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If Text4.Text = "" Then MsgBox "驾驶证号不能为空!!", , "车辆管理系统" Text4.SetFocus End If DTPicker2.SetFocus End If End Sub Private Sub Text6_KeyDown(KeyCode As Intege
<qq_27760011> 上传 | 大小:1mb