如何写成函数？

Question

有以下这样的代码
    If Len(Trim(DBCombo3.Text)) = 0 Then
        MsgBox "开发商编号不能为空", 48, "提示"
        DBCombo3.SetFocus
        Exit Sub
    End If
    If Len(Trim(DBCombo4.Text)) = 0 Then
        MsgBox "开发商名称不能为空", 48, "提示"
        DBCombo4.SetFocus
        Exit Sub
    End If
    我要把它写成函数的形式，每次使用时调用，应该怎样写呢！

Answer 1

sub checkComb(DBCob As ComboBox)
If Len(Trim(DBCob.Text)) = 0 Then
     MsgBox "开发商名称不能为空", 48, "提示"
     DBCob.SetFocus
End If
End subcall checkComb(DBCombo3)
call checkComb(DBCombo4)

Answer 2

'如果是combobox控件
private sub aa(A as combobox, B as combobox)
  If Len(Trim(a.Text)) = 0 Then
        MsgBox "开发商编号不能为空", 48, "提示"
        a.SetFocus
        Exit Sub
    End If
    If Len(Trim(b.Text)) = 0 Then
        MsgBox "开发商名称不能为空", 48, "提示"
        b.SetFocus
        Exit Subend sub

Answer 3

:) sorry! 少一个end if  来配对

Answer 4

sub checkComb(DBCob As ComboBox,strTemp as string)
If Len(Trim(DBCob.Text)) = 0 Then
     MsgBox "开发商" & strTemp & "不能为空", 48, "提示"
     DBCob.SetFocus
End If
End subcall checkComb(DBCombo3,"开发商编号")
call checkComb(DBCombo4,"开发商名称")嘿嘿...

Answer 5

晕call checkComb(DBCombo3,"编号")
call checkComb(DBCombo4,"名称")

Answer 6

事情是这样，
    我按照死鬼过过提供的方法已经成功编写了函数，非常感谢，其实不只是编号、名称，下面还有十几项，但这个不重要。
    程序在执行时有一个问题：
Public Sub CheckSpace(DBCom As DBCombo, str1)
    If Len(Trim(DBCom.Text)) = 0 Then
        MsgBox str1 + "²»ÄÜΪ¿Õ", 48, "Ìáʾ"
        DBCom.SetFocus
        Exit Sub
    End If
End Sub
Private Sub Command5_Click()
    Call CheckSpace(DBCombo3, "¿ª·¢É̱àºÅ")
    ......
End Sub
我编写了函数，并在程序中调用，但是函数本身有一个Sub，控件里也有一个Sub，我要用Exit Sub
结束控件的Sub，但是这个命令只结束了函数的Sub，程序还是会继续。我该怎样写能够结束控件的
Sub，使程序暂停执行呢！
在线等待！！

Answer 7

Public Sub CheckSpace(DBCom As DBCombo, str1) 
   ...
  end if '以后不是自动退出了过程?为什么还要加上Exit Sub??
End SubPrivate Sub Command5_Click()
    Call CheckSpace(DBCombo3, "¿ª·¢É̱àºÅ")
    '而command控件调完该过程以后也自动退出了.
End Sub

Answer 8

Private Sub Command5_Click()
    Call CheckSpace(DBCombo3, "¿ª·¢É̱àºÅ")
    'command控件以下还有命令，必须使用END SUB结束，退出这个控件，否则程序还是会继续执行。    
     ......
    
End Sub

Answer 9

Function checkComb(DBCob As ComboBox,strTemp as string) as boolean
If Len(Trim(DBCob.Text)) = 0 Then
     MsgBox "开发商" & strTemp & "不能为空", 48, "提示"
     DBCob.SetFocus
     checkComb=true
else
     checkComb=false
End If
End functionPrivate Sub Command5_Click()
    Call CheckSpace(DBCombo3, "¿ª·¢É̱àºÅ")
    if  checkComb(DBCombo3,"编号") then exit sub     
End Sub