怎样在VB中实现这个东东？

来源：百度知道 编辑：UC知道 时间：2024/05/25 01:25:02
就是点击一个文本框，一个按钮的Default=FALSE，而点击别的控件后（包括窗体），这个按钮的default=TRUE？

这是点击文本框的代码
Private Sub Text1_Click()
Command1.Default = False
End Sub

这是点击别的控件和窗体的代码
Private Sub Text1_LostFocus()
Command1.Default = True
End Sub

Private Sub Form_MouseUp()
Command1.Default = True
End Sub

适用于VB5或6的哦

Private Sub Command1_LostFocus()
Command1.Default = True
End Sub
当该命令按钮的焦点失去，触发这个命令

当窗体上只有command1和text1两个控件时，可以这样写：
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Default = True
End Sub

Private Sub Text1_GotFocus()
Command1.Default = False
End Sub