bsp; Public Property Let Title(Value)
if value="" then strTitle = strField else strTitle = Value
End Property
Public Property Get Title()
if strTitle="" then Title = strField else Title = strTitle
End Property
Public Property Let CssClass(Value)
strCssClass = Value
End Property
Public Property Get CssClass()
CssClass = strCssClass
End Property
Public Property Let DataType(Value)
strDataType = lcase(Value)
End Property
Public Property Get DataType()
DataType = strDataType
End Property
Public Property Let Text(Value)
select case value
case ""
strText = strType
case null
strText = strType
case else
strText = Value
end select
End Property
Public Property Get Text()
Text = strText
End Property
Public Property Let ReadOnly(Value)
if value="" or isnull(value) then strReadOnly = False else strReadOnly = value
End Property
Public Property Get ReadOnly()
ReadOnly = strReadOnly
End Property
Public Property Let EditCommandText(Value)
strEditCommandText = Value
End Property
Public Property Get EditCommandText()
EditCommandText = strEditCommandText
End Property
Public Property Let UpdateCommandText(Value)
strUpdateCommandText = Value
End Property
Public Property Get UpdateCommandText()
UpdateCommandText = strUpdateCommandText
End Property
Public Property Let CancelCommandText(Value)
strCancelCommandText = Value
End Property
Public Property Get CancelCommandText()
CancelCommandText = strCancelCommandText
End Property
Public Property Let DeleteCommandText(Value)
strDeleteCommandText = Value
End Property
Public Property Get DeleteCommandText()
DeleteCommandText = strDeleteCommandText
End Property
Public Property Let RegExp(Value)
strRegExp = Value
End Property
Public Property Get RegExp()
RegExp = strRegExp
End Property
Public Property Get HTMLstr()
tempstr = ""
if intWidth <> "" then tempstr = tempstr & " width=""" & intWidth & """"
if intHeight <> "" then tempstr = tempstr & " height =""" & intHeight & """"
if strStyle <> "" then tempstr = tempstr & " style=""" & strStyle & """"
if strEvent <> "" then tempstr = tempstr & " " & strEvent
if strAlign <> "" then tempstr = tempstr & " align=""" & strAlign & """"
HTMLstr = tempstr
End Property
End Class
%>
上一页 [1] [2] [3] [4] |
