Common HTML Control Actions

What are some of the things we can do after finding the element we want to act upon? We can:

• Click on elements

• Perform mouse actions on elements

• Check/uncheck radio buttons and checkboxes

• Invoke events such as OnClick, OnFocus

• Capture an image snapshot

• Make selections of a drop down

Here are some examples:

C#

// All controls have a Click/MouseClick. The .Click invokes a click from the DOM,
// the MouseClick(), moves the mouse to the control and clicks it.
  
//
// CLICKING
//
Find.ById<HtmlInputButton>("button1").Click();
ActiveBrowser.Refresh();
Find.ById<HtmlInputButton>("button1").MouseClick();
  
// You can capture any element on the page using the .Capture()
Find.ById<HtmlInputImage>("image1").Capture("myfile"); // Will be stored to the Log.LogLocation
  
//
// CHECKING
//
// Check a checkbox and invoke the onclick event.
HtmlInputCheckBox ck = Find.ById<HtmlInputCheckBox>("checkbox1");
ck.Check(true, true);
  
// Query the checked state
Assert.IsTrue(ck.Checked);
// You can also simply set the value without invoking the clicked event.
ck.Checked = false;
Assert.IsFalse(ck.Checked);
  
// Get whether a checkbox is enabled or disabled.
HtmlInputCheckBox cks = Find.ById<HtmlInputCheckBox>("checkbox1");
bool disabled = cks.GetValue<bool>("disabled");
  
// Disable it
cks.SetValue<bool>("disabled", true);
Assert.IsTrue(cks.GetValue<bool>("disabled"));
  
// Is it visible
Assert.IsTrue(cks.IsVisible());
  
// When the contents of a div element are larger than the declared
// width or height of element it automatically adds scroll bars.
// When that happens we can scroll the contents of the div element.
// The value represents the offset in pixels to scroll the contents.
HtmlDiv infoDiv = Find.ById<HtmlDiv>("AutoInfo");
infoDiv.ScrollTop = 50;
infoDiv.ScrollLeft = 75;
   
// Get the color style
HtmlSpan mySpan = Find.ById<HtmlSpan>("Warning");
HtmlStyle styleColor = mySpan.GetStyle("color");
string strColor = mySpan.GetStyleValue("color");
  
// Getting the computed style will follow the CSS chain and return the
// style.
HtmlStyle styleMargin = mySpan.GetComputedStyle("margin");
string strMargin = mySpan.GetComputedStyleValue("margin");
  
//
// SELECTING
//
HtmlSelect select = Find.ById<HtmlSelect>("select1");
Assert.IsTrue(select.SelectedOption.Value.Equals("Option1Text"));
Assert.IsTrue(select.SelectedOption.Text.Equals("Option1"));
Assert.IsTrue(select.SelectedIndex.Equals(0));
  
select.SelectByIndex(1);
Assert.IsTrue(select.SelectedOption.Text.Equals("Option2"));
   
//
// MULTI-SELECTING
//
HtmlSelect multi_select = Find.ById<HtmlSelect>("select2");
multi_select.MultiSelectByText("E3145", "R4325", "W4573", "L5623");
multi_select.MultiSelectByValue("E3145", "R4325", "W4573", "L5623");
  
HtmlOption opt0 = multi_select.Options[0];
HtmlOption opt2 = multi_select.Options[2];
HtmlOption opt4 = multi_select.Options[4];
multi_select.MultiSelect(opt0, opt2, opt4);
  
//
// SET TEXT
//
Find.ById<HtmlTextArea>("textarea1").Text = "NEW TEXT";
  
// Access common methods
HtmlAnchor link = Find.ByAttributes<HtmlAnchor>("href=~google");
Assert.IsTrue(link.Attributes.Count == 3);
Assert.IsTrue(link.BaseElement.TextContent.Trim().Equals("Link"));
  
// Invoke any events on the control
link.InvokeEvent(ScriptEventType.OnFocus);

VB

