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

參考決定或改作通用的activeX控件.

         （1）新建一ActiveX Control工程.
             放置一maskedit控件於上.
             其設置屬性參考如下:
                usercontrol之name:DataDate.
  usercontrol之DataBindingBehavior設定1-VvbSimpleBound
                MaskedtBox之name:mskDate.

          (2).新增一數據屬性用於綁定.操作如下（我用為繁體系統,可能說法不大一樣).
             打開菜單: 增益集-->增益集管理員.
             載入Visual Basic AcitveX控制項介面精靈並啟動.
      運行至:建立自訂的介面成員處新增一Property:DateValue(此屬性即為您要操作綁定的東東).
      下一步確定對應關系:
       將常用的公用項目中的屬性事件按照綁定至mskDate.如mskDate無相關之屬性和可綁定至usercontrol上.
              在公用項目中將DateValue之資料類型設定Date型
              完成上述操作.
 

          (3). 將DateValue設定資料綁定屬性.

               點選usercontrol。
        打開  工具--->程序屬性.
              
               從名稱欄位選擇DateValue.
               將資料連結項中如下選擇打上勾:
               “屬性具資料連結功能”
               “在屬性值改變前，先呼叫CanPropertyChange.
                “即時更新”

                此時DataValue即具有數據綁定功能。此控件的屬性中就會增加諸如DataSource.DataField等東東.

           (4).編寫代碼。
             a.設定控件大小.

  Private Sub UserControl_Resize()
   MskDate.Move 0, 0, UserControl.Width, usercontrol.Height
  End Sub
             b.將dateValue的代碼修正如下：
        Public Property Let DateValue(ByVal New_DateValue As Date)
      m_DateValue = New_DateValue
      PropertyChanged "DateValue"
      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 Property
，此處即為判斷所傳進來的值是否合乎要求，如果是有效的話就顯示在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
        OICQ:37198873