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