Answer Posted / mohd ikhlaque

HI

I have tried the Mouse wheel UP/Down movement operation for
a Windows application , and it is working pretty fine.

Please find the code-snipt for the above mentioned
operation.


'*********************************************************
Function To Perform Mouse Scroll Wheel Operation
****************************************************
*******************
'Function Name :
MouseWheelRotation(iClicks)

'Description :
Performs Mouse Scroll Wheel Operation

''Parameters :
1.iClicks :: No. of Mouse Click
'

'Return Value :
TRUE \ FALSE

'Pre-requisite : Nx
should be launched

'Examples :
Call MouseWheelRotation(-2) -----> To perform
Scroll Down
'
Call
MouseWheelRotation(2) -----> To perform Scroll UP

'History :
' Developer Name

Date
Rev. No.

Reviewer
'-----------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
-
' Mohd Ikhlaque

31/05/ 2012
1.0

'-----------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
-

'*********************************************************
Start of Function
****************************************************
******************

Public Function MouseWheelRotation(iClicks)
dim iLoop
dim bPos
Window("NXWindow").Window("WinDrawingArea").WinObject
("WinDrawingArea").click 1,1 '======= The Object on which
Mouse wheel operation is to be perform.===========
Wait(2)
MouseWheelRotation=False
Extern.Declare
micVoid, "mouse_event", "user32.dll", "mouse_event",
micLong, micLong, micLong, micLong, micLong
Const MOUSEEVENTF_WHEEL = 2048 '@const long |
MOUSEEVENTF_WHEEL | middle button up
Const POSWHEEL_DELTA = 120 '@const long | POSWHEEL_DELTA |
movement of 1 mousewheel click Down<nl>
Const NEGWHEEL_DELTA = -120 '@const long | NEGWHEEL_DELTA |
movement of 1 mousewheel click Up<nl>

If iClicks<>0Then
For iLoop = 1 to abs(iClicks)
If iClicks > 0 then
'========To Scroll Down=============
Extern.mouse_event
MOUSEEVENTF_WHEEL,0,0,POSWHEEL_DELTA,1
' "Performed Mouse Wheel Down
Operation Successfully "
MouseWheelRotation=True
else
'===========To Scroll
UP===============
Extern.mouse_event
MOUSEEVENTF_WHEEL,0,0,NEGWHEEL_DELTA,1
' "Performed Mouse Wheel UP
Operation Successfully "
MouseWheelRotation=True
end if
next
else
' "Fail :Fail To Perform [Mouse Wheel UP/Down]
Operation"
End If
End Function

What are the methods used in UFT to handle exceptions or run-time errors?

1152

---

1--How many functions u develop 2--What is an array 3-- where is ur server 4--U involved in unit testing 5--how ur test the background colour using QTP

2002

---

i need to add 1000 users in a domain i written the script for that and it is running successfuly but the problem is that my system is not the user of that domain in which i have to add users so for adding users in that domain i have to install qtp on that another system, can anybody suggest me the way to add those users from my system ultimately i want to know how to access remote computer through script

1899

---

What is the standard timing delay for web based application in qtp?

1116

---

Explain the check points in quicktest professional (qtp)?

1084

---

Hi,Sudhanandareddy plz forword framework and ppts for QTP to me. This is my mail id: ranjith_99reddy@yahoo.co.in (your contact number also)

2501

---

How can you give wait up to 10 seconds in qtp?

1072

---

How to modify the text checkpoint?

1173

---

how do u plan test automation?

1967

---

descriptive program for a yahoo mail that is in yahoo mail suppose check box mailid subject assume it is like this format all things are in webtable the question is suppose some mail ids are there in that mailids i want to select the check box wich is before a@gmail.com and after that i want to click on delete button

2266

---

Tell me about your project? please help me how to tell about insurance project

2059

---

How many types of recording facility are available in quicktest professional?

1159

---

Anybody plz give, How do you test aframe in a web page? If page cotain text message or Images, tables?

2118

---

can anyone tell me from where i can download qtp demo or crack version

2046

---

Can any one tell me.......How the test engg's start testing in the compy environment.....real time tester PLSSSS help me i need in depth information regarding this...

2034

---