文本输入框和按钮间切换的情况

Question

Private Sub Text1_GotFocus()End SubPrivate Sub Text1_LostFocus()End Sub

Answer 1

1. 在 txtA_lostfocus() 中加入判断文件是否存在的语句。
2. txtB_lostfocus()
     if 不和法 then
        txtB.setfocus
     end if
    end sub
3. txtBG_change ()
     if  合法 then
       txtC.setfocus
     end if
   end sub

Answer 2

1:
private textboxa_lostfocus()
    if trim$(txtboxa.text)="" then
        msgbox "文件名不能为空！"
    end if
end sub
2、3:
private textboxb_lostfocus()
    if 合法 then
        textboxc.setfocus
    else
        textboxb.setfocus
    end if
end sub因为判断是在失去焦点的事件上进行，而此时C文本框还未获得焦点，所以不会形成循环