activeXControl控件.(1)新建
ActiveX Control工程.放置
maskeditControl控件於上.其設置屬性參考如下:
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即具有數據綁定功能
此Control控件屬性中就會增加諸如DataSource.DataField等東東.(4).編寫代碼
a.設定Control控件大小.
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所綁定資料欄位值 .最後將工程編譯成Control控件DataDate.ocx 加以引用,DataValue屬性即相當於text
text屬性在文檔中可以直接調用.用以上思路方法可以自定義資料綁定Control控件用於我們
特殊處理
最新评论