Answer Posted / rakesh ramesh

In case of functions, values are returned by assigning the
value to the function name. So by that means you can send
only one value.

One way to send more than one values would be to store the
values in an array and send the array name to the fuction.

Eg:-
Function Calculate(Dim a, Dim b)
Dim arr(2)
arr(0)=a+b
arr(1)=a*b
Calculate=arr
End Function

'..VBscript source code
Dim arr1(2)
arr1=Calculate(2,3)
msgbox "Sum - " & arr1(0)
msgbox "prod - " & arr1(1)

can everyone explain this code Private Sub DrawRect(rectSource As RECT, lngColour As Long) Line (rectSource.Left, rectSource.Top)-(rectSource.Left, rectSource.Bottom), lngColour Line (rectSource.Left, rectSource.Top)- (rectSource.Right, rectSource.Top), lngColour Line (rectSource.Right, rectSource.Bottom)- (rectSource.Right, rectSource.Top), lngColour Line (rectSource.Right, rectSource.Bottom)- (rectSource.Left, rectSource.Bottom), lngColour End Sub

2263

---

How to change winform look?

2335

---

write a vb script to check equal two 2*2 matrix

1060

---

How to store the iterations value in some variable/ in excel? Dim objExcel, ObjFolder, objPath, objWorkbook, objSheet, ObjFSo, ObjFolderName, strExcelPath Const xlExcel7 = 39 ObjFolderName = "Testing" & Hour(time()) & Minute(time()) &Second(time()) objPath = "D:\" strExcelPath = objPath & ObjFolderName & "\testing.xls" Set ObjFSo = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(objPath & ObjFolderName) On Error Resume Next Set objExcel = CreateObject("Excel.Application") If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Excel application not found." Wscript.Quit End If On Error GoTo 0 Set objWorkbook = objExcel.Workbooks.Add() Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) Dim arr1, arr2, arr3 Set outputLines = CreateObject ("System.Collections.ArrayList") arr1 = 123arr2 = 99 arr3 = 10 outputLines.Add arr1 outputLines.Add arr2 outputLines.Add arr3 outputLines.Sort() For Each outputLine in outputLines WScript.Echo outputLine ' how to store this value in excel/ variable? Next objExcel.ActiveWorkbook.SaveAs strExcelPath, xlExcel7 objExcel.ActiveWorkbook.Close objExcel.Application.Quit This above code is working fine but the qs is is there any way to store the sort data in variables / in the excel and how?

2467

---

what does mbln in mblnrects mean? my boolean?

2440

---

---

how to manage mlng timer because they don't explain what's it's function?

2467

---

Can Any one suggest how we connect QTP and Mainframe and do validation from Mainfram screen

1940

---

how to use the GetTickCount() properly and what is that procedure for?

2740

---

Hi All, Do anyone have a solution/script for Uploading the Excel file in Local drive to QC Resources folder..?? TIA Dwaraka.

1187

---