Recent content by AnilKumar

Hi, How can I access Shape properties of UML Diagram Shapes like Class from VBA ? Thanks for the help. Anil

How can I call method on object return by a method, if I just call $foo->bar()->try() I am getting parse error.

Hi , I have char '<' in value of a attribute node , when I serialise this document it is escaped to &lt; . how can I avoid this. thanks for the help. Anil.

Hi , I inserted a control &quot;Microsoft Form 2.0 Command Button&quot; in to a Visio2000 Drawing and then removed this control from my drawing , now whenever I tried to insert any shape in to my drwaing I am getting error &quot;Can't exit design mode because control can't be created&quot; I...

Hi , I inserted a control &quot;Microsoft Form 2.0 Command Button&quot; in to a Visio2000 Drawing and then removed this control from my drawing , now whenever I tried to insert any shape in to my drwaing I am getting error &quot;Can't exit design mode because control can't be created&quot; I...

I want to remove all &quot;?&quot; in my string ..is there any function to do this..I tried to use regsub but it is not working.. i have a string like &quot;?anil&quot; i want to remove ?. thx for help.. Anil.

Hi Paul , try this one .. ''some variable dim xyz xyz=topBoxArray(intTopSpot).calcTop3Box(currentRS, &quot;Q1&quot;, 10, 1, 10, 8, &quot;current&quot;) inplace of topBoxArray(intTopSpot).calcTop3Box(currentRS, &quot;Q1&quot;, 10, 1, 10, 8, &quot;current&quot;) in case of function u have to...

Hi , I could see only problem will be in this para.. sub ShowButton_OnClick Next For a=1 to 4 If no(a)=&quot;&quot; Then no(a)=&quot;&quot; Else no(a)=CLng(no(a)) End If Next n(1)=txtno1.value n(2)=txtno2.value n(3)=txtno3.value n(4)=txtno4.value why u r using 2 arrays...

hi, u can take input from user by input box like this.. Dim n, temp, i, totaln totaln = InputBox(&quot;Enter how many nbrs are there &quot;) ReDim n(totaln - 1) For i = 0 To totaln - 1 n(i) = CInt(InputBox(&quot;Enter nbr :&quot; + CStr(i + 1))) Next dim smalln smalln=n(1) for i=2 to...

Hi Thomas, try this logic.. dim n(9) dim smalln dim i n(1)=2 n(2)=4 n(3)=5 n(4)=6 n(5)=1 n(6)=8 n(7)=5 n(8)=6 n(9)=4 smalln=n(1) for i=2 to ubound(n) if n(i) < smalln then smalln=n(i) end if next msgbox cstr(smalln) logic is assign first nbr as smallest and loop thru all nbrs and...

try this one.. Function vector(a) Dim f_vector '' redim this variable to use as an array redim f_vector(2) f_vector(0) = a f_vector(1) = a+1 f_vector(2) = a+10 vector = f_vector End function then u can use value return by vector to any varient. for example. dim x x=vector(10) msgbox cstr(x(2))...

yes this is a good site for SCJP.. anil.

Hi all, When I tried to use MS common dialog control then I am getting control could not be created because it is not properly licenced error.pls tell me how to fix this problem. thx for help. Anil.

U can add tada to treeview by Nodes.Add property of tree view. for example: add a treeview to form and use following code to populate data. Dim nodt As Node TreeView1.LineStyle = tvwRootLines Set nodt = TreeView1.Nodes.Add(, , &quot;nod1&quot;, &quot;ABC&quot;) Set nodt =...

When I tried to use MS common dialog control then I am getting control could not be created because it is not properly licenced error.pls tell me how to fix this problem. thx for help. Anil.