如何用获得焦点做条件

lyyggb

例如,如果List1获得焦点(或更新后)时,按钮Command1执行A命令; 如果List1失去焦点时,Command1则执行B命令

一点通

呵呵,有点象是出试题一样

设定一个变量,当List1获得焦点及失去焦点时改变变量的值，并同时Call Command1,

在Command1命令按钮事件中用IF根据变量值情况执行不同的代码.

sxgaobo

if List1.SetFocus=true then

   a

else

  b

end if

lyyggb

以下是引用sxgaobo在2005-12-22 10:57:00的发言：


if List1.SetFocus=true then

   a

else

  b

end if

好像不行哦,好像不能这样用的? List1.setfocus=true

lyyggb

以下是引用lyyggb在2005-12-22 10:06:00的发言：


例如,如果List1获得焦点(或更新后)时,按钮Command1执行A命令; 如果List1失去焦点时,Command1则执行B命令

"如果List1获得焦点",这个语句应该怎么写?

List1.setfocus=true好像不行

lanchong

以下是引用一点通在2005-12-22 10:19:00的发言：


呵呵,有点象是出试题一样

设定一个变量,当List1获得焦点及失去焦点时改变变量的值，并同时Call Command1,

在Command1命令按钮事件中用IF根据变量值情况执行不同的代码.

Public BLListFocus As Boolean

Private Sub List1_GotFocus()
    BLListFocus = True
End Sub

Private Sub List1_LostFocus()
    BLListFocus = False
End Sub

Private Sub Command1_Click()
On Error GoTo Err_Command1_Click


    Screen.PreviousControl.SetFocus '这句是关键，当去按command1时，list或其他控件就已发生失去焦点事件，所以要先回到前物件的控制
   
    MsgBox BLListFocus

if BLListFocus then



   a



else



  b



end if

Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox err.Description
    Resume Exit_Command1_Click
   
End Sub