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



can everyone explain this code Private Sub DrawRect(rectSource As RECT, lngColour As Long) ..

Answer / Virendra Kumar Singh

This is a VBScript subroutine named 'DrawRect' that accepts two parameters: rectSource (a RECT structure representing the rectangle dimensions) and lngColour (the color of the line used to draw the rectangle). The subroutine uses four lines to create a square/rectangle by connecting the vertices of the given rectangle. The resulting shape will be drawn in the specified color.

Is This Answer Correct ?    0 Yes 0 No

Post New Answer

More VB Script Code Interview Questions

Keep all the contract numbers in a array and make a loop . Example:12134,5678,91011,1214125 are contract numbers.

1 Answers  


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?

1 Answers   Wipro,


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

1 Answers   NHS,


display 1 to 9 in a 3*3 matrix in vbscript

1 Answers   JPMorgan Chase,


How to write a reusable function for testing an "Button" Objects in a page without passing the page name to a function? (Think if page names are dynamic and doesn't have any pattern matching between each page). Send me code which works in QTP 9.2.....

2 Answers   Infosys,


How to write QTP script to exit from loop? suppose I am using parametize functionality and in data table there is 3 password corresponding 3 username and second pasword is wrong. Now I want to exit after completion of second iteration and continue with third iteration.

2 Answers  


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

1 Answers   Polaris,


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

1 Answers  


what is the full form of dim?

5 Answers  


Hi, My name is satish kumar dega I am learing QTP I have one doubt. I need to count the radio buttons in a particular page. In QTP how to write descriptive progming and how I will get all the radiobuttons count.In a paricular page having two WebRadioGroups under each group having 3 radiobuttons.I need to count all the radio buttons could you plz help me regarding this one

1 Answers  


In QTP one function can return more than one value?

3 Answers   Mind Tree,


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

1 Answers  


Categories
  • PHP Code Interview Questions PHP Code (33)
  • JSP Code Interview Questions JSP Code (6)
  • ASP Code Interview Questions ASP Code (5)
  • CGI Perl Code Interview Questions CGI Perl Code (3)
  • JavaScript Code Interview Questions JavaScript Code (63)
  • VB Script Code Interview Questions VB Script Code (20)
  • Shell Script Code Interview Questions Shell Script Code (31)
  • Python Code Interview Questions Python Code (34)
  • WinRunner Code Interview Questions WinRunner Code (1)
  • HTML DHTML XHTML Code Interview Questions HTML DHTML XHTML Code (13)
  • XML Interview Questions XML (43)
  • Scripts_Markup Code AllOther Interview Questions Scripts_Markup Code AllOther (5)