MSFlex Grid issue

Question

Hi,I am working on a Windows based application designed in VB6.We are having a grid which is a MSFlex grid and inside that grid we have a ComboBox (in each cell) to select a specific value. But this combo box object is not enabled until we click on the grid.Can someone please let me know how can we determine how we can code for clicking on a specific cell in the grid and then selecting the value. I tried recording and it gives me hard code value for CLick method.I want somethin where I first identify the Column header and then click on specific cell using row index.Also I wanted to know if we can capture the status(enabled/disabled) of the cells.Just for the information, the grid properties does not have (.Cell) although it does have other cell related properties like (.CellWidth, .CellHeight).Can someone please help me as I am stuck from last few days with no solution :(Thanks,Darshan Gandhi

murugans1011 · Accepted Answer

As this grid is not supported there is no builtin method to click cell. however u can find the coodrinates of cell click onthe paricular celll. here is the sample code&nbsp;&nbsp; Msflexgrid.setfocus&nbsp;&nbsp;&nbsp; Msflexgrid.row=1&nbsp;&nbsp; 'row Value&nbsp;&nbsp;&nbsp; Msflexgrid.col=1&nbsp;&nbsp; 'ColumnValue&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;'to calculate the coordinates of the cell&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;x=Msflexgrid.CellTop+form.Top&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;y=Msflexgrid.CellLeft+form.Left&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;'to convert twip into pixels&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;twip_pixel_ratio = form.ScaleWidth / form.Width&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;x = x/twip_pixel_ratio&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;y = y/twip_pixel_ratioCall Msflexgrid.Click( y ,x)&nbsp; 'Clicks the 1st cell

murugans1011 · Answer

Hi Ms flexgrid is a unsupported&nbsp;&nbsp; grid in tc. so there is no special method available in tc to work with that control. however u can work with the native properties of tat control to access grid'To focus on particular cell useMsflexgrid.SetFocusMsflexgrid.row=1 'row valueMsflexgrid.col=1&nbsp; 'Column valueas for combo box first map the object and get focus on particular cell asper above method and click on the itemComboBox.ClickItem "Item"U can also get grid cell data using textmatrix propertyCellValue=Msflexgrid.Textmatrix(1,1)&nbsp;A sample code to get cell contentshttp://support.smartbear.com/viewarticle/62627/

darshan_gandhi · Answer

Thank you Murugan for your prompt reply.

But unfortunately, Test Complete gives error in Test Results: "The window cannot get focus" for .Setfocus property.

Anything more fruitful would be appreciated.

Thanks,

Darshan Gandhi

murugans1011 · Answer

Hi,Make sure that the grid enbled by using enabled propertyif Msflexgrid.Enabled then&nbsp; ..............&nbsp;&nbsp; Msflexgrid.setfocus&nbsp; .............End ifafter that try to use setfocus property

darshan_gandhi · Answer

Hi,Had tried that initially itself. But no luck :(Any other options left as this grid is an integral part of the application and if that does not work, it will not make sense automating rest of the functions.Thanks,Darshan

murugans1011 · Answer

Can u pls provide screen shot and mapped name of the grid if possible. also make sure grid is visible onscreen.does this coding for u?   Sub TestFlexGrid(ColumnName)  &nbsp;&nbsp;Dim p, w, ColIdx, i, s    &nbsp;&nbsp;Set p = Sys.Process("MyProject")  &nbsp;&nbsp;Set w = p.VBObject("Form1").VBObject("MSFlexGrid1")  &nbsp;&nbsp;' Search for the column index  &nbsp;&nbsp;ColIdx = -1  &nbsp;&nbsp;For i = 0 To w.Cols - 1  &nbsp;&nbsp;&nbsp;&nbsp;If w.TextMatrix(0, i) = ColumnName Then  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ColIdx = i  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit For  &nbsp;&nbsp;&nbsp;&nbsp;End If  &nbsp;&nbsp;Next  &nbsp;&nbsp;' If the column was not found...  &nbsp;&nbsp;If ColIdx = -1 Then  &nbsp;&nbsp;&nbsp;&nbsp;' Post warning to the test log  &nbsp;&nbsp;&nbsp;&nbsp;Log.Warning "Column '" &amp; ColumnName &amp; "' was not found."  &nbsp;&nbsp;Else  &nbsp;&nbsp;&nbsp;&nbsp;' Retrieve data from the column cells  &nbsp;&nbsp;&nbsp;&nbsp;For i = 1 To w.Rows - 1  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s = w.TextMatrix(i, ColIdx)  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Log.Message s  &nbsp;&nbsp;&nbsp;&nbsp;Next  &nbsp;&nbsp;End If  End Sub

Forum Discussion

MSFlex Grid issue

9 Replies

Related Content

Issue to find grid text box location

MSFlex Grid issue - Double clicking on first row

Button issue

TestComplete Test Adapter (v15.53.9) issues running tests in DevOps

Alternative for set_item in grids

Recent Discussions

convert absolute path to relative path

Multiple execution of a test plan with different values from an Excel table

Searching for mapped object took too much time msg

mht files are by default opening in Edge browser and its blank

Azure Devops Integration supports Testcomplete Base Fixed Dektop Module License