求教个函数

Question

Private Sub Form_Menu_Click(Index As Integer)
 If Trim(Me.txtWageType.Text) = "" Then
    MsgBox "请输入薪资类别", "提示"
    Me.txtWageType.SetFocus
    Exit Sub
  End If
  MSGBOX "AA"
END SUB关于判断控件内容为空,可否写出这样一个函数?
传入参数 1 控件名 参数2 提示内容 
但怎么退出不会执行MSGBOX "AA" 呢

Answer 1

Private Sub Form_Menu_Click(Index As Integer)
 If Trim(Me.txtWageType.Text) =EMPTY Then
    MsgBox "请输入薪资类别", "提示"
    Me.txtWageType.SetFocus
    Exit Sub
  End If
  MSGBOX "AA"
END SUB

Answer 2

'执行MSGBOX "AA"
Private Sub Form_Menu_Click(Index As Integer)
 If Trim(Me.txtWageType.Text) = "" Then
    MsgBox "请输入薪资类别", "提示"
    Me.txtWageType.SetFocus
    'Exit Sub
  End If
  MSGBOX "AA"
END SUB

Answer 3

同意3楼！另外在MsgBox "请输入薪资类别", "提示" 这一语句改成
MsgBox "请输入薪资类别", ,"提示" 就OK了！

Answer 4

Private Sub aa(a As Object)
  Exit Sub
End SubPrivate Sub Form_Menu_Click(Index As Integer)
            aa Me.txtWageType
            MSGBOX "AA"
END SUB没表达清楚
怎么可以让她不执行MSGBOX "AA"

Answer 5

呵呵，exit sub在前，肯定不会执行后边的了。你的结构有问题，自己好好看看吧。

Answer 6

是不是这个意思：函数调用处决定是否提示AA（即输入不为空）Private Sub Form_Menu_Click(Index As Integer)
    if funTextEmpty(txtWageType.text, "请输入薪资类别!") = True then     '函数调用处
         exit sub
     end if
    '如需要，则调用处决定是否提示AA；
end sub'检查输入是否为空函数
public function funTextEmpty(byval sText as string, byval sMsg as string) as boolean
    if trim(sText) = "" then
        MSGbox sMsg, , "提示"
        funTextEmpty = true
        exit function
    end if
    funTextEmpty = false
end function

Answer 7

是的..原来用function，一时没想到