用ActiveX控件封装MaskEdit控件-->解决不能绑定的问题[2]

，此處即為判斷所傳適來的值是否合乎要求，如果是有效的話就顯示在mskdate中，否則就顯示成其他的方式。

private sub mskdate_validate(cancel as boolean)

if isdate(trim(mskdate.text)) then
    if canpropertychange("datevalue") then
        m_datevalue = cdate(mskdate.text)
        propertychanged "datevalue"
    end if
else
    msgbox "invalid date value!", vbexclamation, "date error!"
   
    if not isempty(m_datevalue) then
        if isdate(m_datevalue) then
            if year(m_datevalue) > 1970 then
                mskdate.text = format(m_datevalue, "yyyy/mm/dd")
            else
                mskdate.text = "____/__/__"
            end if
        else
            mskdate.text = "____/__/__"
        end if
    else
        mskdate.text = "____/__/__"
    end if
   
end if
end sub

'此處即判斷mskdate的值是否有效，如果有效的話就調用   propertychanged "datevalue" . 賧料就會更改datafield所綁定的賧料欄位的值 .
 
 最後將工程編譯成控件datadate.ocx 加以引用,datavalue屬性即相當於text的text屬性在文檔中可以直接調用.
 
          用以上方法可以自定義賧料綁定控件用於我們的特殊處理。

                                                            lee_jvn於2001.02.15