參考決定或改作通用的activeX控件.
(1)新建一ActiveX Control工程.
放置一maskedit控件於上.
其設置屬性參考如下:
usercontrol之name:DataDate.
usercontrol之DataBindingBehavior設定1-VvbSimpleBound
MaskedtBox之name:mskDate.
(2).新增一數據屬性用於綁定.操作如下(我用為繁體系統,可能說法不大一樣).
打開菜單: 增益集--增益集管理員.
載入Visual Basic AcitveX控制項介面精靈並啟動.
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)運行至:建立自訂的介面成員處新增一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(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)
,此處即為判斷所傳進來的值是否合乎要求,如果是有效的話就顯示在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 IfElse 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 IfEnd Sub
'此處即判斷mskDate的值是否有效,如果有效的話就調用 PropertyChanged "DateValue" . 資料就會更改DataField所綁定的資料欄位的值 .
最後將工程編譯成控件DataDate.ocx 加以引用,DataValue屬性即相當於text的text屬性在文檔中可以直接調用.
用以上方法可以自定義資料綁定控件用於我們的特殊處理。