|
Function BuildFromRow( row As AcDataRow ) As AcBuildStatus
BuildFromRow =
Super::BuildFromRow( row )
Dim szText As String
Dim nLinesNeeded As Integer
Dim nNumOfChars As Integer
Dim control As AcTextControl
szText =
GetcontrolValue("SWCOMMENTBMLONGNOTEControl")
nNumOfChars = Len(szText)
if
nNumOfChars > 70 then
nLinesNeeded = (nNumOfChars/70)+2
Size.Height = Size.Height*nLinesNeeded
Set control =
findContentByClass("SWCOMMENTBMLONGNOTEControl")
control.Size.Height = control.Size.Height*nLinesNeeded
end if
End Function
|
