VB问题` 2个文本框,一个控件数组0123456789???
如果文本框1得到焦点,那么单击0123456789就显示在文本框1内,如果文本框2得到焦点,那么单击0123456789就显示在文本框2内,代码杂写,大虾救命`...
如果文本框1得到焦点,那么单击0123456789就显示在文本框1内,
如果文本框2得到焦点,那么单击0123456789就显示在文本框2内,
代码杂写,大虾救命` 展开
如果文本框2得到焦点,那么单击0123456789就显示在文本框2内,
代码杂写,大虾救命` 展开
2个回答
展开全部
呵呵,给你个思路吧!!
Dim LastFocus%
Private Sub Command1_Click(Index As Integer)
If LastFocus = 1 Then Text1 = Text1 & Index
If LastFocus = 2 Then Text2 = Text2 & Index
End Sub
Private Sub Text1_LostFocus()
LastFocus = 1
End Sub
Private Sub Text2_LostFocus()
LastFocus = 2
End Sub
Dim LastFocus%
Private Sub Command1_Click(Index As Integer)
If LastFocus = 1 Then Text1 = Text1 & Index
If LastFocus = 2 Then Text2 = Text2 & Index
End Sub
Private Sub Text1_LostFocus()
LastFocus = 1
End Sub
Private Sub Text2_LostFocus()
LastFocus = 2
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询