' All controls have a Click/MouseClick. The .Click invokes a click from the DOM,
' the MouseClick(), moves the mouse to the control and clicks it.   
  
'
' CLICKING
'
Find.ById(Of HtmlInputButton)("button1").Click()
ActiveBrowser.Refresh()
Find.ById(Of HtmlInputButton)("button1").MouseClick()
    
' You can capture any element on the page Imports the .Capture()
Find.ById(Of HtmlInputImage)("image1").Capture("myfile")    ' Will be stored to the Log.LogLocation
    
'
' CHECKING  
'
' Check a checkbox and invoke the onclick event.   
Dim ck As HtmlInputCheckBox = Find.ById(Of HtmlInputCheckBox)("checkbox1")
ck.Check(True, True)    
  
' Query the checked state
Assert.IsTrue(ck.Checked)   
' You can also simply set the value without invoking the clicked event.
ck.Checked = False  
Assert.IsFalse(ck.Checked)
    
' Get whether a checkbox is enabled or disabled.
Dim cks As HtmlInputCheckBox = Find.ById(Of HtmlInputCheckBox)("checkbox1")   
Dim disabled As Boolean = cks.GetValue(Of Boolean)("disabled")   
  
' Disable it
cks.SetValue(Of Boolean)("disabled", True)   
Assert.IsTrue(cks.GetValue(Of Boolean)("disabled"))
  
' Is it visible   
Assert.IsTrue(cks.IsVisible())
     
' When the contents of a div element are larger than the declared
' width or height of element it automatically adds scroll bars.   
' When that happens we can scroll the contents of the div element.
' The value represents the offset in pixels to scroll the contents.   
Dim infoDiv As HtmlDiv = Find.ById(Of HtmlDiv)("AutoInfo")
infoDiv.ScrollTop = 50   
infoDiv.ScrollLeft = 75
    
' Get the color style
Dim mySpan As HtmlSpan = Find.ById(Of HtmlSpan)("Warning")   
Dim styleColor As HtmlStyle = mySpan.GetStyle("color")
Dim strColor As String = mySpan.GetStyleValue("color")
    
' Getting the computed style will follow the CSS chain and return the
' style.   
Dim styleMargin As HtmlStyle = mySpan.GetComputedStyle("margin")
Dim strMargin As String = mySpan.GetComputedStyleValue("margin")
     
'
' SELECTING 
'  
Dim select1 As HtmlSelect = Find.ById(Of HtmlSelect)("select1")   
Assert.IsTrue(select1.SelectedOption.Value.Equals("Option1Text"))   
Assert.IsTrue(select1.SelectedOption.Text.Equals("Option1"))   
Assert.IsTrue(select1.SelectedIndex.Equals(0))
    
select1.SelectByIndex(1)
Assert.IsTrue(select1.SelectedOption.Text.Equals("Option2"))    
  
'
' MULTI-SELECTING   
'
Dim multi_select As HtmlSelect = Find.ById(Of HtmlSelect)("select2")   
multi_select.MultiSelectByText("E3145", "R4325", "W4573", "L5623")
multi_select.MultiSelectByValue("E3145", "R4325", "W4573", "L5623")
     
Dim opt0 As HtmlOption = multi_select.Options(0)   
Dim opt2 As HtmlOption = multi_select.Options(2)
Dim opt4 As HtmlOption = multi_select.Options(4)  
multi_select.MultiSelect(opt0, opt2, opt4)
    
'
' SET TEXT   
'
Find.ById(Of HtmlTextArea)("textarea1").Text = "NEW TEXT"
    
' Access common methods
Dim link As HtmlAnchor = Find.ByAttributes(Of HtmlAnchor)("href=~google")   
Assert.IsTrue(link.Attributes.Count = 3)
Assert.IsTrue(link.BaseElement.TextContent.Trim().Equals("Link"))
    
' Invoke any events on the control
link.InvokeEvent(ScriptEventType.OnFocus)