直接上代碼吧
'DisplayFormat
Public Property Get DisplayFormat() As String
DisplayFormat = gDisplayFormat
End Property
Public Property Let DisplayFormat(ByVal vNewValue As String)
gDisplayFormat = vNewValue
End Property
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("DisplayFormat", DisplayFormat, "")
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
gDisplayFormat = PropBag.ReadProperty("DisplayFormat", "")
End Sub
If gDisplayFormat <> "" Then
' If gDisplayFormat = "##0.00" Then
' Text1.Text = Format(strTextValue, "##0.00")
' ElseIf gDisplayFormat = "##0.0" Then
' Text1.Text = Format(strTextValue, "##0.0")
' ElseIf gDisplayFormat = "#0.0" Then
' Text1.Text = Format(strTextValue, "#0.0")
' End If
Text1.Text = Format(strTextValue, gDisplayFormat)
End If
uj5u.com熱心網友回復：
第一次寫自定義控制元件的方法，照著網上看的，出來的效果雖然可以format但是卻不正常uj5u.com熱心網友回復：
你哪里抄的代碼？Option Explicit
Private strTextValue As String
Private gDisplayFormat As String
Public Property Get DisplayFormat() As String
DisplayFormat = gDisplayFormat
End Property
Public Property Let DisplayFormat(ByVal vNewValue As String)
gDisplayFormat = vNewValue
PropertyChanged "DisplayFormat" '要重繪屬性視窗'
DoFormat '要用它才會產生效果啊'
End Property
Private Sub UserControl_Initialize()
strTextValue = "1.2" '我加的測驗資料'
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("DisplayFormat", DisplayFormat, "")
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Me.DisplayFormat = PropBag.ReadProperty("DisplayFormat", "") '要給屬性賦值才會自動呼叫DoFormat，才會產生效果'
End Sub
Private Sub DoFormat()
If gDisplayFormat <> "" Then
Text1.Text = Format(strTextValue, gDisplayFormat)
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/84133.html
標籤：控件
上一篇：幫幫忙