张家界的旅游产品:有关vb 语言编程的问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/11 03:24:35
vb 语言编程中,有没有这样的一个语句或函数,它可以让当前光标所在位置的控件击活成为焦点控件。

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SetFocus
End Sub

Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2.SetFocus
End Sub

就是在指定的控件的MouseMove事件里写上 控件名.SetFocus

例:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button1.CanFocus = True Then
Button1.Focus()
End If
End Sub