could any one can help me with below error in VBA?
code:
Sub ShowTransientElementsold() Dim tec1 As TransientElementContainer Dim ele1 As Element Dim flags As MsdTransientFlags Dim eleEnum As ElementEnumerator Set eleEnum = ActiveModelReference.GraphicalElementCache.Scan Set tec1 = CreateTransientElementContainer1(Nothing, flags, msdView1 + msdView4, msdDrawingModeHilite) Do While eleEnum.MoveNext Set ele1 = eleEnum.Current tec1.AppendCopyOfElement ele1 Loop End Sub
error image :
i'm using V8i select series 2
regards,
vinoth
I don't know what's going on. I copied your code into a MicroStation V8i SS3 VBA project. It compiled without error.
Have you written other VBA code for MicroStation? Do your other projects compile and run without error?
Regards, Jon Summers LA Solutions
Hi,
pls have a look under Tools/References in your IDE.
Anything suspicious in there?
Regards, Stefan.
Below your hilighted Error, you have declared a Function ClearDisplay that appears not to return a Value data type that all functions are required to. If you have no data to return, consider declaring ClearDisplay as a Sub(routine) that by definition does not return any values.
I would highly recommend the following options be used for debugging all your VBA projects to help identify real problems that VBA is nicely hiding to protect the more casual programmer.
Recommended settings to configure in a development VBA debugging environment
HTH,Bob
thanks stefan. i checked there in references. nothing is 'missing' and i don't know anything specially i need to add for this code.
Vinoth Joseph
ATKINS
Bangalore, India
Robert, thanks for the information that you passed.
i feel, i done correctly what you suggested. but, still the issue is there.
and, my appologize on partial information of function cleardisplay. please ignore that function. issue is with TransientElementContainer.